我写了以下代码：
Function find_results_idle()
Public iRaw As Integer
Public iColumn As Integer
iRaw = 1
iColumn = 1
我收到了以下错误信息：
"Sub或Function中的属性无效"
你知道我做错了什么吗？
我尝试使用Global代替Public，但是出现了同样的问题。
我尝试将函数本身声明为`Public`，但这也没有用。
我需要怎么做才能创建全局变量呢？
你需要在函数外部声明变量：
Public iRaw As Integer
Public iColumn As Integer
Function find_results_idle()
iRaw = 1
iColumn = 1
这是有关于作用域的问题。
如果你只希望变量在函数生命周期内存在，可以在函数或子程序中使用 Dim（缩写为Dimension），声明变量：
Function AddSomeNumbers() As Integer
Dim intA As Integer
Dim intB As Integer
intA = 2
intB = 3
AddSomeNumbers = intA + intB
End Function
'intA and intB are no longer available since the function ended
全局变量（正如SLaks所指出的）是在函数之外使用Public关键字声明的。 这个变量将在您运行应用程序的生命周期内可用。 在Excel的情况下，这意味着只要特定的Excel工作簿打开，变量就会可用。
Public intA As Integer
Private intB As Integer
Function AddSomeNumbers() As Integer
intA = 2
intB = 3
AddSomeNumbers = intA + intB
End Function
'intA and intB are still both available. However, because intA is public, '
'it can also be referenced from code in other modules. Because intB is private,'
'it will be hidden from other modules.
你还可以使用Private关键字声明仅在特定模块（或类）内部可访问的变量。
如果您正在构建一个大型应用程序，并且感觉需要使用全局变量，我建议创建一个专门用于全局变量的单独模块。这将帮助您在一个地方跟踪它们。
要使用全局变量，在VBA项目UI中插入新模块，并使用 Global 声明变量。
Global iRaw As Integer
Global iColumn As Integer
Public 关键字和使用 Global 关键字有什么区别？ - Przemyslaw Remin这个问题实际上是关于范围的，就像那个人所说的那样。
简而言之，请考虑这个“模块”：
Public Var1 As variant 'Var1 can be used in all
'modules, class modules and userforms of
'thisworkbook and will preserve any values
'assigned to it until either the workbook
'is closed or the project is reset.
Dim Var2 As Variant 'Var2 and Var3 can be used anywhere on the
Private Var3 As Variant ''current module and will preserve any values
''they're assigned until either the workbook
''is closed or the project is reset.
Sub MySub() 'Var4 can only be used within the procedure MySub
Dim Var4 as Variant ''and will only store values until the procedure
End Sub ''ends.
Sub MyOtherSub() 'You can even declare another Var4 within a
Dim Var4 as Variant ''different procedure without generating an
End Sub ''error (only possible confusion).
要了解更多关于变量声明的内容，可以参考这个MSDN 参考，对于变量超出作用域的情况，可以查看这个Stack Overflow 问题。
另外还有两点需要注意：
Dim iRaw As Integer
Dim iColumn As Integer
Function find_results_idle()
iRaw = 1
iColumn = 1
End Function
Function this_can_access_global()
iRaw = 2
iColumn = 2
End Function
Private Const SrlNumber As Integer = 910
Private Sub Workbook_Open()
If SrlNumber > 900 Then
MsgBox "This serial number is valid"
Else
MsgBox "This serial number is not valid"
End If
End Sub
它已在Office 2010上进行了测试
我认为最好的方法是将属性分配给工作簿
只要工作簿保持打开状态，它的范围就有效。
Public WhenOpened As Date
Private Sub Workbook_Open()
ThisWorkbook.WhenOpened = Now()
End Sub
在General Declaration中创建一个公共整数。
然后在您的函数中，每次可以增加其值。 请参见示例（将电子邮件的附件保存为CSV的函数）。
Public Numerator As Integer
Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim FileName As String
saveFolder = "c:\temp\"
For Each objAtt In itm.Attachments
FileName = objAtt.DisplayName & "_" & Numerator & "_" & Format(Now, "yyyy-mm-dd H-mm-ss") & ".CSV"
objAtt.SaveAsFile saveFolder & "\" & FileName
Numerator = Numerator + 1
Set objAtt = Nothing
Next
End Sub
Option Compare Database
Option Explicit
''***********************************''
' Name: Date: Created Date Author: Name
' Current Version: 1.0
' Called by:
''***********************************''
' Notes: Explain Who what when why...
' This code Example requires properties to be filled in
''***********************************''
' Global Variables
Public GlobalData As Variant
''***********************************''
' Private Variables
Private ObjectReference As Object
Private ExampleVariable As Variant
Private ExampleData As Variant
''***********************************''
' Public properties
Public Property Get ObjectVariable() As Object
Set ObjectVariable = ObjectReference
End Property
Public Property Get Variable1() As Variant
'Recommend using variants to avoid data errors
Variable1 = ExampleVariable
End property
''***********************************''
' Public Functions that return values
Public Function DataReturn (Input As Variant) As Variant
DataReturn = ExampleData + Input
End Function
''***********************************''
' Public Sub Routines
Public Sub GlobalMethod()
'call local Functions/Subs outside of form
Me.Form.Refresh
End Sub
''***********************************''
' Private Functions/Subs used not visible outside
''***********************************''
End Code
Public Sub Method1(objForm as Object)
'read/write data value
objForm.GlobalData
'Get object reference (need to add Public Property Set to change reference object)
objForm.ObjectVariable
'read only (needs Public property Let to change value)
objForm.Variable1
'Gets result of function with input
objForm.DataReturn([Input])
'runs sub/function from outside of normal scope
objForm.GlobalMethod
End Sub
Function/Sub之上，而不仅是在外部：_"模块级变量可以通过在模块顶部使用Dim或Private语句进行声明，在第一个过程定义的上方。"_（来自Visual Basic for Applications中变量的作用域） - Nickolay