VBA实现工作表间层次链接

文: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   

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

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

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

分享到: