小李是公司会计。每天需要处理的Excel工作表有几十个，数量非常大。为了方便工作，小李需要在Excel工作簿中创建一个目录。此目录包含超链接，单击这些超链接可以进入相应的工作表。如果工作簿中的工作表有任何更改，也可以快速更新。
这个要求其实可以通过Excel的宏命令来完成，因为不同表单的具体情况不一样。下面是一个经典的宏代码，是小李灿根据实际需要修改的。
Excel宏代码段：
私有子工作表_Activate()
将sh显示为工作表
将a作为整数变暗
将R标注为整数
//当目录工作表被激活时，自动创建工作簿中除目录工作表之外的所有工作表的目录。
R=工作表1。[A65536]。结束(xlUp)。排
a=2
Ifsheet1.cells (2，1 1)' ' Then///确定是否存在工作表目录。
工作表1。范围(' A2:A' R)。清除内容
如果…就会结束
对于工作表中的每个sh
如果嘘。代号为“Sheet1”
工作表1。单元格(a，1)。值=sh。名字
a=a 1
如果…就会结束
然后
末端接头
提示：由于该功能是通过编辑宏代码实现的，所以编辑后的工作簿必须保存为“Excel启用宏的工作簿(*。xlsm)”。下次重新打开此工作簿时，将会警告您宏已被禁用。只需单击警告栏中的启用内容。
