为什么这个简单的赋值语句不工作（vba）？

Question

由于我是vba脚本编程的新手，我无法弄清楚在这个简单的赋值语句中哪里出错了。 我已经在ThisWorkBook中初始化了我的变量并尝试使用sheet1中的变量。

代码：

Public count1 As Integer 
Public count2 As Integer 
Public count3 As Integer 
Public row13 As Integer 
Public srow8 As Integer 
Public erow8 As Integer 
Private Sub Workbook_Open() 

count1 = 18 
count2 = 26 
count3 = 26 
Sheet1.setValues 
Sheet1.getValues 
End Sub 

Sub setValues() 
row13 = ThisWorkbook.count1 
Debug.Print (row13) 
srow8 = ThisWorkbook.count2 
erow8 = ThisWorkbook.count3 
End Sub 

Sub getValues() 
Debug.Print ("row13") 
Debug.Print (row13) 
Debug.Print ("srow8") 
Debug.Print (srow8) 
Debug.Print ("erow8") 
Debug.Print (srow8) 
End Sub 

（所有变量都是全局） 当我尝试打印这些值没有印刷价值。 我不明白我哪里错了？ 如果你能帮助我，这将是很大的帮助。 在此先感谢。 :)

Answer 1

Public变量可以从您的代码的任何区域访问，而不仅仅是它们定义的对象。这并不意味着您不需要指定它们在您想要引用它们时所处的对象因此，例如，包含在您的ThisWorkbook对象中的对象将被称为ThisWorkbook.count1等。为了避免使用相关对象限定变量，可以在标准代码模块中使变量Public。

我相信你正在尝试做如下：

在你ThisWorkbook代码模块：

Private Sub Workbook_Open() 
    count1 = 18 
    count2 = 26 
    count3 = 26 
    Sheet1.setValues 
    Sheet1.getValues 
End Sub 

在你Sheet1代码模块：

Sub setValues() 
    row13 = count1 
    Debug.Print row13 
    srow8 = count2 
    erow8 = count3 
End Sub 

Sub getValues() 
    Debug.Print "row13" 
    Debug.Print row13 
    Debug.Print "srow8" 
    Debug.Print srow8 
    Debug.Print "erow8" 
    Debug.Print srow8 
End Sub 

在通用代码模块（可能是Module1）：

Public count1 As Integer 
Public count2 As Integer 
Public count3 As Integer 
Public row13 As Integer 
Public srow8 As Integer 
Public erow8 As Integer