IT 免費/無料/Kostenlos(gratis) 記事本分享

2023年12月10日星期日

延續先前分公司，各自單獨建立分頁之範例

Excel 分頁過多(分公司多,以致於移動分頁困擾)，希望於每個分頁的K1儲存格(即各個分公司分頁K1儲存格)，
再設定一個回總索引頁(即「各分公司索引清單」)

Perplexity.ai
藉由Perplexity AI(ChatGPT)協助將每個各自獨立分公司分頁中的K1儲存格，建立回總索引頁(即「各分公司索引清單」)之超連結，方便作業。
PROMPT提示訊息下法:
EXCEL表，有多個分頁，其中各分公司索引清單，已有指向各分頁之超連結，請用EXCEL VBA程式，幫忙於各分頁中 K1儲存格，增設各分公司索引清單超連結 ,並將K1更名為回索引清單。

Sub AddHyperlinkAndRename()
    Dim ws As Worksheet
    Dim wsRef As Worksheet
    Dim LastRow As Long
    Dim LastCol As Long
    Dim i As Long

    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "各分公司索引清單" Then
            LastRow = ws.Cells(ws.Rows.Count, "K").End(xlUp).Row
            LastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

            For i = 2 To LastRow
                ws.Range(ws.Rows.Count, i).Value = ""
                ws.Range(ws.Rows.Count, i).EntireRow.Hidden = True
            Next i

            ws.Range("K1").Value = "回索引清單"


              ' 在各分頁的K1儲存格增設超連結

              ws.Range("K1").Hyperlinks.Add Anchor:=ws.Range("K1"), Address:="", SubAddress:="'" & "各分公司索引清單" & "'!A1"


        End If
    Next ws
End Sub

請按照以下步驟使用此程式：
STEP1:開啟您的Excel檔案。
STEP2:按下Alt + F11進入VBA編輯器。
STEP3:在VBA編輯器中，插入一個新的模組Module。
STEP4:將上述VBA程式碼，複製並貼上到新的模組Module中。
STEP5:在VBA編輯器中，按下F5運行程式。

2023年12月10日 星期日

2023年12月10日星期日