วิธีสร้างแคตตาล็อกอย่างรวดเร็วสำหรับสมุดงาน Excel ของคุณผ่าน VBA

แบ่งปันเลย:

การสร้างแค็ตตาล็อกสำหรับสมุดงานที่มีแผ่นงานจำนวนมากเป็นสิ่งที่จำเป็น ที่นี่เรามีวิธีการอย่างรวดเร็วในการสร้างแคตตาล็อกในแผ่นงาน Excel

ในบทความก่อนหน้านี้ วิธีสร้างแคตตาล็อกใน Excel ของคุณผ่านไฮเปอร์ลิงก์เราได้พูดคุยเกี่ยวกับการสร้างแค็ตตาล็อกโดยการแทรกไฮเปอร์ลิงก์ลงในแผ่นงาน การสร้างแค็ตตาล็อกสำหรับสมุดงานที่มีแผ่นงานจำนวนมากจะมีประโยชน์มาก แต่การเพิ่มไฮเปอร์ลิงก์ทีละรายการด้วยตนเองอาจใช้เวลานาน ดังนั้นเราจึงมีวิธีการใหม่ในการสร้างแคตตาล็อกดังกล่าวอย่างรวดเร็ว

สร้างแคตตาล็อก

ในภาพด้านล่างมีแผ่นงานมากมายในสมุดงานตัวอย่างสำหรับแคตตาล็อก

และตอนนี้คุณสามารถสร้างแคตตาล็อกในสมุดงานนี้ได้

  1. คลิกขวาที่แท็บใดแท็บหนึ่งใน Ribbon
  2. จากนั้นคลิกปุ่ม“ กำหนดริบบิ้นเอง” ในเมนูปรับแต่ง Ribbon
  3. ในหน้าต่าง "ตัวเลือก Excel" ให้เลือกตัวเลือก "นักพัฒนา" ในพื้นที่ "แท็บหลัก"
  4. จากนั้นคลิก“ ตกลง”ตรวจสอบนักพัฒนา
  5. ตอนนี้คลิกแท็บ“ นักพัฒนา” ใน Ribbon
  6. จากนั้นคลิกปุ่ม“ Visual Basic” ในแถบเครื่องมือของ Visual Basic

ดังนั้นคุณได้เปิด Visual Basic Editor จริงๆแล้วคุณยังสามารถกดแป้นพิมพ์ลัด“ Alt + F11” บนแป้นพิมพ์เพื่อเปิดโปรแกรมแก้ไขอย่างรวดเร็ว

  1. ตอนนี้คลิกขวาในโปรเจ็กเตอร์ VBA
  2. จากนั้นเลื่อนเคอร์เซอร์ไปที่ตัวเลือก“ แทรก”
  3. ในเมนูย่อยให้เลือกตัวเลือก“ โมดูล”ใส่โมดูล

ดังนั้นคุณได้แทรกโมดูลใหม่ลงในโครงการ

  1. ตอนนี้คัดลอกรหัส VBA ต่อไปนี้ลงในโมดูลใหม่:

ย่อย CreateMenu ()

    หรี่เป็นจำนวนเต็ม

    เอ = 1

    'เพิ่มแผ่นงานใหม่

    แผ่นงานเพิ่มก่อน: = ชีต (1)

    ชีต (1) .Name =“ เมนู”

    แผ่นงาน (“ เมนู”) ช่วง (“ A1”) ค่า =“ เมนู”

    สำหรับ a = 2 To ActiveWorkbook.Worksheets.Count

        แผ่นงาน (“ เมนู”) ช่วง (“ A” & a) = ชีต (ก) ชื่อ

        ActiveSheet.Hyperlinks. Add Anchor: = Worksheets (“ Menu”). Range (“ A” & a), _

        ที่อยู่: =””, _

        ที่อยู่ย่อย: =” '” & ชีต (a) .Name &“'! R1C1”, _

        TextToDisplay: = ชีต (a) .Name

    ถัดไป

ย่อยสิ้นสุด

