<em>Excel</em> VBA 问题：如何定义全局变量？

vba的excel里能定义全局数组变量。
public arr() as string
写在代码的最前面。

声明全局变量可以在文档任何位置（来For循环、If判断内除外）。比如：
Option Explicit
Public a As String
Sub aa()
a = "public"
MsgBox a
End Sub
以上自代码可执行。

--------------------------------
Option Explicit
Public a As String
Sub aa()
a = "public"
MsgBox a
Dim i As Single
For i = 1 To 6
Public b As Single
b = i
MsgBox b
Next
End Sub
以上代码提示：
编译错误:
Sub 或 Function 中的属zhidao性无效
以上。

放在代码窗口的声明区就可以

看到那条横线吗？放在横线上面就行，抄如果你的代码窗口没有看到横线，直接放到最上面第一行就好了。另外你的后面两句不能放到声明区，这个赋值语句放到你最先执行zd的sub里面，或者Workbook_Open()里面。

声明全局变量可以在文档任何位置来（For循环、If判断内除外）。比自如：
Option Explicit
Public a As String
Sub aa()
a = "public"
MsgBox a
End Sub
以上代码可执行。

Option Explicit
Public a As String
Sub aa()
a = "public"
MsgBox a
Dim i As Single
For i = 1 To 6
Public b As Single
b = i
MsgBox b
Next
End Sub
以上代码提示：
编译错误:
Sub 或 Function 中的属性zd无效
以上。