การ List รายชื่อ Sheet

😛 เนื่องจากมีคำถามเกี่ยวกับวิธีการ List รายชื่อชีตค่อนข้างบ่อย และจากการตรวจสอบพบว่ามีการค้นหาเกี่ยวกับการ List รายชื่อชีตมากขึ้นเรื่อย ๆ เลยนำมาเขียนไว้ที่นี่เพื่อจะได้ใช้อ้างอิง ไม่ต้องเขียนใหม่ หรือ Copy มาแปะทุกครั้งที่เจอคำถาม

สำหรับ วิธีการนี้ใช้ Excel 4 Macro Function มาช่วย

ซึ่งต้องกำหนด Security ในเมนู File > Options > Trust Center > Trust Center Settings… > Macro Settings > เลือก Enable all macros (not recommended; potentially dangerous code can run) นอกจากนี้แล้วจะต้อง Save ไฟล์ให้มีนามสกุลให้เป็นประเภท Excel Macro – Enabled เช่น .xlsm ถึงจะใช้ได้

วิธีการทำดังนี้ครับ

1. เปิดไฟล์ที่ต้องการ List รายชื่อ Sheet โดยทำการเพิ่ม 1 Sheet คือ Sheet ที่ต้องการให้แสดงรายชื่อ Sheet ทั้งหมด
2. เข้าเมนู Formulas > Name Manager > New
   1. ช่อง Names: คีย์ CountSheet > ช่อง Refers to: คีย์ =Get.Workbook(4) > OK > New
   2. ช่อง Names: คีย์ ListSheet > ช่อง Refers to: คีย์
      =RIGHT(GET.WORKBOOK(1),LEN(GET.WORKBOOK(1))-FIND("]",GET.WORKBOOK(1))) > OK > Close
3. ใน Sheet ที่เพิ่มเข้ามาใหม
   1. เซล A1 คีย์
      =CountSheet
      Enter
   2. เซล A2 คีย์
      =IF(ROWS($A$2:A2)<=$A$1,INDEX(ListSheet,ROWS($A$2:A2)),"")
      Enter แล้ว Copy ลงด้านล่าง

สามารถดาวน์โหลดไฟล์แนบด้านล่างไปศึกษาได้ตามสะดวกครับ 😀

Revised: October 11 , 2017 at 6:30