一段程序的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

很菜的问题
表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没看几天，请大侠指点，口下留情

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：worksheet activate Private sheets Select 程序

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

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

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

[em03]