为什么这个简单的赋值语句不起作用(vba)?

德万什

由于我是 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

(所有变量都是全局的)当我尝试打印这些值时,没有打印任何值。我不明白我哪里出错了?如果你能帮我解决这个问题,那将是很大的帮助。提前致谢。:)

YoE3K

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

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

为什么这个简单的enable_if不起作用?

来自分类Dev

为什么这个简单的搜索不起作用?

来自分类Dev

为什么这个简单的REGEX不起作用?

来自分类Dev

为什么这个简单的onclick函数不起作用

来自分类Dev

为什么这个简单的ave函数不起作用

来自分类Dev

为什么这个简单的内容滑块不起作用?

来自分类Dev

为什么这个简单JAX RS示例不起作用?

来自分类Dev

为什么这个简单的htaccess规则不起作用

来自分类Dev

为什么这个简单的javascript代码不起作用?

来自分类Dev

Django:为什么这个简单的标签不起作用?

来自分类Dev

为什么这个简单的CRON作业不起作用?

来自分类Dev

为什么这个简单的JavaScript代码段不起作用

来自分类Dev

为什么这个简单的jQuery单击事件不起作用?

来自分类Dev

为什么这个简单的JAX RS示例不起作用?

来自分类Dev

为什么这个简单的enable_if不起作用?

来自分类Dev

为什么这个简单的php脚本不起作用?

来自分类Dev

为什么这个简单的htaccess规则不起作用

来自分类Dev

这个简单的python代码,为什么不起作用?

来自分类Dev

为什么这个简单的继承不起作用?

来自分类Dev

为什么这个简单的存储过程不起作用

来自分类Dev

为什么这个同步语句示例不起作用?

来自分类Dev

为什么这个同步语句示例不起作用?

来自分类Dev

为什么这个 if else 语句不起作用 - 水壶 javascript

来自分类Dev

为什么此VBA if语句不起作用?

来自分类Dev

为什么这个for()循环不起作用?

来自分类Dev

为什么这个jQuery不起作用?

来自分类Dev

为什么这个jQuery不起作用?

来自分类Dev

为什么这个for()循环不起作用?

来自分类Dev

为什么这个removeDuplicate不起作用?

Related 相关文章

  1. 1

    为什么这个简单的enable_if不起作用?

  2. 2

    为什么这个简单的搜索不起作用?

  3. 3

    为什么这个简单的REGEX不起作用?

  4. 4

    为什么这个简单的onclick函数不起作用

  5. 5

    为什么这个简单的ave函数不起作用

  6. 6

    为什么这个简单的内容滑块不起作用?

  7. 7

    为什么这个简单JAX RS示例不起作用?

  8. 8

    为什么这个简单的htaccess规则不起作用

  9. 9

    为什么这个简单的javascript代码不起作用?

  10. 10

    Django:为什么这个简单的标签不起作用?

  11. 11

    为什么这个简单的CRON作业不起作用?

  12. 12

    为什么这个简单的JavaScript代码段不起作用

  13. 13

    为什么这个简单的jQuery单击事件不起作用?

  14. 14

    为什么这个简单的JAX RS示例不起作用?

  15. 15

    为什么这个简单的enable_if不起作用?

  16. 16

    为什么这个简单的php脚本不起作用?

  17. 17

    为什么这个简单的htaccess规则不起作用

  18. 18

    这个简单的python代码,为什么不起作用?

  19. 19

    为什么这个简单的继承不起作用?

  20. 20

    为什么这个简单的存储过程不起作用

  21. 21

    为什么这个同步语句示例不起作用?

  22. 22

    为什么这个同步语句示例不起作用?

  23. 23

    为什么这个 if else 语句不起作用 - 水壶 javascript

  24. 24

    为什么此VBA if语句不起作用?

  25. 25

    为什么这个for()循环不起作用?

  26. 26

    为什么这个jQuery不起作用?

  27. 27

    为什么这个jQuery不起作用?

  28. 28

    为什么这个for()循环不起作用?

  29. 29

    为什么这个removeDuplicate不起作用?

热门标签

归档