วิธีจัดเรียงข้อมูลคอลัมน์โดยคลิกที่ส่วนหัวใน Excel
สมมติว่าฉันมีข้อมูลช่วงหนึ่งตอนนี้ฉันต้องการจัดเรียงข้อมูลจากน้อยไปมากหรือมากไปหาน้อยโดยคลิกที่ส่วนหัวของคอลัมน์ใดก็ได้เพื่อรับภาพหน้าจอต่อไปนี้ คุณจะแก้งานนี้ใน Excel ได้อย่างไร
จัดเรียงข้อมูลโดยคลิกที่ส่วนหัวของคอลัมน์ด้วยรหัส VBA
จัดเรียงข้อมูลโดยคลิกที่ส่วนหัวของคอลัมน์ด้วยรหัส VBA
โดยปกติแล้ว ใน Excel คุณสามารถใช้คุณลักษณะการเรียงลำดับเพื่อเรียงลำดับข้อมูลได้อย่างรวดเร็วและง่ายดาย แต่หากต้องการเรียงลำดับข้อมูลโดยเพียงแค่คลิกที่เซลล์ โค้ด VBA ต่อไปนี้อาจช่วยได้
1. คลิกขวาที่แท็บแผ่นงานที่คุณต้องการจัดเรียงข้อมูลโดยคลิกที่เซลล์แล้วเลือก ดูรหัส จากเมนูบริบทและในเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคัดลอกและวางรหัสต่อไปนี้ลงในโมดูลเปล่า:
รหัส VBA: จัดเรียงข้อมูลโดยคลิกที่ส่วนหัวของเซลล์หรือคอลัมน์:
Public blnToggle As Boolean
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
Dim LastColumn As Long, keyColumn As Long, LastRow As Long
Dim SortRange As Range
LastColumn = _
Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
keyColumn = Target.Column
If keyColumn > LastColumn Then Exit Sub
Application.ScreenUpdating = False
Cancel = True
LastRow = Cells(Rows.Count, keyColumn).End(xlUp).Row
Set SortRange = Target.CurrentRegion
blnToggle = Not blnToggle
If blnToggle = True Then
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlAscending, Header:=xlYes
Else
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlDescending, Header:=xlYes
End If
Set SortRange = Nothing
Application.ScreenUpdating = True
End Sub
2. จากนั้นบันทึกและปิดหน้าต่างรหัสตอนนี้เมื่อคุณคลิกสองครั้งที่เซลล์หรือส่วนหัวของคอลัมน์ใด ๆ ภายในช่วงข้อมูลคอลัมน์จะถูกเรียงลำดับจากน้อยไปหามากหากคุณดับเบิลคลิกอีกครั้งคอลัมน์จะเรียงลำดับจากมากไปหาน้อยในครั้งเดียว
บทความที่เกี่ยวข้องเพิ่มเติม:
วิธีการเปลี่ยนค่าเซลล์โดยคลิกที่เซลล์?
วิธีกรองข้อมูลเพียงแค่คลิกเนื้อหาเซลล์ใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!