วิธีสร้างรายการชื่อแผ่นงานแบบไดนามิกใน Excel
หากคุณมีแผ่นงานหลายแผ่นในสมุดงานและต้องการสร้างรายการแบบไดนามิกของชื่อแผ่นงานทั้งหมดในแผ่นงานใหม่ในสมุดงานคุณจะทำอย่างไร? ตอนนี้บทช่วยสอนนี้จะแนะนำเทคนิคบางอย่างในการทำภารกิจนี้ให้สำเร็จใน Excel
สร้างรายการแบบไดนามิกของชื่อเวิร์กชีตด้วยกำหนดชื่อและสูตร
สร้างรายการแบบไดนามิกของชื่อเวิร์กชีตด้วยรหัส VBA
สร้างรายการแบบไดนามิกของชื่อแผ่นงานด้วย Kutools for Excel
แสดงรายการชื่อเวิร์กชีตแบบไดนามิกด้วย Kutools for Excel
สร้างรายการแบบไดนามิกของชื่อเวิร์กชีตด้วยกำหนดชื่อและสูตร
1. เลือกเซลล์ในแผ่นงานเปล่าที่นี่ฉันเลือก A1 แล้วคลิก สูตร > กำหนดชื่อ. ดูภาพหน้าจอ:
2. จากนั้นใน ชื่อใหม่ โต้ตอบพิมพ์ แผ่น เข้าสู่ Name กล่องข้อความ (คุณสามารถเปลี่ยนแปลงได้ตามต้องการ) และพิมพ์สูตรนี้ = SUBSTITUTE (GET.WORKBOOK (1), "[" & GET.WORKBOOK (16) & "]", "") ลงในกล่องข้อความอ้างอิงถึง ดูภาพหน้าจอ:
3 คลิก OK. ไปที่เซลล์ที่เลือก (A1) แล้วพิมพ์สูตรนี้ = INDEX (ชีต, แถว ($ A $ 1: $ A1)) (A1 คือเซลล์ที่คุณพิมพ์สูตรนี้ "ชีต" คือชื่อที่คุณกำหนดในขั้นตอนที่ 2) ลงในเซลล์จากนั้นลากที่จับการป้อนอัตโนมัติลงไปจนถึง #REF! ปรากฏขึ้น
ปลาย: หากมีการลบหรือเพิ่มแผ่นงานคุณจะต้องไปที่ A1 แล้วกดปุ่ม Enter จากนั้นดึงที่จับการป้อนอัตโนมัติอีกครั้ง
สร้างรายการแบบไดนามิกของชื่อเวิร์กชีตด้วยรหัส VBA
หากคุณต้องการสร้างรายการชื่อเวิร์กชีตแบบไดนามิกซึ่งสามารถเชื่อมโยงไปยังแต่ละแผ่นงานได้คุณสามารถใช้รหัส VBA
1. สร้างแผ่นงานใหม่และเปลี่ยนชื่อเป็นดัชนี ดูภาพหน้าจอ:
2. คลิกขวาที่ชื่อชีตของ Index เลือก ดูรหัส จากเมนูบริบท ดูภาพหน้าจอ:
3. ในหน้าต่าง popping ให้คัดลอกและวางโค้ด VBA ด้านล่างลงไป
VBA: สร้างรายการชื่อเวิร์กชีตแบบไดนามิก
Private Sub Worksheet_Activate()
'Updateby20150305
Dim xSheet As Worksheet
Dim xRow As Integer
Dim calcState As Long
Dim scrUpdateState As Long
Application.ScreenUpdating = False
xRow = 1
With Me
.Columns(1).ClearContents
.Cells(1, 1) = "INDEX"
.Cells(1, 1).Name = "Index"
End With
For Each xSheet In Application.Worksheets
If xSheet.Name <> Me.Name Then
xRow = xRow + 1
With xSheet
.Range("A1").Name = "Start_" & xSheet.Index
.Hyperlinks.Add anchor: = .Range("A1"), Address: = "", _
SubAddress: = "Index", TextToDisplay: = "Back to Index"
End With
Me.Hyperlinks.Add anchor: = Me.Cells(xRow, 1), Address: = "", _
SubAddress: = "Start_" & xSheet.Index, TextToDisplay: = xSheet.Name
End If
Next
Application.ScreenUpdating = True
End Sub
4 คลิก วิ่ง or F5 เพื่อเรียกใช้ VBA ตอนนี้รายการแบบไดนามิกของชื่อเวิร์กชีตถูกสร้างขึ้น
เคล็ดลับ:
1. เมื่อแผ่นงานของสมุดงานถูกลบหรือแทรกรายการชื่อแผ่นงานจะเปลี่ยนโดยอัตโนมัติ
2. คุณสามารถคลิกที่ชื่อแผ่นงานของรายการรายชื่อเพื่อไปที่แผ่นงาน
ด้วยสองวิธีข้างต้นไม่สะดวกพอหากคุณสนใจยูทิลิตี้ใหม่คุณสามารถใช้สองวิธีถัดไปซึ่งอาจทำให้งานนี้ง่ายขึ้น
สร้างรายการแบบไดนามิกของชื่อแผ่นงานด้วย Kutools for Excel
หากคุณต้องการเพียงแสดงชื่อเวิร์กชีตทั้งหมดของเวิร์กบุ๊กอย่างรวดเร็วและเชื่อมโยงกับชีตต้นฉบับคุณสามารถใช้ได้ Kutools สำหรับ Excel's สร้างรายชื่อแผ่นงาน.
Kutools สำหรับ Excel, ที่มีมากกว่า 300 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น | ||
หลังจาก ติดตั้งฟรี Kutools สำหรับ Excel โปรดทำดังนี้:
1 คลิก Kutools พลัส > แผ่นงาน > สร้างรายชื่อแผ่นงาน. ดูภาพหน้าจอ:
2 ใน สร้างรายชื่อแผ่นงาน ไดอะล็อก:
(2) ตั้งชื่อแผ่นดัชนีใหม่โดยพิมพ์ข้อมูลลงใน ระบุชื่อแผ่นงานสำหรับ Sheet Index กล่องข้อความ;
(3) ระบุตำแหน่งที่คุณจะวางแผ่นดัชนีที่เพิ่มในไฟล์ ใส่ดัชนีชีตเข้า รายการ;
(4) หากคุณต้องการแสดงชื่อแผ่นงานในรายการเดียวให้เลือก 1 คอลัมน์ใน แสดงดัชนีชีตเป็น รายการ.
3 คลิก Ok. ตอนนี้คุณสามารถเห็นชื่อแผ่นงานอยู่ในรายการ
ทิปส์:
1. คุณสามารถคลิกที่ชื่อแผ่นงานเพื่อเปลี่ยนเป็นแผ่นงานต้นฉบับได้อย่างรวดเร็ว
2. ชื่อรายการหรือแผ่นงานไม่สามารถเปลี่ยนแปลงแบบไดนามิกเมื่อแทรกหรือลบแผ่นงาน
3. จริงๆแล้วคุณยังสามารถสร้างรายการปุ่มเพื่อเชื่อมโยงชีตญาติได้เพียงแค่ต้องตรวจสอบ ประกอบด้วยปุ่มและมาโคร ในกล่องโต้ตอบ ดู screeshshot:
คลิกที่นี่เพื่อเรียนรู้เพิ่มเติมเกี่ยวกับ Create List of Sheet Names
สร้างรายชื่อแผ่นงานที่คลิกได้
แสดงรายการชื่อเวิร์กชีตแบบไดนามิกด้วย Kutools for Excel
หากคุณมี Kutools สำหรับ Excelคุณยังสามารถใช้ไฟล์ การเดินเรือ ยูทิลิตี้เพื่อแสดงชื่อเวิร์กชีตที่เชื่อมโยงได้ในบานหน้าต่าง
หลังจาก ติดตั้งฟรี Kutools สำหรับ Excel โปรดทำดังนี้:
1 คลิก Kutools > การเดินเรือ. คลิก สมุดงานและแผ่นงาน เพื่อแสดงเวิร์กบุ๊กและเวิร์กชีตและคุณสามารถเลือกเวิร์กบุ๊กจากนั้นเวิร์กชีตจะแสดงในไฟล์ การเดินเรือ บานหน้าต่าง ดูภาพหน้าจอ:
เคล็ดลับ:
เมื่อมีการลบหรือเพิ่มเวิร์กชีตคุณสามารถคลิกไฟล์ ปุ่มรีเฟรช ใน ระบบนำทางn บานหน้าต่างเพื่อรีเฟรชชื่อแผ่นงาน
คลิกที่นี่เพื่อดูข้อมูลเพิ่มเติมเกี่ยวกับการนำทาง
บานหน้าต่างนำทาง - รายการชีต
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!