|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
原帖由 赵国辉 于 2009-12-13 23:01 发表
学习了,不过有句话似乎有点歧义,或者说其他途径能够实现
Sub test()
Dim sh1 As Sheet1
Dim sh2 As Sheet1
Set sh1 = Sheet1
Set sh2 = Sheet1
MsgBox sh1.Name
MsgBox sh2.Name
...
你的理解有偏差, 你代码中的sh1 和 sh2 是同一个东西, 对sh1 做任何操作,sh2都会一样跟着变化,
就像你的客户叫你赵先生,你的同事叫你小赵一样,都是你. 小赵吃饭去了,那赵先生当然也是吃饭去了.
你建一个窗体,然后运行下面代码, 这个代码中 sh1 和 sh2 是不同的.
Sub test()
Dim sh1 As New UserForm1
Dim sh2 As New UserForm1
sh1.Caption = "123"
sh2.Caption = "456"
sh1.Show 0
sh2.Show 0
sh2.Left = sh1.Left + 200
msgbox sh1 is sh2
End Sub |
|