วิธีเพิ่มเมนู Developer ให้กับ Excel : https://youtu.be/TL66up0Ihzw
บันทึกมาโครลง Personal Macro Workbook เรียกใช้ codeได้ไม่ต้องเขียนใหม่ : https://youtu.be/iOMppHDsuO0
VBA Code
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | Sub CreateIndex() Dim last_row, item_no As Integer Dim myCell As Range Dim ws As Worksheet Dim index_ws As Worksheet Set index_ws = ThisWorkbook.Sheets( "Index" ) Set myCell = ActiveCell item_no = 1 With index_ws myCell.Value = "Item" myCell.Offset(0, 1).Value = "SheetName" last_row = myCell.Row + 1 For Each ws In ThisWorkbook.Sheets If ws.Name <> .Name Then .Cells(last_row, myCell.Column).Value = item_no .Hyperlinks.Add Cells(last_row, myCell.Column + 1), "" , _ "'" & ws.Name & "'!A1" , , ws.Name item_no = item_no + 1 last_row = last_row + 1 End If Next ws End With Cells.EntireColumn.AutoFit ' autofit column End Sub |
ไฟล์สำหรับบทความนี้ : กดที่นี่เพื่อดาวน์โหลด