كيف تطبع نسخًا متعددة مع أرقام صفحات متسلسلة؟
هل واجهت من قبل موقفًا تحتاج فيه إلى طباعة عدة نسخ من نفس ورقة العمل، مع تخصيص رقم صفحة فريد ومتسلسل لكل نسخة؟ على سبيل المثال، قد تحتاج إلى طباعة 10 نسخ من نموذجٍ ما، بحيث يظهر الرقم 001 في الخلية A1 في النسخة الأولى، والرقم 002 في الثانية، وهكذا حتى يصل إلى 010 في النسخة الأخيرة. يُعد هذا الأسلوب مثاليًا لإصدار فواتير مرقمة، أو تذاكر، أو نماذج طلبات، أو أي دفعة تتطلب تتبع النسخ الفردية لأغراض التنظيم أو المراجعة.
للأسف، لا يوفّر برنامج Excel إعدادًا مدمجًا يسمح للمستخدمين بطباعة نسخ متعددة تلقائيًا مع أرقام متزايدة في خلية محددة. فتعديل الورقة يدويًّا لكل طبعة ليس عمليًّا، خاصة عند التعامل مع عدد كبير من النسخ. ومع ذلك، يمكنك أتمتة هذه العملية بسهولة باستخدام ماكرو VBA بسيط عند الحفظ، مما يقلل الأخطاء اليدوية ويضمن ترقيم كل نسخة بشكل فريد وفقًا لمتطلباتك.
طباعة نسخ بأرقام مختلفة باستخدام كود VBA
استخدام صيغ Excel والطباعة اليدوية
طباعة نسخ بأرقام مختلفة باستخدام كود VBA
طباعة نسخ بأرقام مختلفة باستخدام كود VBAتعتمد هذه الطريقة على ماكرو VBA لطباعة نسخ متعددة من ورقة العمل، مع إدخال أرقام متسلسلة تلقائيًّا في خلية معيّنة لكل طبعة.
اتبع الخطوات التالية لإنشاء الماكرو وتنفيذه بسرعة:
1. أولًا، فعّل ورقة العمل التي تريد طباعتها، ثم اضغط علىAlt + F11 لفتح نافذة محررMicrosoft Visual Basic for Applications (VBA).
2. في محرر VBA، انقر علىإدراج > وحدة نمطيةلإضافة وحدة جديدة. ثم انسخ الكود التالي والصقه في نافذة الوحدة النمطية. (راجع لقطة الشاشة للتوجيه البصري.)
VBA: طباعة نسخ مع ترقيم صفحات متسلسل.
Sub PrintCopiesWithNumbers()
'UpdatebyEntendoffice20161031
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 10
Range("A1").Value = "'00" & i
ActiveSheet.PrintOut
Next i
Application.ScreenUpdating = True
MsgBox "Total printed copies: " & (i - 1), vbInformation, "Kutools for Excel"
End Sub
ملاحظات حول المعاملات ونصائح:
- في الكود، يشير المرجعA1 إلى الخلية التي سيظهر فيها رقم التسلسل. إذا كنت تفضل خلية أخرى، مثل B2، فما عليك سوى تحديث المرجع وفقًا لذلك.
- 1 To10يُحدد عدد النسخ المراد طباعتها (في هذا المثال، 10). يمكنك تغيير الرقم 10 إلى أي عدد صحيح موجب آخر حسب حاجتك.
- «'00» & I يقوم بتنسيق رقم التسلسل ليظهر كأرقام مكوَّنة من ثلاث خانات مع أصفار بادئة (مثلًا: 001، 002، 003). إذا كنت ترغب في تنسيق مختلف—مثل البدء من 100 أو عرض الأرقام بدون أصفار بادئة—فعدِّل السلسلة النصية وفقًا لذلك.
- قبل تشغيل الماكرو، تأكد من أن ورقة العمل جاهزة ولا تحتوي على بيانات في الخلية المستهدفة قد تُكتب فوقها. ويُوصى بحفظ مصنف العمل قبل المتابعة، إذ لا يمكن التراجع عن إجراءات الماكرو.
3. مع بقاء ورقة العمل نشطة، اضغط علىF5 أو زرتشغيلداخل محرر VBA لتنفيذ الكود. ستظهر نافذة منبثقة تُبلغك، على سبيل المثال، بأنه «سيتم طباعة 10 نسخ مع أرقام متتالية.» انقر علىموافقللمتابعة؛ وسيقوم الماكرو تلقائيًّا بالمرور على كل رقم، وتعبئة التسلسل في الخلية المحددة، ثم طباعة الورقة. ستكون كل طبعة مرقمة بشكل فريد وفقًا لإعداداتك.
استخدام صيغ Excel والطباعة اليدوية
عندما تحتاج إلى عدد محدود من النسخ أو تفضّل تجنّب استخدام الماكرو، يمكنك الاعتماد على مقبض التعبئة في Excel لتوليد أرقام متسلسلة، ثم طباعة كل صف يدويًّا. ويُعدّ هذا الأسلوب مثاليًا خصوصًا للحالات التي تتطلب ترقيمًا فريدًا للملصقات أو البطاقات أو النماذج ضمن دفعة ذات حجم معقول.
1. في عمود جديد (مثل العمود A)، أدخل الرقم التسلسلي الابتدائي في الخلية الأولى، كأن تكتب 001. ويمكنك فعل ذلك بإدخال الصيغة التالية في الخلية A1:
=TEXT(ROW(A1),"000")2. اسحب مقبض التعبئة لأسفل لتكرار الصيغة بعدد النسخ التي ترغب في طباعتها (مثلاً، حتى الصف 10 للحصول على 10 نسخ). ستعرض كل خلية الرقم المتسلسل التالي مع الأصفار البادئة.
3. انسخ مجموعة الصف بأكملها أو البيانات إلى ورقة جديدة لكل نسخة مطلوبة، ثم استخدم وظيفةطباعةفي 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل