Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/spring/11.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 共享跨专用模块存储的变量_Vba_Excel - Fatal编程技术网

Vba 共享跨专用模块存储的变量

Vba 共享跨专用模块存储的变量,vba,excel,Vba,Excel,谁能告诉我,我有两个私有模块,其中我在模块1中存储了一个值,例如TotalFoundIssues=166。这个值存储在模块1中,我需要在模块2中使用,比如如果TotalFoundIssues大于100,那么就这样做。。。。。我已经看到许多解决方案,但它们不起作用,因为它们涉及到我需要避免的全球或公共问题 您可以通过只读公共属性公开它: Private mTotalFoundIssues As Long Public Property Get TotalFoundIssues() As Long

谁能告诉我,我有两个私有模块,其中我在模块1中存储了一个值,例如TotalFoundIssues=166。这个值存储在模块1中,我需要在模块2中使用,比如如果TotalFoundIssues大于100,那么就这样做。。。。。我已经看到许多解决方案,但它们不起作用,因为它们涉及到我需要避免的全球或公共问题

您可以通过只读公共属性公开它:

Private mTotalFoundIssues As Long

Public Property Get TotalFoundIssues() As Long
    TotalFoundIssues = mTotalFoundIssues
End Property

这来自于“Mastering VBA for Microsoft Office 2016”:“Private关键字限制宏的作用域-它可以操作的区域。Private scope使宏可用于包含它的模块中的所有过程,但不可用于其他模块中的过程”让模块1成为一个类,并在模块2中实例化一个对象。如果您需要共享一个值,那么是否可以将其自身放在非私有模块中?