วิธีจัดเรียงแท็บแผ่นงานตามสีใน Excel

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

จัดเรียงแท็บแผ่นงานตามสีด้วยรหัส VBA

จัดเรียงแท็บแผ่นงานตามสีด้วย Kutools for Excel

จัดเรียงแท็บแผ่นงานตามสีด้วยรหัส VBA

ใช้รหัส VBA ต่อไปนี้คุณสามารถจัดเรียงแท็บตามสีได้ กรุณาดำเนินการดังต่อไปนี้:

1 คลิก ผู้พัฒนา > ของ Visual Basicใหม่ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างจะปรากฏขึ้นให้คลิก สิ่งที่ใส่เข้าไป > โมดูลและใส่รหัสต่อไปนี้ลงในโมดูล:

VBA: จัดเรียงแผ่นงานตามสี

Sub SortWorkBookByColor()
'UpdatebyExtendoffice
Dim xArray1() As Long
Dim xArray2() As String
Dim n As Integer
Application.ScreenUpdating = False
If Val(Application.Version) >= 10 Then
    For i = 1 To Application.ActiveWorkbook.Worksheets.Count
        If Application.ActiveWorkbook.Worksheets(i).Visible = -1 Then
            n = n + 1
            ReDim Preserve xArray1(1 To n)
            ReDim Preserve xArray2(1 To n)
            xArray1(n) = Application.ActiveWorkbook.Worksheets(i).Tab.Color
            xArray2(n) = Application.ActiveWorkbook.Worksheets(i).Name
        End If
    Next
    For i = 1 To n
        For j = i To n
            If xArray1(j) < xArray1(i) Then
                temp = xArray2(i)
                xArray2(i) = xArray2(j)
                xArray2(j) = temp
                temp = xArray1(i)
                xArray1(i) = xArray1(j)
                xArray1(j) = temp
            End If
        Next
    Next
    For i = n To 1 Step -1
        Application.ActiveWorkbook.Worksheets(CStr(xArray2(i))).Move after:=Application.ActiveWorkbook.Worksheets(Application.ActiveWorkbook.Worksheets.Count)
    Next
End If
Application.ScreenUpdating = True
End Sub

2 จากนั้นคลิก   ปุ่มเพื่อรันโค้ด และแท็บแผ่นงานทั้งหมดได้รับการจัดเรียงตามสี ดูภาพหน้าจอ:

จัดเรียงแท็บแผ่นงานตามสีด้วย Kutools for Excel

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

หากคุณได้ติดตั้ง Kutools for Excel คุณสามารถจัดเรียงแท็บแผ่นงานด้วยขั้นตอนต่อไปนี้:

1 คลิก Kutools พลัส > แผ่นงาน > จัดเรียงชีต.

2 ใน จัดเรียงชีต คลิกตกลง เรียงสี ปุ่มคุณจะเห็นลำดับแท็บใหม่ใน ลำดับแท็บแผ่นงานใหม่ บานหน้าต่าง ดูภาพหน้าจอ:

3. จากนั้นคลิก OK เพื่อจัดเรียงแท็บ

Kutools สำหรับ Excel's จัดเรียงชีต เครื่องมือสามารถจัดเรียงแผ่นงานทั้งหมดใหม่ในสมุดงานที่ใช้งานอยู่ได้อย่างรวดเร็ว รองรับการจัดเรียงหลายประเภท ได้แก่ เรียงลำดับอัลฟ่า, เรียงลำดับตัวเลขอัลฟา, เรียงสี และ ย้อนกลับ. นอกจากนี้คุณยังสามารถ เลื่อนขึ้น / ลง แผ่นงานและรีเซ็ตการเรียงลำดับ

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

บทความที่เกี่ยวข้อง:

จัดเรียงแผ่นงานตามลำดับตัวอักษร / ตัวเลขและตัวอักษรใน Excel