excel - 运行调用该模块的程序后,在另一个模块中访问模块的变量?

  显示原文与译文双语对照的内容
0 0

我有一个带有 2个按钮的excel文件,可以访问两个不同的模块。 我们可以在运行调用该模块的程序之后,在另一个模块中访问一个模块的变量?

我的模块看起来像这样 enter image description here

第一个模块。

Public Sub Directory_Path()
Dim Directory As String
 Directory = InputBox("Enter the Directory path that contains folders""This Quarter"",""Last Quarter"",""Second_Last_Quarter"".")
 If Right(Directory, 1) ="" Then
 Directory = Left(Directory, Len(Directory) - 1)
 End If
End Sub

我使用 public 子 Directory_Path() 调用 2nd 模块中的第一个模块。 要将第一个模块中的目录变量用作 2nd 模块中的变量。

时间:原作者:6个回答

0 0

在 1st 模块中- 将目录声明为位于任何子/函数之外的模块顶部的public 。 现在,该项目中的每个模块都可以使用:

Public Directory As String
Sub Directory_Path()
 Directory = InputBox("Enter the Directory path that contains folders""This Quarter"",""Last Quarter"",""Second_Last_Quarter"".")
 If Right(Directory, 1) ="" Then
 Directory = Left(Directory, Len(Directory) - 1)
 End If
End Sub

在 2nd 模块中,只要在需要的地方使用 Directory 名称即可。 例如:

MsgBox"The directory path is" & Directory
原作者:
...