{"id":817,"date":"2025-06-06T22:26:35","date_gmt":"2025-06-06T14:26:35","guid":{"rendered":"https:\/\/www.jumoon.top\/?p=817"},"modified":"2026-01-08T22:58:36","modified_gmt":"2026-01-08T14:58:36","slug":"excel-vba-%e8%87%aa%e5%8a%a8%e5%88%9b%e5%bb%ba%e5%b7%a5%e4%bd%9c%e7%b0%bf%e7%9b%ae%e5%bd%95","status":"publish","type":"post","link":"https:\/\/www.jumoon.top\/?p=817","title":{"rendered":"Excel VBA  \u81ea\u52a8\u521b\u5efa\u5de5\u4f5c\u7c3f\u76ee\u5f55"},"content":{"rendered":"\n<p class=\"has-text-align-center\">\u81ea\u52a8\u4e3a\u5f53\u524dExcel \u5de5\u4f5c\u7c3f\u4e2d\u7684\u5de5\u4f5c\u8868\u521b\u5efa\u76ee\u5f55\uff0c\u5047\u8bbe\u5f53\u524d\u5de5\u4f5c\u8868\u4e2d\u7684Menu\u4f5c\u4e3a\u76ee\u5f55\u7684\u8868\u3002<\/p>\n\n\n\n<figure class=\"wp-block-image aligncenter size-full\"><img loading=\"lazy\" decoding=\"async\" width=\"923\" height=\"530\" src=\"https:\/\/www.jumoon.top\/wp-content\/uploads\/2025\/06\/\u5de5\u4f5c\u8868\u81ea\u52a8\u521b\u5efa\u76ee\u5f55.png\" alt=\"\" class=\"wp-image-818\" srcset=\"https:\/\/www.jumoon.top\/wp-content\/uploads\/2025\/06\/\u5de5\u4f5c\u8868\u81ea\u52a8\u521b\u5efa\u76ee\u5f55.png 923w, https:\/\/www.jumoon.top\/wp-content\/uploads\/2025\/06\/\u5de5\u4f5c\u8868\u81ea\u52a8\u521b\u5efa\u76ee\u5f55-300x172.png 300w, https:\/\/www.jumoon.top\/wp-content\/uploads\/2025\/06\/\u5de5\u4f5c\u8868\u81ea\u52a8\u521b\u5efa\u76ee\u5f55-768x441.png 768w\" sizes=\"auto, (max-width: 923px) 100vw, 923px\" \/><\/figure>\n\n\n\n<pre class=\"wp-block-code\"><code>Sub CreateSheetIndex()\n    Dim ws As Worksheet\n    Dim indexSheet As Worksheet\n    Dim sheetName As String\n    Dim i As Integer\n    Dim rowNum As Integer\n    \n    \n    ' \u68c0\u67e5\u662f\u5426\u5df2\u5b58\u5728\u540d\u4e3a\"\u76ee\u5f55\"\u7684\u5de5\u4f5c\u8868\n    On Error Resume Next\n    Set indexSheet = ThisWorkbook.Sheets(\"Menu\")\n    On Error GoTo 0\n    \n    ' \u5982\u679c\u4e0d\u5b58\u5728\u5219\u521b\u5efa\n    If indexSheet Is Nothing Then\n        Set indexSheet = ThisWorkbook.Sheets.Add(Before:=ThisWorkbook.Sheets(1))\n        indexSheet.Name = \"Menu\"\n    Else\n        ' \u5982\u679c\u5df2\u5b58\u5728\u5219\u6e05\u7a7a\u5185\u5bb9\n        indexSheet.Cells.ClearContents\n    End If\n    \n    ' \u8bbe\u7f6e\u6807\u9898\n    With indexSheet\n        .Range(\"A1\").Value = \"\u5de5\u4f5c\u8868\u76ee\u5f55\"\n        .Range(\"A1\").Font.Bold = True\n        .Range(\"A1\").Font.Size = 14\n        \n        ' \u5f00\u59cb\u4ece\u7b2c3\u884c\u5199\u5165\u5de5\u4f5c\u8868\u540d\u79f0\uff08\u7b2c2\u884c\u7559\u7a7a\uff09\n        rowNum = 3\n        \n        ' \u904d\u5386\u6240\u6709\u5de5\u4f5c\u8868\n        For i = 1 To ThisWorkbook.Sheets.Count\n            sheetName = ThisWorkbook.Sheets(i).Name\n            \n            ' \u6392\u9664\u5f53\u524d\u76ee\u5f55\u8868\u672c\u8eab\n            If sheetName &lt;> \"Menu\" Then\n                ' \u5199\u5165\u5de5\u4f5c\u8868\u540d\u79f0\u5e76\u521b\u5efa\u8d85\u94fe\u63a5\n                .Hyperlinks.Add Anchor:=.Cells(rowNum, 1), _\n                                Address:=\"\", _\n                                SubAddress:=\"'\" &amp; sheetName &amp; \"'!A1\", _\n                                TextToDisplay:=sheetName\n                \n                ' \u589e\u52a0\u884c\u53f7\n                rowNum = rowNum + 1\n            End If\n        Next i\n        \n        ' \u81ea\u52a8\u8c03\u6574\u5217\u5bbd\n        .Columns(\"A:A\").AutoFit\n    End With\n    \n    ' \u6fc0\u6d3b\u76ee\u5f55\u8868\n    indexSheet.Activate\n    indexSheet.Cells.Font.Underline = xlUnderlineStyleNone\n    MsgBox \"\u5de5\u4f5c\u8868\u76ee\u5f55\u5df2\u521b\u5efa\u5b8c\u6210\uff01\", vbInformation\nEnd Sub<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u81ea\u52a8\u4e3a\u5f53\u524dExcel \u5de5\u4f5c\u7c3f\u4e2d\u7684\u5de5\u4f5c\u8868\u521b\u5efa\u76ee\u5f55\uff0c\u5047\u8bbe\u5f53\u524d\u5de5\u4f5c\u8868\u4e2d\u7684Menu\u4f5c\u4e3a\u76ee\u5f55\u7684\u8868\u3002<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"site-container-style":"default","site-container-layout":"default","site-sidebar-layout":"default","site-transparent-header":"default","disable-article-header":"default","disable-site-header":"default","disable-site-footer":"default","disable-content-area-spacing":"default","footnotes":""},"categories":[19],"tags":[],"class_list":["post-817","post","type-post","status-publish","format-standard","hentry","category-19"],"_links":{"self":[{"href":"https:\/\/www.jumoon.top\/index.php?rest_route=\/wp\/v2\/posts\/817","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.jumoon.top\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.jumoon.top\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.jumoon.top\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.jumoon.top\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=817"}],"version-history":[{"count":1,"href":"https:\/\/www.jumoon.top\/index.php?rest_route=\/wp\/v2\/posts\/817\/revisions"}],"predecessor-version":[{"id":973,"href":"https:\/\/www.jumoon.top\/index.php?rest_route=\/wp\/v2\/posts\/817\/revisions\/973"}],"wp:attachment":[{"href":"https:\/\/www.jumoon.top\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=817"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.jumoon.top\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=817"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.jumoon.top\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=817"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}