كيف يمكن ترقيم عمود تلقائيًا بناءً على قيمة خلية في عمود آخر في Excel؟
الترقيم التلقائي لعمود بناءً على القيمة بناءً على عمود آخر
استخدم VBA للترقيم التلقائي للصفوف بناءً على منطق متقدم
الترقيم التلقائي لعمود بناءً على القيمة بناءً على عمود آخر
إذا كنت ترغب في ترقيم الصفوف تلقائيًا في عمود ما، ولكن فقط عند استيفاء شروط معيّنة في عمود آخر (مثل أن تكون القيمة في ذلك العمود غير مساوية لـ «Total»)، فيمكنك تحقيق ذلك بسهولة باستخدام صيغة. وتُعد هذه الطريقة مثالية لمجموعات البيانات الصغيرة والمتوسطة، حيث توفّر وسيلة مباشرة لتخطي ترقيم الصفوف غير المرغوبة، مثل صفوف المجاميع الفرعية أو الملخّصات.
1. في الخلية الأولى من عمود الترقيم (مثل A1)، أدخل يدويًا1. هذه القيمة ستكون نقطة البداية لتسلسل الترقيم الخاص بك. انظر لقطة الشاشة:
2. في الخلية الثانية التي ترغب أن يستمر فيها الترقيم التلقائي (مثلًا، A2)، أدخل الصيغة التالية:
=IF(B2="Total","",COUNTIF($A$1:A1,">0")+1)ثم اضغط مفتاح الإدخال Enter. ستُدرج هذه الصيغة الرقم التالي في التسلسل ما لم تكن القيمة المقابلة في العمود B هي «Total»، وفي هذه الحالة يبقى الصف فارغًا (غير مرقّم).
شرح المعاملات:
- B2: تُفحص الخلية في العمود B وفقًا للشرط. يمكنك تعديل هذا المرجع ليتوافق مع عمود البيانات الفعلي لديك.
- «Total»:استبدل «Total» بأي قيمة ترغب في استبعادها من العد.
- $A$1:A1: يُستخدم هذا النطاق لعدّ الأرقام السابقة في عمود الترقيم الخاص بك. تأكد من أن مرجع الخلية الابتدائية يتطابق مع المكان الذي أدخلت فيه1 في الخطوة 1.
تلميح:هذه الطريقة مثالية للنطاقات المستمرة، خاصةً عندما تريد تخطي ترقيم الصفوف التي تستوفي شرطًا معيّنًا. احرص عند نسخ الصيغ خارج آخر صف يحتوي على بياناتك، إذ قد يؤدي ذلك إلى إدخال صفوف فارغة أو تنسيقات غير مرغوبة. وللمجموعات الديناميكية أو المفلترة، يُوصى باستخدام أعمدة مساعدة لتثبيت المنطق وتجنب الفجوات غير المتوقعة في الترقيم.
3. استخدم مقبض الملء التلقائي لسحب الصيغة لأسفل لتغطية نطاق العمود الذي ترغب في إدخال أرقام التسلسل فيه. ستتحقق الصيغة تلقائيًا، صفًا تلو الآخر، مما إذا كانت القيمة المقابلة في العمود B تستدعي إدخال رقم تسلسلي أو يجب تخطيها. انظر لقطة الشاشة:
تذكير بالخطأ: إذا قمت بفرز الأعمدة المرجعية أو تطبيق مرشحات عليها بعد الترقيم، فتأكد من أن صيغك والنطاقات المرتبطة بها لا تزال متوافقة بشكل صحيح. فقد تؤدي المحاذاة العرضية الخاطئة إلى ظهور أرقام مكررة أو مفقودة.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
استخدم VBA للترقيم التلقائي للصفوف بناءً على منطق متقدم
في الحالات التي لا تكون فيها طريقة الترقيم القائمة على الصيغ مرنة بما يكفي—مثل رغبتك في ترقيم الصفوف المرئية فقط ضمن جدول مفلتر، أو تخطي قيم خلايا معيّنة، أو تطبيق منطق مخصّص—يُعدّ حل VBA الخيار الأمثل. إذ يمكّنك استخدام ماكرو من إنشاء ترقيم ديناميكي يتكيف تلقائيًا مع إعدادات المرشحات، ويتجاهل الخلايا الفارغة أو الكلمات المفتاحية المحددة، ويجدد نفسه تلقائيًا كلما تغيّرت البيانات. وهو مثالي خصوصًا لملفات العمل الكبيرة أو مجموعات البيانات التي تتغير بنيتها بشكل متكرر.
المزايا:
- يمكنك ترقيم الصفوف المرئية فقط (المُفلترة)، مع تخطي الصفوف المخفية بسلاسة.
- يدعم منطق تخطٍّ معقد، مثل تخطي الخلايا الفارغة أو القيم التي يُعرِّفها المستخدم.
- مرن للاستخدام مرة واحدة أو للترقيم المتكرر عبر الأوراق.
تحذيرات:تتطلب الماكروات تفعيل VBA في ملف العمل الخاص بك، ويجب على المستخدمين حفظ ملفاتهم قبل تشغيل أي كود. قد يؤدي الانقطاع غير المتوقع أو اختيار نطاق خاطئ إلى ترقيم غير مكتمل، لذا راجع النتائج دائمًا بعد التنفيذ.
لإنشاء ماكرو للترقيم التلقائي المتقدم، اتبع الخطوات التالية:
1. انقر فوقالمطور Developer > Visual Basic لفتح نافذةMicrosoft Visual Basic for Applications، ثم انقر فوقإدراج Insert > وحدة Module. انسخ والصق الكود التالي في الوحدة:
Sub AdvancedAutoNumbering()
Dim ws As Worksheet
Dim lastRow As Long
Dim numCol As String
Dim critCol As String
Dim skipValue As String
Dim currentNum As Long
Dim i As Long
On Error Resume Next
xTitleId = "KutoolsforExcel"
' Set your sheet and columns here
Set ws = ActiveSheet
numCol = "A" ' Column to contain numbering
critCol = "B" ' Column with criteria values
skipValue = "Total" ' Value to skip, can adjust as needed
' Get the last used row in the sheet
lastRow = ws.Cells(ws.Rows.Count, critCol).End(xlUp).Row
currentNum = 1
For i = 1 To lastRow
If ws.Rows(i).Hidden = False Then ' Only number visible rows
If ws.Cells(i, critCol).Value <> skipValue And ws.Cells(i, critCol).Value <> "" Then
ws.Cells(i, numCol).Value = currentNum
currentNum = currentNum + 1
Else
ws.Cells(i, numCol).Value = ""
End If
End If
Next i
End Sub2. بعد إدخال الكود، أغلق محرر VBA، ثم عُد إلى Excel واضغط مفتاحF5 أو انقر فوق زرالتشغيل Run button. سيقوم الماكرو بترقيم العمود المحدد وفق المنطق الذي اخترته—فقط للصفوف المرئية، مع تخطي أي صفوف تحتوي في عمود المعايير على «Total» أو تكون فارغة.
يمكنك تخصيص المتغيراتnumCol وcritCol وskipValue الموجودة في أعلى الماكرو لتتناسب مع تخطيط بياناتك. ويمكنك بسهولة توسيع هذا الماكرو—على سبيل المثال، لدعم قيم متعددة للتخطي، أو تحديد الأعمدة ديناميكيًا باستخدام مطالبات InputBox.
نصائح استكشاف الأخطاء وإصلاحها:
- إذا واجهت أخطاءً مثل «Subscript out of range»، فتأكد من صحة مراجع الأعمدة (على سبيل المثال، تأكد من وجود العمود «B» في الورقة وأن عدد الصفوف المحدَّد يتوافق مع بياناتك).
- إذا لم يظهر أي ترقيم، فتأكد من أن ورقة العمل نشطة، وتحقق مما إذا كانت مرشحاتك تخفي جميع الصفوف.
- للحصول على أفضل النتائج، راجع بياناتك بحثًا عن أي خلايا مدمجة أو تنسيقات غير قياسية قد تعطّل تنفيذ الماكرو.
اقتراح موجز:الحلول القائمة على الصيغ مناسبة لمتطلبات الترقيم البسيطة والثابتة، بينما توفر ماكروات VBA مرونةً أكبر مع مجموعات البيانات الأكبر أو الديناميكية—خاصةً عند الحاجة إلى احترام المرشحات أو تجاهل قيم معيّنة. قبل تشغيل أي حل VBA، احفظ عملك دائمًا وجربه على نسخةٍ إن أمكن.
مقالات ذات صلة:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل