كيف يمكن فرز بيانات العمود بالنقر على عنوانه في Excel؟
افترض أن لديك نطاقًا من البيانات، وترغب الآن في فرزها بترتيب تصاعدي أو تنازلي بمجرد النقر على أي عنوان عمود—تمامًا كما يظهر في لقطة الشاشة التالية. كيف يمكنك تنفيذ هذه المهمة في Excel؟
فرز البيانات بالنقر على عنوان العمود باستخدام كود VBA
فرز البيانات بالنقر على عنوان العمود باستخدام كود VBA
عادةً، يُتيح لك Excel استخدام ميزة الفرز لترتيب البيانات بسرعة وسهولة، ولكن إذا أردت فرز البيانات بنقرة واحدة على خلية، فسيساعدك كود VBA التالي.
1. انقر بزر الماوس الأيمن على لسان الورقة التي تريد فرز بياناتها، واخترعرض الكودمن قائمة السياق. ثم، في نافذةمايكروسوفت فيجوال بيسك للتطبيقاتالمفتوحة، انسخ والصق الكود التالي في الوحدة النمطية الفارغة:
كود 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 Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل