كيفية فرز العمود تلقائيًا حسب القيمة في 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:B" يعني أنه سيتم فرز العمود B تلقائيًا، B1 هي الخلية الأولى في العمود B، و"B2" هي الخلية الثانية في العمود B، ويمكنك تغييرها بناءً على احتياجاتك.
2) الشريحة "Header:=xlYes" في الصف الخامس تخبر Excel أن النطاق الذي ستقوم بفرزه يحتوي على رأس، بحيث لن يتم تضمين الصف الأول من النطاق عند الفرز. إذا لم يكن هناك رأس، يرجى تغييره إلى "Header:=xlNo"؛ وتغيير "Key1:=Range("B2")" في الصف الرابع إلى "Key1:=Range("B1")".

3. ثم عد إلى ورقة العمل، عندما تقوم بإدخال رقم جديد في عمود السعر أو تعديل أي أسعار موجودة، سيتم فرز عمود السعر تلقائيًا بترتيب تصاعدي.

ملاحظة: عند إدخال رقم جديد في عمود السعر، يجب عليك إدخال الرقم في أول خلية فارغة أسفل الأرقام الأصلية. إذا كانت هناك خلايا فارغة بين الرقم المدخل حديثًا والأرقام الأصلية وكذلك خلايا فارغة بين الأرقام الأصلية، فلن يتم فرز هذا العمود تلقائيًا.

عرض توضيحي: فرز العمود تلقائيًا حسب القيمة باستخدام VBA في Excel