Создание двухэтапной формы, которая передает значение из формы Form1 в форму Form2, а затем выводит ее в Excel - PullRequest
0 голосов
/ 11 января 2019

Я пытаюсь создать двухэтапную форму. Пользователь заполняет форму 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).

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...