Я пытаюсь создать двухэтапную форму. Пользователь заполняет форму 1, нажимает «Далее», заполняет форму 2, нажимает «Отправить», и значения из формы 1 и 2 будут выводиться в Excel.
Я опробовал подход с использованием глобальных переменных, чтобы передать значения, введенные в форме 1, в форму 2, а затем вывести их из формы 2 в электронную таблицу Excel, но я не получил правильный вывод.
Допустим, я хочу ввести IPNum в Form1 и инциденты в Form2.
В модулях
Option Explicit
Public IPNum as String
В Form1 Private Sub Form1_Initialize ()
IPNum = tbIPNum
В Form2 Private Sub CommandButton1_Click ()
Dim ssheet as Worksheet
Set ssheet = ThisWorkBook.Sheets"Sheet1"
nr = ssheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ssheet.Cells(nr, 1) = IPNum
ssheet.Cells(nr, 2) = Me.tbIncident
Вывод из Form2 с использованием Me.tbIncident, как и ожидалось, но вывод для глобальной переменной IPNum всегда равен нулю.
Редактировать
конечная цель:
Я надеюсь сделать мою 2-ю форму динамической, чтобы можно было использовать несколько записей с немного разными данными.
1028 * Е.Г. *
Input1 Input2 Input3
Entry A B C
Entry A B D
Entry A B E
Из которых Input1 и Input2 находятся в Form1, а Input3 в Form2. Цель состоит в том, чтобы быстро и легко вывести все 3 строки в Excel без необходимости повторного ввода дублирующейся информации (находится в форме Form1).