excel中用户窗体的全局工作表变量

Question

我正在构建一个将数据添加到工作表的用户表单。我的用户表单有一堆子例程，但是在访问我设置到工作表的变量时遇到问题。它目前是一个局部变量（在子中），并已尝试将其放置在此处讨论的模块中：Can a worksheet object be declared globally in Excel VBA。我做了一些进一步的搜索，但没有完全得到我想要的结果。

我对 VBA 很陌生，对编程也很陌生。我已经使用了很多 Excel，并希望通过使用 VBA 创建宏等来做更多事情。这是我目前正在使用的代码：

sub savebutton_click()
    Dim trees As Worksheet
    Set trees = ThisWorkbook.Sheets("Sheet1")
    trees.Cells(1, 1) = Me.TextTreeName
    trees.Cells(1, 2) = Me.TextTreeType
End sub

显然我无法从另一个子例程访问局部变量，因此我必须将“树”设为全局变量。我创建了一个模块并将 Dim 替换为 Public，将第二行代码放在 Workbook_Open() 中，然后尝试访问“trees”变量。当我点击“调试”时，我得到一个“无效的外部程序”并突出显示 Workbook_Open() 中的代码。

基本上我只是希望能够从任何子系统访问，比如说，trees.Cells(5,6)，我不知道还能用它做什么。有任何想法吗？谢谢！

Answer 1

这一定是放置问题...如果您打开 VBA IDE 并选择 VBAProject 中的 ThisWorkbook 项。双击该项目将其打开，在左上方的下拉列表中选择工作簿，在右上方的下拉列表中选择打开。这将在 ThisWorkbook 对象中创建您的 Workbook_Open Sub：

Private Sub Workbook_Open()
    Set trees = ThisWorkbook.Sheets("Sheet1")
End Sub

右键单击您的 VBAProject 并添加模块。在该模块中放置全局变量：

Public trees As Worksheet

接下来创建表单，将按钮放在上面并双击按钮。这将生成按钮事件：

就我而言：

Private Sub CommandButton1_Click()
     trees.Cells(1, 1) = Me.TextTreeName
     trees.Cells(1, 2) = Me.TextTreeType
End Sub

现在，如果您关闭 Excel 工作簿（先保存代码和工作簿）并重新打开工作簿，Workbook_Open() 将启动并设置工作表。现在调用您的表单，然后单击按钮。这将填充给定工作表上的两个单元格....