วิธีการเรียงลำดับแท็บแผ่นงานตามลำดับตัวอักษรใน Excel

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

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

ในการเริ่มต้นให้กด Alt + F11 เพื่อเปิดตัวแก้ไข Microsoft Visual Basic สำหรับ Applications (VBA) จากนั้นไปที่แทรก> โมดูล.

คัดลอกและวางแมโครต่อไปนี้จาก Microsoft ลงในหน้าต่างโมดูลที่แสดงขึ้น.

ย่อย Sort_Active_Book () Dim i As Integer Dim j As Integer Dim iAnswer As VbMsgBoxResult "แจ้งผู้ใช้ตามทิศทางที่พวกเขาต้องการ 'เรียงแผ่นงาน' iAnswer = MsgBox (" เรียงลำดับตามลำดับจากน้อยไปมาก "& Chrr (10) _ & "การคลิกที่ไม่มีจะเรียงลำดับจากมากไปหาน้อย", _ vbYesNoCancel + vbQuestion + vbDefaultButton1, "เรียงลำดับเวิร์กชีท") สำหรับ i = 1 ไปยังแผ่นงานจำนวน j = 1 ถึงแผ่นงานจำนวน - 1 "ถ้าคำตอบคือใช่แล้วเรียงลำดับ ตามลำดับ 'ถ้า iAnswer = vbYes ถ้า UCase $ (ชีต (j) .Name)> UCase $ (ชีท (j + 1) .Name) จากนั้นชีต (j) .Move หลังจาก: = ชีต (j + 1) สิ้นสุดถ้า "ถ้า คำตอบคือไม่จากนั้นเรียงลำดับจากมากไปน้อย 'ElseIf iAnswer = vbNo ถ้าเป็น UCase $ (ชีต (j) .Name) < UCase$(Sheets(j + 1).Name) Then                Sheets(j).Move After:=Sheets(j + 1)             End If          End If       Next j    Next i End Sub

ตัวแก้ไข VBA จะตั้งชื่อให้แต่ละโมดูลโดยอัตโนมัติด้วยหมายเลขที่อยู่ท้ายสุดเช่น Module1, Module2 เป็นต้นคุณสามารถยอมรับชื่อเริ่มต้นของโมดูลได้ อย่างไรก็ตามหากคุณวางแผนที่จะเพิ่มมาโครอื่นลงในสมุดงานของคุณคุณควรเปลี่ยนชื่อแต่ละโมดูลเพื่อให้คุณรู้ว่ามันคืออะไร เราจะเปลี่ยนชื่อโมดูลของเราเพื่อแสดงให้คุณเห็นว่า.

ในการเปลี่ยนชื่อโมดูลให้เลือกข้อความในกล่องชื่อสำหรับโมดูลภายใต้คุณสมบัติในบานหน้าต่างด้านซ้าย.

พิมพ์ชื่อสำหรับโมดูลในกล่องชื่อและกด Enter โปรดทราบว่าชื่อโมดูลไม่สามารถมีช่องว่าง.

ชื่อของโมดูลเปลี่ยนแปลงในรายการโมดูลภายใต้โครงการในบานหน้าต่างด้านซ้าย.

ปิดตัวแก้ไข VBA โดยไปที่ไฟล์> ปิดและกลับสู่ Microsoft Excel.

ตอนนี้เราจะเรียกใช้แมโครเพื่อจัดเรียงแท็บของเรา กด Alt + F8 เพื่อเข้าถึงรายการแมโครในกล่องโต้ตอบแมโคร เลือกมาโครในรายการ (ในกรณีของเรามีมาโครเพียงตัวเดียว) แล้วคลิก“ เรียกใช้”.

กล่องโต้ตอบต่อไปนี้จะปรากฏขึ้นช่วยให้คุณเลือกว่าคุณต้องการเรียงลำดับเวิร์กชีทตามลำดับจากน้อยไปมากหรือมากไปหาน้อย เราต้องการจัดเรียงตามลำดับจากน้อยไปมากดังนั้นเราคลิก“ ใช่”.

ตอนนี้แท็บแผ่นงานจะถูกจัดเรียงตามลำดับตัวอักษร.

มาโครที่คุณเพิ่มเป็นส่วนหนึ่งของสมุดงานของคุณทันที แต่เมื่อคุณบันทึกคุณอาจเห็นกล่องโต้ตอบต่อไปนี้ นั่นเป็นเพราะคุณบันทึกเวิร์กบุ๊กเป็นไฟล์. xlsx ซึ่งเป็นรูปแบบเวิร์กบุ๊ก Excel ปกติที่ไม่มีมาโคร เมื่อต้องการรวมแมโครในสมุดงานของคุณและสามารถเรียกใช้งานได้คุณต้องบันทึกสมุดงานของคุณเป็นสมุดงานที่เปิดใช้งานแมโครหรือไฟล์. xlsm หากต้องการทำสิ่งนี้ให้คลิก“ ไม่” ในกล่องโต้ตอบนี้.

กล่องโต้ตอบบันทึกเป็นจะปรากฏขึ้น นำทางไปยังตำแหน่งที่คุณต้องการบันทึกเวิร์กบุ๊กที่เปิดใช้งานมาโครหากคุณยังไม่ได้อยู่ในโฟลเดอร์นั้น เลือก“ เวิร์กบุ๊กที่เปิดใช้งาน Excel แมโคร (* .xlsm)” จากรายการดรอปดาวน์“ บันทึกเป็นประเภท”.

คลิก“ บันทึก”.

หากคุณไม่บันทึกเวิร์กบุคเป็นเวิร์กบุ๊กที่เปิดใช้งานแมโคร (ไฟล์. xlsm) แมโครที่คุณเพิ่มจะถูกลบ คุณอาจต้องการลบเวิร์กบุ๊ก. xlsx เวอร์ชันดังนั้นคุณจะไม่ลืมที่จะใช้เวิร์กบุ๊กเวอร์ชัน. xlsm ของคุณหากคุณต้องการเพิ่มแท็บแผ่นงานเพิ่มเติมและจัดเรียงใหม่โดยใช้มาโคร คุณสามารถบันทึกเวิร์กบุ๊กเป็นไฟล์. xlsx ได้อีกครั้งหากคุณไม่ต้องการใช้มาโครอีกต่อไป.