Note: The other languages of the website are Google-translated. Back to English

วิธีจัดเรียงข้อมูลคอลัมน์โดยคลิกที่ส่วนหัวใน Excel

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

doc จัดเรียงโดยคลิก 1

จัดเรียงข้อมูลโดยคลิกที่ส่วนหัวของคอลัมน์ด้วยรหัส 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

doc จัดเรียงโดยคลิก 2

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


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

วิธีการเปลี่ยนค่าเซลล์โดยคลิกที่เซลล์?

วิธีกรองข้อมูลเพียงแค่คลิกเนื้อหาเซลล์ใน Excel


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (6)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้งานได้ดีในการขึ้น ดับเบิ้ลคลิกครั้งที่ 2 ตามที่ระบุการลงไม่ได้ทำอะไรเลย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้งานไม่ได้ ไม่มีอะไรเกิดขึ้น รู้วิธีสร้างโมดูลใน vba ทำอย่างนั้น บันทึกและไม่มีอะไรเกิดขึ้นเมื่อดับเบิลคลิกส่วนหัว โปรดแก้ไข
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
no can do crackerjack - ไม่ทำงาน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Rob โค้ดด้านบนทำงานได้ดีใน Excel ของฉัน คุณช่วยแคปหน้าจอปัญหาของคุณที่นี่ได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
รหัส funktioniert auch gut bei mir. Allerdings würde ich gerne die oberen beiden Zeilen nicht mit sortieren, da diese ตาย Überschriften sind
Wie muss ich dann diesen Code ändern?

ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีเพื่อน,
นี่คือ VBA ที่คุณต้องการ:

bln สาธารณะสลับเป็นบูลีน
แผ่นงานย่อยส่วนตัว_BeforeDoubleClick _
(ByVal กำหนดเป้าหมายเป็นช่วง ยกเลิกเป็นบูลีน)
'Updateby Extendoffice
Dim LastColumn As Long, keyColumn As Long, LastRow As Long
Dim SortRange เป็นช่วง
คอลัมน์สุดท้าย = _
Cells.Find(What:="*", After:=Range("A1"), _
ลำดับการค้นหา:=xlByColumns, SearchDirection:=xlPrevious).Column
keyColumn = Target.Column
หาก keyColumn > LastColumn จากนั้นออกจาก Sub
Application.ScreenUpdating = เท็จ
ยกเลิก = จริง
LastRow = เซลล์ (Rows.Count, keyColumn).End(xlUp).Row
เกี่ยวกับข้อผิดพลาดต่อไป
ตั้งค่า SortRange = Target.CurrentRegion
มืดมนตราบนานเท่านาน
i = 2
ตั้งค่า SortRange = SortRange.Offset (i, 0)
ตั้งค่า SortRange = SortRange.Resize (SortRange.Rows.Count - i, SortRange.Columns.Count)
blnToggle = ไม่ใช่ blnToggle
ถ้า blnToggle = True แล้ว
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlAscending, ส่วนหัว:=xlNo
อื่น
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlDescending, ส่วนหัว:=xlNo
End If
ตั้งค่า SortRange = Nothing
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด


หากคุณมีส่วนหัว 3 แถว เพียงเปลี่ยน "i =2" เป็น "i =3" ใน VBA หวังว่ามันจะช่วย มีวันที่ดี

ขอแสดงความนับถือ
แมนดี้
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