如何声明可在所有VBA函数中复用的变量？

方法1：模块级变量声明 #

在VBA模块的最顶部（所有子过程/函数之前）声明变量，整个模块里的所有过程都能直接使用这个变量，只需要初始化一次即可：

' 模块顶部声明模块级变量，整个模块内可访问
Dim foodtype As Range

' 初始化变量的过程，建议在工作簿打开时调用
Sub InitFoodType()
    Set foodtype = Worksheets("Sheet1").Range("A1")
End Sub

' 示例函数1：直接使用变量
Sub ProcessFood1()
    MsgBox "当前食物类型：" & foodtype.Value
End Sub

' 示例函数2：直接使用变量
Sub UpdateFoodType()
    foodtype.Value = "水果"
End Sub

注意事项 #

模块级变量在VBA工程重置（比如编辑代码后重新运行、关闭再打开文件）时会丢失引用，所以最好把InitFoodType绑定到工作簿打开事件：

1. 打开ThisWorkbook代码窗口
2. 粘贴以下代码：

   Private Sub Workbook_Open()
       InitFoodType
   End Sub
   

这样每次打开文件都会自动初始化变量。

方法2：用公共函数封装引用 #

如果不想处理变量初始化的问题，可以写一个公共函数，每次需要引用单元格时调用这个函数即可，无需额外声明变量：

' 封装单元格引用的函数
Function GetFoodType() As Range
    Set GetFoodType = Worksheets("Sheet1").Range("A1")
End Sub

' 示例函数1
Sub ShowFoodType()
    MsgBox GetFoodType.Value
End Sub

' 示例函数2
Sub ChangeFoodType()
    GetFoodType.Value = "蔬菜"
End Sub

优缺点对比 #

• 模块级变量：访问效率高，但需要注意初始化，否则容易出现“变量未设置”的错误。
• 函数封装：无需担心变量失效，每次调用都直接获取最新引用，更适合新手，容错性更强。

内容的提问来源于stack exchange，提问作者ratfacehog