كيف يمكن زيادة قيمة الخلية تلقائيًا بعد كل عملية طباعة؟
في العديد من سير العمل التجارية والإدارية، قد تظهر الحاجة إلى طباعة نسخ متعددة من مستند أو فاتورة أو شيك، بحيث تكون كل نسخة مُرقمة برقم تسلسلي فريد أو معرّف خاص لتسهيل التسجيل والمتابعة. على سبيل المثال، تخيل أن لديك ورقة عمل في Excel منسَّقة كنموذج شيك أو قسيمة، وتتضمن الخلية A1 رقم شيك مثل "Company-001". عند طباعة 100 نسخة من هذه الصفحة، سيكون تحديث الرقم يدويًّا لكل نسخة أمرًا مملًّا ومعرضًا للخطأ. من الأفضل أن تقوم Excel تلقائيًّا بزيادة القيمة في الخلية A1 مع كل عملية طباعة، بحيث تظهر النسخة الأولى كـ "Company-001"، والثانية كـ "Company-002"، وهكذا حتى "Company-100".
لا توفّر Excel افتراضيًّا ميزة مضمنة لزيادة قيمة خلية تلقائيًّا بعد كل عملية طباعة. ومع ذلك، يمكنك تحقيق هذه الأتمتة بسهولة باستخدام ماكرو VBA. يُعدّ VBA حلاً عمليًّا وفعّالًا إذا كنت بحاجة إلى إنشاء نسخ ورقية مرقمة بشكل متسلسل، خاصة عند التعامل مع النماذج التسلسلية أو التذاكر أو الشيكات أو أي سيناريو يتطلب معرّفات فريدة للصفحات المطبوعة. ويضمن هذا الأسلوب تجنّب الأخطاء اليدوية، وتوفير الوقت، والحصول على رقم فريد لكل نسخة حسب الحاجة.
فيما يلي نقدّم طريقة VBA لزيادة قيم الخلايا تلقائيًّا مع كل نسخة مطبوعة. كما يتضمّن هذا المقال إرشاداتٍ حول الاستخدام الفعّال، والتحذيرات المحتملة، ونصائحَ عمليةً لتحسين مهام الطباعة الجماعية في سير عمل Excel الخاص بك.
زيادة قيمة الخلية تلقائيًّا بعد كل طباعة باستخدام كود VBA
زيادة قيمة الخلية تلقائيًّا بعد كل طباعة باستخدام كود VBA
لا يوفّر Excel خيارًا مباشرًا أو مدمجًا لزيادة قيمة خلية تلقائيًّا مع كل طباعة. لكن يمكنك أتمتة هذه العملية بسلاسة باستخدام ماكرو VBA لطباعة عدد محدّد من النسخ بكفاءة، بحيث تحتوي كل نسخة على معرّف متزايد في الخلية A1. ويُعدّ هذا الأسلوب مثاليًّا لإنشاء نسخ ورقية مخصصة — مثل الشيكات أو الملصقات أو النماذج — ذات ترقيم تسلسلي فريد. يُرجى ملاحظة أن استخدام الماكرو قد يتطلب تمكينه في بيئة Excel الخاصة بك، وقد يؤثر تشغيل كود VBA على إعدادات أمان الملف. ولذلك، تأكد دائمًا من حفظ عملك قبل تشغيل أي كود.
1. اضغط مع الاستمرار على مفاتيحALT + F11 معًا لفتح نافذةMicrosoft Visual Basic for Applications. إذا كانت هذه أول مرة تستخدم فيها VBA، فقد تحتاج إلى تمكين علامة التبويبالمطوّرفي شريط Excel الخاص بك.
2. في محرر VBA، انقر فوقإدراج > وحدة نمطيةلفتح نافذة وحدة نمطية جديدة. ثم انسخ والصق كود VBA المقدم أدناه في الوحدة الجديدة. سيساعدك هذا البرنامج النصي في زيادة رقم الطباعة تلقائيًا لكل نسخة تقوم بطباعتها من ورقة العمل النشطة.
كود VBA: زيادة قيمة الخلية تلقائيًّا بعد كل طباعة:
Sub IncrementPrint()
'updateby Extendoffice
Dim xCount As Variant
Dim xScreen As Boolean
Dim I As Long
On Error Resume Next
LInput:
xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
If TypeName(xCount) = "Boolean" Then Exit Sub
If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
GoTo LInput
Else
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xCount
ActiveSheet.Range("A1").Value = " Company-00" & I
ActiveSheet.PrintOut
Next
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub
يطلب منك هذا الكود إدخال العدد الإجمالي للنسخ التي ترغب في طباعتها، ويقوم بتحديث الخلية A1 تلقائيًّا في كل دورة طباعة، ثم يطبع كل إصدار دون تدخل يدوي.
3. بعد لصق الكود، تأكد من أن ورقة العمل جاهزة، وأن تحتوي الخلية النشطة (عادةً A1) على النص الأساسي الصحيح (مثل "Company-001"). اضغط على مفتاحF5 أو انقر فوقتشغيلفي محرر VBA لبدء الماكرو. ستظهر نافذة منبثقة تسألك عن عدد النسخ التي ترغب في طباعتها؛ أدخل العدد المطلوب (مثلًا، 100) وقم بتأكيد الإدخال. يُرجى الرجوع إلى لقطة واجهة المستخدم أدناه كمرجع:
إذا أدخلت قيمة غير رقمية أو نقرت على «إلغاء»، فسيتوقف الإجراء دون تنفيذ أي إجراءات. تأكد من إدخال أرقام فقط، وتحقق مرتين من القيمة الابتدائية في الخلية A1 قبل المتابعة.
4. انقر فوق زرموافق، وسيقوم الماكرو الآن بطباعة ورقة العمل بالعدد المحدد من المرات، مع تعديل التسلسل في الخلية A1 في كل مرة، بحيث تكون كل صفحة مطبوعة مرقمة بالتسلسل (مثل Company-001، Company-002، Company-003، ... حتى Company-100، بناءً على إدخالك وتنسيق الماكرو).
ملاحظات ونصائح إضافية:في الكود، تُستخدم الخليةA1للرقم التسلسلي. سيتم استبدال أي محتوى موجود في A1 بالرقم التسلسلي الجديد، لذا إذا كانت لديك معلومات ترغب في الاحتفاظ بها، فاحرص على عمل نسخة احتياطية من هذه الخلية قبل تشغيل الكود. يمكنك تعديل البادئة الرقمية الافتراضية (")Company-00") في كود VBA لتتناسب مع تنسيق التسلسل المفضل لديك؛ غيّر النص وعدد الأصفار حسب رغبتك. كن حذرًا عند استخدام الماكرو في ملفات عمل مشتركة أو محمية، إذ يتطلب تنفيذه صلاحيات مناسبة. وإذا كانت طابعتك بطيئة، فتجنّب تشغيل البرنامج النصي لإنشاء أعداد كبيرة جدًّا من النسخ لتجنب ازدحام قائمة الطباعة.
إذا واجهت مشكلات مثل تعذُّر بدء مهمة الطباعة، أو عدم زيادة الأرقام بالشكل الصحيح، أو ظهور أخطاء متعلقة بمراجع الخلايا، فتأكد أولًا من أن الماكرو مفعَّل وأن ورقة العمل غير محمية. كما يُنصح بالتحقق من ضبط خلية المرجع (مثل A1 في هذا المثال) بشكل دقيق قبل التشغيل، واحرص على حفظ ملف العمل قبل تنفيذ العمليات الدفعية لتفادي فقدان البيانات غير المقصود. وفي حال احتجت إلى مزيد من التخصيص—كاستخدام خلية مختلفة، أو تطبيق تنسيق رقمي معيّن، أو تحديد ورقة عمل بديلة—فقم بتعديل مراجع الخلايا وأسطر التنسيق في كود 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل