想知道这么酷的效果是怎么做出来的吗？（Deactivate）
经常见到一些高手做的类似管理系统的表，简单举个例子如下：
当打开工作簿时，我们看到的只有一张表，首页，当点击入库时，会自动跳转到入库表中，点击返回，又返回首页，同时入库表消失。
这有点类似与小的管理系统的界面，简单明了，不需要的表全部隐藏了，需要再显示出来，用完了就消失不见了。
那么这是怎么做出来的呢？
第一步：
点击入库进入到入库明细，这个很简单，我们用前面章节讲过的SelectionChange事件就可以实现，代码如下：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address(0, 0)
Case ‘C7’
Sheets(‘入库’).Activate
Case ‘E7’
Sheets(‘出库’).Activate
Case ‘G7’
Sheets(‘费用’).Activate
End Select
End Sub
当选择的单元格地址为某个值，就把对应的工作表变为活动工作表，这个代码我们是要写到首页这个工作表对应的代码里的。
第二步：
下面分别的在入库、出库、费用、工作表对应的代码表窗口里输入：
这里就用到了今天要讲的事件，Deactivate事件，及当工作表失去激活时要发生的事件，所以当我们点击返回时，就意味首页要变为活动工作表了，这时代码就会生效。
Me.Visible = xlSheetHidden
表示本工作表的可见性属性为隐藏，后面的代码是隐藏的意思，我们通过属性窗口也能看到可见性的属性，所以后面的代码直接改成数字也可以。
第三步：
当第二步结束后，我们再返回到首页时，入库、出库、费用工作表就隐藏起来了，首页里的代码跳转到对应的各个工作表也无法跳转过去了，所以我们要再对首页里的代码进行修改，在跳转前先显示该工作表。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address(0, 0)
Case ‘C7’
Sheets(‘入库’).Visible = -1
Sheets(‘入库’).Activate
Case ‘E7’
Sheets(‘出库’).Visible = -1
Sheets(‘出库’).Activate
Case ‘G7’
Sheets(‘费用’).Visible = -1
Sheets(‘费用’).Activate
End Select
End Sub
经过上面的三步，就可以完整的实现上面的效果了！做这么一个表，别人看着都会眼前一亮吧！
百度搜索“哪个妞污”,专业资料,生活学习,尽在哪个妞污网ngn5.com,您的女娲在线图书馆!
欢迎转载，请注明文章来源：女娲社区 哪个妞污? 那个妞污！