关于vba公共变量

其实是2个问题，昨天才开始接触VB，不是很了解，求教各位大神

1.我在一个VBA中有几个sub程序，里面都用到了同一张表，如果每次在每个sub里
set ws = ThisWorkbook.Sheets(1)
感觉很麻烦，能不能在外面声明一个公共变量来代替
2.其实也是上面那个问题的子问题，我发现如果直接采用
data=Sheets("Sheet1").Cells(1,1)
这样的写法，当我自动运行的时候，打开其他的excel就会报错，是不是用thisworkbook的方式就可以保证运行范围在原本这个excel里

---

我自己解决了
我的办法是

Public ws As Worksheet

Public sub Auto_Open()
set ws = ThisWorkbook.Worksheets(1)
End sub

这样就能够在启动的时候就自动全局声明，虽然还是有点不方便，不过好歹能用了

---

第一个问题可以这样：

Public ws As Worksheet

Sub test()
    Set ws = ThisWorkbook.Worksheets(1)
End Sub

Sub test1()
    Call test
    ws.Cells(1, 1) = 1
End Sub

Sub test2()
    Call test
    ws.Cells(1, 1) = 1
End Sub

按理说在某个过程里给全局变量赋值后就可以在其他过程使用了，然而不知道为什么这个不行，所以只能多写一行，在每个过程里call一下赋值的过程了。

第二个问题没看懂。