ตัวกรองอัตโนมัติ VBA:เรียงลำดับจากน้อยไปมาก (3 วิธี)

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

จัดเรียงตัวกรองอัตโนมัติ VBA ที่เล็กที่สุดไปใหญ่ที่สุดใน Excel (มุมมองด่วน)

Sub Autofilter_Sort_Smallest_to_Largest()
With ActiveSheet.Sort
.SortFields.Add Key:=Range("D4"), Order:=xlAscending
.SetRange Range("B4:E16")
.Header = xlYes
.Apply
End With
End Sub

3 วิธีที่เหมาะสมในการเรียงลำดับจากน้อยไปมากด้วยตัวกรองอัตโนมัติ VBA ใน Excel

สมมติว่าเรามีชุดข้อมูลที่มีข้อมูลเกี่ยวกับตัวแทนฝ่ายขาย ของ อาร์มานี่ กลุ่ม. ชื่อของตัวแทนฝ่ายขาย , ประเภทของ สินค้า , และ สั่ง และ ส่งสินค้า โดยตัวแทนขายจะได้รับในคอลัมน์ B, C, D, และ อี ตามลำดับ จากชุดข้อมูลของเรา เราจะจัดเรียง ข้อมูลของเราตั้งแต่ น้อยไปมาก ใช้ VBA รหัส. นี่คือภาพรวมของชุดข้อมูลสำหรับงานวันนี้

1. เรียงลำดับจากน้อยไปหามากโดยใช้ลำดับจากน้อยไปมากใน VBA Autofilter

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

ขั้นตอนที่ 1:

• ก่อนอื่น เปิดโมดูล เพื่อทำสิ่งนั้น อันดับแรก จาก นักพัฒนา ของคุณ แท็บ ไปที่

ผู้พัฒนา → Visual Basic

• หลังจากคลิกที่ Visual Basic ribbon ซึ่งเป็นหน้าต่างชื่อ Microsoft Visual Basic for Applications – จัดเรียงข้อมูลที่เล็กที่สุดไปใหญ่ที่สุด จะปรากฏขึ้นต่อหน้าคุณทันที จากหน้าต่างนั้น เราจะแทรกโมดูลสำหรับใช้ โค้ด VBA . ของเรา . โดยไปที่

แทรก → โมดูล

ขั้นตอนที่ 2:

• ดังนั้น จัดเรียงข้อมูลที่เล็กที่สุดไปหามากที่สุด โมดูลปรากฏขึ้น ใน จัดเรียงข้อมูลที่เล็กที่สุดไปหามากที่สุด โมดูล เขียน VBA . ด้านล่าง

Sub Autofilter_Sort_Smallest_to_Largest()
With ActiveSheet.Sort
.SortFields.Add Key:=Range("D4"), Order:=xlAscending
.SetRange Range("B4:E16")
.Header = xlYes
.Apply
End With
End Sub

• ดังนั้น เรียกใช้ VBA โดยไปที่

เรียกใช้ → เรียกใช้ Sub/UserForm

• หลังจากเรียกใช้ รหัส VBA คุณจะสามารถ จัดเรียงข้อมูล จากเล็กสุดไปใหญ่สุดซึ่งได้รับในภาพหน้าจอด้านล่าง

อ่านเพิ่มเติม: VBA เป็นตัวกรองอัตโนมัติที่มีหลายเกณฑ์ในฟิลด์เดียวกันใน Excel (4 วิธี)

2. ใช้หลายคอลัมน์เพื่อจัดเรียงจากน้อยไปมากด้วยส่วนหัวใน Excel VBA

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

ขั้นตอนที่ 1:

• อันดับแรก ตาม วิธีที่ 1 แทรก โมดูลใหม่และพิมพ์ VBA . ด้านล่าง รหัสเพื่อเปลี่ยนสีแบบอักษร รหัส VBA คือ

Sub Sort_Multiple_Columns()
With ActiveSheet.Sort
.SortFields.Add Key:=Range("B4"), Order:=xlAscending
.SortFields.Add Key:=Range("D4"), Order:=xlAscending
.SetRange Range("B4:E16")
.Header = xlYes
.Apply
End With
End Sub

• นอกจากนี้ ให้เรียกใช้ VBA โดยไปที่

เรียกใช้ → เรียกใช้ Sub/UserForm

ขั้นตอนที่ 2:

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

อ่านเพิ่มเติม: [แก้ไข]:วิธีการกรองอัตโนมัติของคลาสช่วงล้มเหลว (5 โซลูชัน)

3. ใช้ตัวกรองอัตโนมัติ VBA เพื่อเรียงลำดับจากน้อยไปมากด้วยชื่อเวิร์กชีต

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

ขั้นตอนที่ 1:

• ขั้นแรก แทรก โมดูลใหม่ตาม วิธีที่ 1 และพิมพ์ VBA . ด้านล่าง รหัสเพื่อเปลี่ยนสีแบบอักษร รหัส VBA คือ

Sub Sort_Smallest_to_Largest()
Rows("4:16").Select
ActiveWorkbook.Worksheets("Smallest to Largest").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Smallest to Largest").Sort.SortFields.Add Key:=Range("E4:E16") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Smallest to Largest").Sort
.SetRange Range("B4:E16")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

• นอกจากนี้ ให้เรียกใช้ VBA โดยไปที่

เรียกใช้ → เรียกใช้ Sub/UserForm

ขั้นตอนที่ 2:

• หลังจากเรียกใช้ รหัส VBA คุณจะสามารถจัดเรียงข้อมูลจากน้อยไปมากตาม ชื่อเวิร์กชีต ซึ่งได้รับในภาพหน้าจอด้านล่าง

อ่านเพิ่มเติม: วิธีการกรองอัตโนมัติและคัดลอกแถวที่มองเห็นได้ด้วย Excel VBA

สิ่งที่ควรจำ

👉 คุณสามารถป๊อปอัป Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างโดยกด Alt + F11 พร้อมกัน .

👉หากเป็น นักพัฒนา แท็บไม่ปรากฏใน ribbon ของคุณ คุณสามารถทำให้มองเห็นได้ โดยไปที่

ไฟล์ → ตัวเลือก → กำหนด Ribbon เอง

บทสรุป

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

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

• Excel VBA เพื่อตรวจสอบว่า AutoFilter เปิดอยู่ (4 วิธีง่ายๆ)
• วิธีการกรองค่าอัตโนมัติไม่เท่ากับค่าที่แน่นอนด้วย VBA ใน Excel
• Excel VBA:ลบตัวกรองอัตโนมัติหากมีอยู่ (7 วิธี)