كيفية فرز بيانات العمود عن طريق النقر فوق رأس في إكسيل؟
لنفترض أن لدي مجموعة من البيانات ، الآن ، أود فرز البيانات بترتيب تصاعدي أو تنازلي من خلال النقر فوق أي رأس عمود لعرض لقطة الشاشة التالية. كيف يمكنك حل هذه الوظيفة في Excel؟
فرز البيانات عن طريق النقر فوق رأس العمود مع رمز VBA
فرز البيانات عن طريق النقر فوق رأس العمود مع رمز VBA
عادةً ، في Excel ، يمكنك تطبيق ميزة الفرز لفرز البيانات بسرعة وسهولة ، ولكن لفرز البيانات بمجرد النقر فوق خلية ، يمكن أن يقدم لك رمز VBA التالي خدمة.
1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة التي تريد فرز البيانات بالنقر فوق خلية واختيارها عرض الرمز من قائمة السياق ، وفتح Microsoft Visual Basic للتطبيقات نافذة ، انسخ والصق الكود التالي في الوحدة النمطية الفارغة:
كود فبا: فرز البيانات عن طريق النقر فوق خلية أو رأس عمود:
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 for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!