訪問VBA中的全局變量（Excel）

Question

我從來沒有在VBA中使用全局變量，但我知道全局變量是在函數/子聲明之外實例化的嗎？

我有一個全局（公共）變量聲明在模塊的頂部，然後由同一模塊內的子例程賦予值0。每當打開工作簿

Option Explicit 
Public NumNodes As Integer 

Sub Inst_Glob_Vars() 
NumNodes = 0 
End Sub 

該子程序被調用（子被稱爲在「的ThisWorkbook」對象），這也將實例全局變量和設定值0。

Option Explicit 

Private Sub Workbook_Open() 
Call Inst_Glob_Vars 
End Sub 

我在excel表單中有一個按鈕，單擊它時會增加這個全局變量。此按鈕的定義位於Sheet1對象中。

Private Sub CommandButton2_Click() 
'NumNodes = NumNodes + 1 
Debug.Print "NumNodes = " & NumNodes 'Debug 
End Sub 

我需要每一個模塊中聲明全局/公共變量/使用變量對象？每次點擊按鈕，變量都不會遞增，但在調試時會給出一個空/空值。我肯定沒有正確地聲明我的全局變量，但不知道我在哪裏犯錯誤。

更新：這裏是更新的命令按鈕子。如果我註釋掉第二個子調用（Node_Button_Duplication），一切正常。機會是它可能是子，這是造成問題...

Private Sub CommandButton2_Click() 
Call Channel_Selection_Duplication 
Call Node_Button_Duplication 
NumNodes = NumNodes + 1 
Debug.Print "NumNodes = " & NumNodes 'Debug 
End Sub 

兩個Channel_Selection_Duplication和Node_Button_Duplication都是相同的獨立模塊中定義：

Option Explicit 

Public Sub Channel_Selection_Duplication() 
' 
' Description: Macro which duplicates the 'Channel Usage Selection' columns at a specific cell reference 

    Range("Q8:S8").Select 
    With Selection 
     .HorizontalAlignment = xlCenter 
     .VerticalAlignment = xlBottom 
     .WrapText = False 
     .Orientation = 0 
     .AddIndent = False 
     .IndentLevel = 0 
     .ShrinkToFit = False 
     .ReadingOrder = xlContext 
     .MergeCells = False 
    End With 
    Selection.Merge 
    Range("Q8:S8").Select 
    ActiveCell.FormulaR1C1 = "Channel Usage Selection" 
    Range("Q8:S52").Select 
    Range("Q52").Activate 
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone 
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone 
    With Selection.Borders(xlEdgeLeft) 
     .LineStyle = xlContinuous 
     .Weight = xlThin 
     .ColorIndex = xlAutomatic 
    End With 
    With Selection.Borders(xlEdgeTop) 
     .LineStyle = xlContinuous 
     .Weight = xlThin 
     .ColorIndex = xlAutomatic 
    End With 
    With Selection.Borders(xlEdgeBottom) 
     .LineStyle = xlContinuous 
     .Weight = xlThin 
     .ColorIndex = xlAutomatic 
    End With 
    With Selection.Borders(xlEdgeRight) 
     .LineStyle = xlContinuous 
     .Weight = xlThin 
     .ColorIndex = xlAutomatic 
    End With 
    With Selection.Borders(xlInsideVertical) 
     .LineStyle = xlContinuous 
     .Weight = xlThin 
     .ColorIndex = xlAutomatic 
    End With 
    With Selection.Borders(xlInsideHorizontal) 
     .LineStyle = xlContinuous 
     .Weight = xlThin 
     .ColorIndex = xlAutomatic 
    End With 
    Range("Q8:S8").Select 
    Selection.Interior.ColorIndex = 36 

'NumNodes = NumNodes + 1 
'Debug.Print NumNodes 
End Sub 

Public Sub Node_Button_Duplication() 

    ActiveSheet.Shapes("CommandButton1").Select 
    Selection.Copy 
    Range("Q5").Select 
    ActiveSheet.Paste 
    Selection.ShapeRange.IncrementTop -14.25 
End Sub 

Answer 1

一個模塊中粘貼此

Option Explicit 

Public myVar As Long 

將此粘貼到工作表1中的命令按鈕單擊事件中

Option Explicit 

Private Sub CommandButton1_Click() 
    myVar = myVar + 1 
    MsgBox myVar 
End Sub 

現在試試吧。

此外，您不需要在Workbook_Open事件中將值設置爲0 :)打開工作簿時默認值爲0。

隨訪

我感覺複製和電子表格中的粘貼的控制元件以某種方式重置變量。我正在試圖找到一個解決方案... - user1373525 6分鐘前

是的:)添加按鈕重新編譯VBA代碼，因此全局變量得到重置。使用Temp Sheet來保存變量。如果你點擊，當你在一個去執行它兩次，但不是按鈕亞洲時報Siddharth潰敗剛纔

此行爲僅觀察到 - 你也可以使用註冊表來存儲信息:)。例如，

Private Sub CommandButton2_Click() 
    NumNodes = NumNodes + 1 
    MsgBox NumNodes, vbInformation, "1" 

    Node_Button_Duplication 

    NumNodes = NumNodes + 1 
    MsgBox NumNodes, vbInformation, "2" 

    Node_Button_Duplication 

    NumNodes = NumNodes + 1 
    MsgBox NumNodes, vbInformation, "3" 
End Sub 

在這種情況下，它會始終增加值。但是，下次單擊按鈕時，您會注意到該變量已被重置。