VBA实现工作表间层次链接

• VBA • 暂无评论 • •3,670 次查阅

文：Kael.Z

工作表间链接

不知道大家看到过这种工作表表格没有？

看到表1，如要看表2和表3，只能通过表1的链接打开,且表2和表3回到表1后，又不可见。很神奇吧!哈哈！想知道看下去！

打开VBA编辑器。输入如下代码即可：

 
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)   
  2.   If Target.Address = "$A$5" Then   ‘当点击"$A$5"单元格时…   
  3.      Sheet2.Visible = 1  ‘表2取消隐藏   
  4.    Sheet2.Activate ‘表2激活   
  5.    ActiveSheet.Range("A1").Select ‘当前表选中A1单元格   
  6. End If   
  7. If Target.Address = "$A$6" Then ‘当点击"$A$6"单元格时…   
  8. Sheet3.Visible = 1  ‘表3取消隐藏   
  9. Sheet3.Activate  ‘表2激活   
  10. ActiveSheet.Range("A1").Select   
  11. End If   
  12. If Target.Address = "$A$7" Then ‘当点击"$A$7"单元格时…   
  13. Sheet2.Visible = 0 ‘表2隐藏   
  14. Sheet3.Visible = 0 ‘表3隐藏   
  15. End If   
  16. End Sub   

  代码解释我已经在后面备注了，也不多说了，大家想知道效果直接复制吧！上面代码只不过是一个简单表述实现过程，当然你想个性化点，完全可以结合控件按钮！

写原创很累人！希望对大家有启发的意义！在此基础上创新！

不懂留言，我会帮助你的!

分享到：

0 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如， ABC是本文的评论者之一，则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all '，将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称▼

沙发空缺中，还不快抢~