我从来没有在VBA中使用全局变量,但我知道全局变量是在函数/子声明之外实例化的吗?访问VBA中的全局变量(Excel)
我有一个全局(公共)变量声明在模块的顶部,然后由同一模块内的子例程赋予值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
你必须申报一次。你可以在任何模块中完成:)请向我们展示代码。同时向我们展示如何增加变量? –