VBA自学应用（5）——为工作簿建立目录

star星梦

于 2019-12-31 12:01:05 发布

阅读量824

点赞数 1

分类专栏： VBA自学应用

本文链接：https://blog.youkuaiyun.com/qq_24818403/article/details/103780385

版权

平时我们工作表太多了，想给他建立一个目录吗，该怎么做到呢？这里我以自己常用的为例。
在这里插入图片描述
如图我有很多日期的工作表，现在我要把它做成下面的效果

这里注意：我是以每个工作表第一列作为工作表目录的名称，所以在每个工作表第一列的的字段都会列入"目录"工作表

代码如下：

Sub 刷新()
    Application.ScreenUpdating = False
    Dim sht As Worksheet
    Dim i As Long, j As Long, k As Long
    Cells.Clear
    Range("a1:b1") = Array("日期", "目录")
    With Range("a1:b1")
        .Font.Bold = True
        .Font.Color =