كيف يمكن تمكين الترقيم التلقائي في Excel؟
كيف يمكننا ملء سلسلة أرقام في نطاقات مدمجة ذات أحجام مختلفة في Excel؟ أول ما يخطر ببالنا هو سحب مقبض الملء التلقائي لملء الخلايا المدمجة، لكن في هذه الحالة ستظهر لنا رسالة تحذير ولن نتمكّن من إكمال عملية الملء.
بما أن مقبض الملء لا يدعم هذه الميزة المدمجة، فسأعرض هنا بعض الحيل البديلة لحل هذه المشكلة.
الترقيم التلقائي / ملء مدمج باستخدام كود VBA
الترقيم التلقائي / ملء مدمج باستخدام كود VBA
يمكنك استخدام كود VBA التالي لترقيم الخلايا المدمجة بسرعة. يُرجى اتباع الخطوات التالية:
1. اضغط مع الاستمرار على مفاتيحALT + F11، وسيفتح ذلك نافذةMicrosoft Visual Basic for Applications.
2. انقر علىإدراج > وحدة نمطية (Module)، ثم الصق الكود التالي فينافذة الوحدة النمطية.
كود VBA: الترقيم التلقائي لـ مدمج
Sub NumberCellsAndMergedCells()
'Update 20141028
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xIndex = 1
Set Rng = WorkRng.Range("A1")
Do While Not Intersect(Rng, WorkRng) Is Nothing
Rng.Value = xIndex
xIndex = xIndex + 1
Set Rng = Rng.MergeArea.Offset(1)
Loop
End Sub
3. بعد ذلك، اضغط على مفتاحF5 لتشغيل هذا الكود، وستظهر نافذة منبثقة تطلب منك تحديد المدمج الذي تريد ملءه. راجع لقطة الشاشة:
4. بعد تحديد الخلايا المدمجة، انقر علىموافق، وسيتم ملء الخلايا المدمجة التي حددتها تلقائيًا بأرقام متسلسلة. راجع لقطة الشاشة:
مقالات ذات صلة:
كيف يمكن ترقيم الصفوف تلقائيًا أو إعادة ترقيمها بعد تطبيق التصفية في Excel؟
كيف يمكن دمج الصفوف المجاورة التي تحتوي على نفس البيانات بسرعة في Excel؟
كيف يمكن فك دمج الخلايا وملؤها بالقيم المكررة في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل