كيفية فرز العمود تلقائيًا حسب القيمة في Excel؟
على سبيل المثال ، لديك جدول شراء كما هو موضح أدناه. الآن تريد فرز عمود "السعر" تلقائيًا عند إدخال أرقام / أسعار جديدة في هذا العمود ، كيف يمكنك حلها؟ أقدم هنا ماكرو VBA لمساعدتك في الفرز التلقائي لعمود معين حسب القيمة في Excel.
عمود الفرز التلقائي حسب القيمة باستخدام VBA
عمود الفرز التلقائي حسب القيمة باستخدام VBA
سيقوم ماكرو VBA هذا بفرز جميع البيانات الموجودة في عمود معين تلقائيًا بمجرد إدخال بيانات جديدة أو تغيير القيمة في العمود في Excel.
1. انقر بزر الماوس الأيمن فوق اسم الورقة الحالية في ملف شريط علامة تبويب الورقة، ثم انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن.
2. في مربع حوار فتح Microsoft Visual Basic for Application ، الصق رمز الماكرو VBA التالي في نافذة الفتح.
VBA: عمود الفرز التلقائي في Excel
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub
ملاحظات:
1) في كود vba أعلاه ، ب: ب يعني أنه سيتم فرز العمود B تلقائيًا ، B1 هي الخلية الأولى في العمود B ، B2 هي الخلية الثانية في العمود B ، ويمكنك تغييرها بناءً على احتياجاتك.
2) المقتطف العنوان: = xlYes في الصف الخامس يخبر Excel أن النطاق الذي ستفرزه يحتوي على رأس ، بحيث لا يتم تضمين الصف الأول من النطاق عند الفرز. إذا لم يكن هناك عنوان ، يرجى تغييره إلى العنوان: = xlNo؛ والتغيير Key1: = المدى ("B2") في الصف الرابع إلى Key1: = المدى ("B1").
3. ثم ارجع إلى ورقة العمل ، عند إدخال رقم جديد في عمود السعر أو تعديل أي أسعار موجودة ، سيتم فرز عمود السعر تلقائيًا بترتيب تصاعدي.
ملاحظات: عند إدخال رقم جديد في عمود "السعر" ، يجب إدخال الرقم في الخلية الفارغة الأولى أسفل الأرقام الأصلية. إذا كانت هناك خلايا فارغة بين الرقم المدخل الجديد والأرقام الأصلية بالإضافة إلى الخلايا الفارغة بين الأرقام الأصلية ، فلن يتم فرز هذا العمود تلقائيًا.
عرض توضيحي: فرز تلقائي للعمود حسب القيمة باستخدام VBA في Excel
قم بالفرز بسهولة حسب تكرار التكرارات في Excel
كوتولس ل إكسيل فرز متقدم تدعم الأداة المساعدة فرز البيانات حسب طول النص واسم العائلة والقيمة المطلقة والتكرار وما إلى ذلك في Excel بسرعة.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!