Excel VBA 質問スレ Part75

[757 デフォルトの名無しさん (ﾜｯﾁｮｲ 7ba5-L4Li) 2022/04/11(月) 21:59:21.11 ID:Kyp6sDnX0]

オブジェクトの代入を同一プロジェクトで使いまわすことはできるでしょうか？

Public ws1 as worksheet
Module1
Sub test1()
Set ws1 = Worksheets("Sheet1")
ws1.Range("A1") = "Test1"
End Sub

Module2
Sub test2()
Set ws1 = Worksheets("Sheet1")
ws1.Range("A2") = "Test2"
End Sub

これを下記のようにできないかな、ということです。

Public ws1 as worksheet
Set ws1 = Worksheets("Sheet1")

Module1
Sub test1()
ws1.Range("A1") = "Test1"
End Sub

Module2
Sub test2()
ws1.Range("A2") = "Test2"
End Sub