ในโค้ดนี้เราแทรกแผ่นงานใหม่ชื่อ“ เมนู” ไว้ตอนต้น หากมีแผ่นงานชื่อ“ เมนู” อยู่แล้วคุณสามารถเปลี่ยนรหัส VBA หรือเปลี่ยนชื่อของชื่อแผ่นงานที่มีอยู่ได้ นอกจากนี้เราจะป้อนรายการในคอลัมน์แรกในแผ่นงานใหม่ หากคุณต้องการป้อนแคตตาล็อกในช่วงต่างๆคุณสามารถปรับเปลี่ยนได้ตามความต้องการของคุณ

  1. ตอนนี้กดปุ่ม“ Run Sub” ในแถบเครื่องมือเรียกใช้ Sub

นอกจากนี้คุณยังสามารถกดปุ่ม“ F5” บนคียบอร์ดได้อีกด้วย

  1. ตอนนี้กลับมาที่อินเทอร์เฟซของแผ่นงานแคตตาล็อก

มีแผ่นงานใหม่ชื่อ“ เมนู” ในสมุดงาน และชื่อแผ่นงานทั้งหมดจะแสดงอยู่ในแผ่นงานพร้อมด้วยไฮเปอร์ลิงก์ที่เกี่ยวข้อง จากวิธีนี้คุณสามารถสร้างแคตตาล็อกได้อย่างง่ายดายในเวลารวดเร็ว

การเปรียบเทียบระหว่างสองวิธี

ในบทความก่อนหน้านี้ วิธีสร้างแคตตาล็อกใน Excel ของคุณผ่านไฮเปอร์ลิงก์เราเพิ่มแคตตาล็อกด้วยตนเอง และเราจะเปรียบเทียบความแตกต่างของสองวิธีในตารางด้านล่าง

การเปรียบเทียบ สร้างแคตตาล็อกด้วยตนเอง ใช้ขั้นตอน VBA
ความได้เปรียบ 1. ผู้ใช้ Excel ทุกคนสามารถใช้วิธีนี้ได้อย่างง่ายดาย

2. หากคุณไม่มีความรู้เกี่ยวกับ VBA คุณสามารถใช้วิธีนี้ได้

1. ผ่านขั้นตอน VBA คุณสามารถทำงานนี้ให้เสร็จสิ้นได้ในคลิกเดียว

2. คุณยังสามารถเปลี่ยนรหัส VBA เพื่อให้เป็นไปตามข้อกำหนดอื่น ๆ

ข้อเสียเปรียบ 1. หากมีเวิร์กชีตจำนวนมากในสมุดงานคุณจะต้องใช้เวลามากในการแทรกไฮเปอร์ลิงก์

2. คุณต้องเลือกไฮเปอร์ลิงก์ทีละรายการซึ่งจะนำไปสู่ความผิดพลาดได้ง่าย

1. หากคุณไม่คุ้นเคยกับรหัส VBA คุณจะพบกับปัญหาเมื่อเรียกใช้รหัส

2. การใช้รหัส VBA จะทำให้งานยุ่งยาก

 

จัดการกับสถานการณ์ที่ไม่คาดคิดใน Excel

หากคุณใช้ Excel บ่อยๆ ในการทำงาน คุณย่อมต้องพบกับข้อผิดพลาดบ้างเป็นธรรมดา ส่วนใหญ่แล้ว คุณสามารถปิด Excel แล้วเปิดใหม่ได้ ข้อผิดพลาดเล็กๆ น้อยๆ เหล่านั้นก็จะหายไป อย่างไรก็ตาม ข้อผิดพลาดบางอย่างใน Excel อาจนำไปสู่ความเสียหายร้ายแรงของ Excel และผลลัพธ์อาจคาดไม่ถึง ในขณะนั้น คุณสามารถ... ซ่อมแซมปัญหาข้อมูล xls โดยเครื่องมือที่เชี่ยวชาญของเรา ด้วยความช่วยเหลือของเครื่องมือที่มีประสิทธิภาพนี้สิ่งเดียวที่คุณต้องทำคือรอให้กระบวนการกู้คืนเสร็จสิ้น

บทนำผู้เขียน:

Anna Ma เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ ซ่อมแซมความเสียหายของข้อมูลเอกสาร และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.

แบ่งปันเลย:

ความเห็นถูกปิด