一段程序的问题 - 经管之家

1516

收藏 2010-07-23

很菜的问题
表1的一个事件程序
Private Sub Worksheet_Activate()
If Sheets(1).Name Like "sheet1" Then
Sheets(1).Select
Else
Sheets(2).Select
End If
End Sub
这是一个禁止查看工作表1的程序，一旦点击工作表1就会跳到工作表2，但是怎么也看不明白。
我的解读：1.当表1为当前活动表时
2.如果第一个表是“sheet1”，则选择第一张表，表1为活动表
否则，则选择第二张表，表2为活动表
怎么会点表1然后跳到表2呢？
vba没看几天，请大侠指点，口下留情

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复

controlpanel

2010-7-28 08:32:23

Worksheet_Activate
是激活宏所在sheet 时运行的宏

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

henrryzhang

2010-7-29 11:38:46

这段代码的关键在于“If Sheets(1).Name Like "sheet1" Then”

你注意看like后的值是 sheet1 ，而默认的描写是 Sheet1 ，所以就导致不论你怎么选择sheet1工作表，这个判断总是不会执行条件1，如果你试着把工作表Sheet1 的标签名称中的S 改为小写的s，条件1就有为真的机会了。