Моя цель после sub cmbSaveAndNew_click заключается в том, чтобы открыть форму user open со всем пустым (за исключением заполненного cmbTest без выбранного значения) Private Sub UserForm_Initialize() Dim i As Integer Dim j As Integer i = 2 j = 0 frmTest.cmbKinderen.Clear frmTest.cmbKinderen.ColumnCount = 2 While Sheets("shtGegevens").Cells(i, 1) <> "" frmTest.cmbTest.AddItem (sheets(1).cells(i, 1)) frmTest.cmbTest.Column(1, j) = […]
Я пытался создать простую функцию USERFORM. Мое требование состоит в том, чтобы в основном вычислить функции добавления, умножения, деления и минус математических функций. Однако у меня были трудности, когда я запускаю функцию ADD, скажем, я добавляю 5 плюс 5, а затем выходит 55 вместо 10. Пример ниже A Value = 5 B Value = 5 […]
Как динамически созданное текстовое поле обновляется динамически созданной полосой прокрутки с помощью обработчика WithEvents ? После этого у меня есть этот код пользовательской формы ниже и модуль класса. Option Explicit Dim TextArray() As New Class1 Dim ScrollArray() As New Class1 Private Sub UserForm_Initialize() Dim ctlScroll As MSForms.ScrollBar Dim ctlText As MSForms.TextBox Dim ScrollTop As Long, […]
У меня есть следующая проблема: у меня есть UserForm A и UserForm B в excel. Оба UserForms вызывают UserForm C. Пользователь выбирает идентификационный номер из UserForm C, который затем я хочу поместить в метку в UserForm A или UserForm B, в зависимости от того, какой из них открыт в данный момент. Я искал возможный ответ […]
У меня есть пользовательская форма с кнопками радиоуправления. Кнопки выбора сгруппированы в 2 набора и 10 наборов. Для каждого набора, когда одна из кнопок нажата, у меня появляется окно ввода. Затем пользователю предлагается ввести информацию в поле ввода. Проблема, с которой я столкнулась, заключается в том, чтобы вернуть эту информацию обратно в таблицу Excel. Как […]
Имея некоторые проблемы с формой пользователя и устанавливая начальные значения, я пытаюсь запустить следующее: Sub colorme() For Each cell In Selection If cell.Interior.ColorIndex = UserForm1.colorcodeinit.Value Then With cell .Interior.ColorIndex = UserForm1.colorcodefin.Value End With End If Next cell End Sub Однако, когда я пытаюсь запустить, он не регистрируется для начального цвета, который я устанавливаю, следующее работает […]
Поэтому я пытаюсь скопировать форму для архива / трекера для Excel VBA для моей работы, и я очень новичок в excel vba. Любая помощь приветствуется. По сути, я хочу, чтобы моя пользовательская форма вводила дату выставления счета в нижней таблице, а затем берет сумму выбранных частей (A1-A19) и вводит сумму в ближайшую, пустую ячейку слева […]
Я нашел здесь код VB, но мне нужен он для VBA. Прочитав этот код, я попытался возиться с этим кодом , но все еще пытаюсь понять его. Кроме того, у кого-то еще была эта проблема, как показано здесь , но явного решения не было. Код, с которым я работаю: Sub Image1Insert() Application.ScreenUpdating = False Dim […]
У меня есть файл Excel в Excel 2013 с тремя пользовательскими формами, которые являются интерфейсом доступа к бэкенду доступа. При запуске формы и попытке идти туда и обратно между формой и другой книгой Excel, которая имеет данные для вырезания и вставки в пользовательскую форму, которую я нахожу, Excel не позволит мне щелкнуть по любой ячейке […]
Я написал этот код, но он дает мне # N / A. Dim item item=Application.VLookup(CB1.Value,Worksheets("Shete1").Range("D1").CurrentRegion, 1, False) Столбец D – это имя элемента, а столбец a – его номер, и я хочу, чтобы номер элемента сохранялся в элементе.