كيفية زيادة قيمة الخلية تلقائيًا بعد كل طباعة؟
في العديد من سير العمل التجارية والإدارية، قد يكون هناك حاجة لطباعة نسخ متعددة من مستند أو فاتورة أو شيك، كل منها مرفق برقم تسلسلي أو معرف فريد لتسهيل تسجيل وإدارة البيانات. على سبيل المثال، تخيل أن لديك ورقة عمل 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، قد تحتاج إلى تمكين علامة التبويب Developer في شريط أدوات Excel الخاص بك.
2. في محرر VBA، انقر فوق Insert > Module لفتح نافذة وحدة جديدة. في الوحدة الجديدة، انسخ والصق شفرة 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 أو انقر فوق Run في محرر VBA لبدء الماكرو. ستظهر نافذة منبثقة تسألك عن عدد النسخ التي ترغب في طباعتها؛ أدخل الرقم المطلوب (على سبيل المثال، 100) وقم بتأكيد الإدخال. يرجى الرجوع إلى لقطة الشاشة المرفقة أدناه للمراجعة:
إذا أدخلت قيمة غير رقمية أو قمت بالنقر فوق Cancel، سيتوقف العملية دون تنفيذ أي إجراء. تأكد من إدخال الأرقام فقط وتحقق من القيمة الابتدائية في الخلية A1 قبل المتابعة.
4. انقر فوق الزر OK. الآن سيعمل الماكرو على طباعة ورقة العمل العدد المحدد من المرات، مع تعديل التسلسل في الخلية 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد