各位大神求助！

用心修炼

如何在在模块中引用工作薄代码下的变量啊！
在工作簿打开事件下写的：
Public q&
private Sub Workbook_Open()
q = Worksheets("付款台帐").Cells(Rows.Count, "A").End(xlUp).Row
MsgBox q
End Sub
能够正常返回值：100

然后在模块中写到：

sub test()
  msgbox q
end sub

此时q没有任何数据，该怎么写啊！

abc123281

sub test()
   q = Worksheets("付款台帐").Cells(Rows.Count, "A").End(xlUp).Row
   msgbox q
end sub

用心修炼

abc123281 发表于 2018-3-17 17:22
sub test()
   q = Worksheets("付款台帐").Cells(Rows.Count, "A").End(xlUp).Row
   msgbox q

谢谢，但我的意思是：想在模块中调用工作薄代码里面的公共变量。因为在工作中遇到一个问题，比如sheet1是我的数据源表，打开sheet1后，在数据源表A列最后一个非空单元格下面增加2行数据或者是更多行数据，如何只获取新增加内容的单元格地址。我的思路是：在thisworkbook打开事件下，定义一个全局变量，工作薄打开之后就把数据源表当前A列最后一个非空单元格的行号赋值给这个变量。那么当在数据源表中增加两行数据时，再在模块中定义一个变量n，同样把A列新增完数据之后的最后一个非空单元格的行号赋值给n，此时用n-q就能知道增加了几行数据。不知道我的思路对不对，求大神指教，或者有更好的办法

xiaocake

用心修炼 发表于 2018-3-17 18:13
谢谢，但我的意思是：想在模块中调用工作薄代码里面的公共变量。因为在工作中遇到一个问题，比如sheet1是 ...

你这是要把自己逼上绝路的节奏啊。
如果要定义全局变量，那就在模块中定义，这样定义的全局变量在整个工作簿都可以用。