首页 > 解决方案 > 创建一个两步表单,将值从 Form1 传递到 Form2,然后输出到 Excel

问题描述

我正在尝试创建一个两步表单。用户填写表格 1,按“下一步”,填写表格 2,按“提交”,表格 1 和表格 2 中的值都将输出到 Excel。

我尝试了全局变量方法,将表格 1 中输入的值传递给表格 2,然后从表格 2 输出到 Excel 电子表格,但我没有得到正确的输出。

假设我想在 Form1 上输入 IPNum,在 Form2 上输入事件。

在模块中

Option Explicit
Public IPNum as String

在 Form1 私有子 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 的输出始终为零。

编辑

最终目标: 我希望使我的第二种形式动态化,以允许具有稍微不同数据的多个条目。

例如

       Input1 Input2 Input3
Entry    A       B      C
Entry    A       B      D
Entry    A       B      E

其中Input1和Input2在Form1上,Input3在Form2上。目标是让我快速轻松地将所有 3 行输出到 Excel 中,而无需重新输入重复信息(在 Form1 中找到)。

标签: excelvba

解决方案


推荐阅读