宣告全域性變數可以在文件任何位置（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 中的屬性無效

以上。

1、宣告一個變數並且給它賦值。

2、定義一個宏函式，用於顯示全域性變數是否有值。

3、單擊執行宏命令，透過按control +Q, 如圖，提示框沒有提示。

4、然後改一下全域性變數宣告的位置。

5、再按一下Control+Q會得到提示框，如圖所示。