这段代码怎么解释？

czr0373 · 发表于 2018-8-17 13:40

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   i = 2
   Do
   If i <> Sh.Index Then Worksheets(i).Visible = False
   i = i + 1
Loop Until i > Worksheets.Count
End Sub

我是来讨说法的 · 发表于 2018-8-17 15:02

三颗星星了，140个主题了，是不是应该反思一下自己的学习态度呢

不知道为什么 · 发表于 2018-8-17 15:10

我是来讨说法的发表于 2018-8-17 15:02
三颗星星了，140个主题了，是不是应该反思一下自己的学习态度呢

呵呵，这是多么奢侈的要求啊

不知道为什么 · 发表于 2018-8-17 16:09

这段代码得目的是除 sheets2 表外得所有worksheet 表都隐藏！

czr0373 · 发表于 2018-8-17 16:30

不知道为什么发表于 2018-8-17 16:09
这段代码得目的是除 sheets2 表外得所有worksheet 表都隐藏！

不对呀，表2也隐藏了

不知道为什么 · 发表于 2018-8-17 16:34

czr0373 发表于 2018-8-17 16:30
不对呀，表2也隐藏了

此表2 非彼表2.codename 和 name 的区别把。到VBE 看看表的名称就有体会了

jiminyanyan · 发表于 2018-8-17 16:37

czr0373 发表于 2018-8-17 16:30
不对呀，表2也隐藏了

除了激活的那个和第一个，其他都隐藏。。。

liulang0808 · 发表于 2018-8-17 16:46

楼主有附件，可以自行测试的
正常情况下这是个工作薄事件，在thisWorkbook下，当某个表格被激活，就会从左侧第二张表位置开始向右循环遍历，如果激活表的编号跟遍历到的表编号不一致，就隐藏该工作表。大概这个意思吧

		自动登录	找回密码
密码			免费注册

[求助] 这段代码怎么解释？

评分

评分

评分

评分