Skip to main content

Kutools for Office — مجموعة واحدة. خمسة أدوات. أنجز المزيد.

كيفية زيادة قيمة الخلية تلقائيًا بعد كل طباعة؟

Author Xiaoyang Last modified

في العديد من سير العمل التجارية والإدارية، قد يكون هناك حاجة لطباعة نسخ متعددة من مستند أو فاتورة أو شيك، كل منها مرفق برقم تسلسلي أو معرف فريد لتسهيل تسجيل وإدارة البيانات. على سبيل المثال، تخيل أن لديك ورقة عمل Excel مهيأة كنموذج للشيك أو القسيمة، والخلية A1 تحتوي على رقم الشيك مثل "Company-001". عند طباعة 100 نسخة من هذه الصفحة، سيكون من الممل ومن الخطأ الاضطرار لتحديث الرقم يدويًا لكل نسخة مطبوعة. بالطبع، سيكون من الأفضل لو كان Excel يقوم بزيادة قيمة الخلية A1 تلقائيًا في كل مرة يتم فيها الطباعة، بحيث تكون الطبعة الأولى "Company-001"، الثانية "Company-002"، وهكذا حتى "Company-100".

افتراضيًا، لا توفر Excel ميزة مدمجة لزيادة قيمة الخلية تلقائيًا بعد كل مهمة طباعة. ومع ذلك، يمكنك تحقيق هذا التلقائية باستخدام ماكرو VBA. يعتبر استخدام VBA حلاً عمليًا إذا كنت تحتاج إلى إنشاء نسخ مرقمة بشكل متتالي بكفاءة، خاصة عند التعامل مع النماذج المتسلسلة، التذاكر، الشيكات، أو أي سيناريو يتطلب معرفات فريدة للصفحات المطبوعة. يساعد هذا النهج في تجنب الأخطاء اليدوية، توفير الوقت، ويضمن أن تحصل كل نسخة على رقم فريد كما هو مطلوب.

أدناه، نقدم طريقة VBA لزيادة قيم الخلية تلقائيًا لكل نسخة مطبوعة. بالإضافة إلى ذلك، يقدم هذا المقال إرشادات حول الاستخدام الفعال، المحاذير المحتملة، ونصائح عملية لتحسين مهام الطباعة الجماعية ضمن سير عمل Excel الخاص بك.

زيادة قيمة الخلية تلقائيًا بعد كل طباعة باستخدام شفرة VBA


arrow blue right bubble زيادة قيمة الخلية تلقائيًا بعد كل طباعة باستخدام شفرة 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) وقم بتأكيد الإدخال. يرجى الرجوع إلى لقطة الشاشة المرفقة أدناه للمراجعة:

A screenshot of a prompt box asking for the number of copies to print with incremented numbers

إذا أدخلت قيمة غير رقمية أو قمت بالنقر فوق Cancel، سيتوقف العملية دون تنفيذ أي إجراء. تأكد من إدخال الأرقام فقط وتحقق من القيمة الابتدائية في الخلية A1 قبل المتابعة.

4. انقر فوق الزر OK. الآن سيعمل الماكرو على طباعة ورقة العمل العدد المحدد من المرات، مع تعديل التسلسل في الخلية A1 في كل مرة بحيث يتم ترقيم كل صفحة مطبوعة بالترتيب (مثل Company-001، Company-002، Company-003، ... حتى Company-100، بناءً على إدخالك وتنسيق الماكرو).

ملاحظات ونصائح إضافية: في الشفرة، يتم استخدام الخلية A1 لرقم التسلسل. سيتم الكتابة فوق أي محتوى موجود في A1 بواسطة أول رقم تسلسلي جديد، لذا إذا كان لديك معلومات ترغب في الاحتفاظ بها، تأكد من عمل نسخة احتياطية لهذه الخلية قبل تشغيل الشفرة. يمكن تعديل البادئة الرقمية الافتراضية ("Company-00") في شفرة VBA لتتناسب مع تنسيق التسلسل المفضل لديك؛ قم بتغيير النص والتعبئة الرقمية حسب الحاجة. كن حذرًا عند استخدام الماكرو في المصنفات المشتركة أو المحمية، حيث يتطلب تشغيل الماكرو الحصول على الأذونات المناسبة. إذا كان الطابعة بطيئة، تجنب تشغيل البرنامج النصي مع عدد كبير جدًا من النسخ لمنع تجاوز قائمة الطباعة.

إذا واجهت مشكلات مثل عدم بدء مهمة الطباعة، عدم زيادة الأرقام بشكل صحيح، أو حدوث أخطاء بشأن مراجع الخلايا، تحقق مرتين من أن الماكرو مفعل وأن ورقة العمل ليست محمية. تأكد من تعيين الخلية المرجعية (A1 في هذا المثال) بشكل صحيح قبل التشغيل، وفكر في حفظ مصنفك قبل العمليات الدُفعية لتجنب فقدان البيانات غير المقصود. إذا كانت هناك حاجة لمزيد من التخصيص (مثل استخدام خلية مختلفة، تنسيق رقمي مختلف، أو ورقة عمل أخرى)، قم بتعديل مراجع الخلايا وخطوط التنسيق في شفرة VBA حسب الحاجة.

أفضل أدوات الإنتاجية لمكتب العمل

🤖 Kutools AI Aide: أحدث ثورة في تحليل البيانات اعتمادًا على: التنفيذ الذكي |  توليد الأكواد |  إنشاء الصيغ المخصصة |  تحليل البيانات وتوليد الرسوم البيانية |  استخدام Kutools Functions...
ميزات شائعة: البحث، تمييز أو وضع علامة على المكررات | حذف الصفوف الفارغة | دمج الأعمدة أو الخلايا بدون فقدان البيانات | تقريب بدون الصيغة...
بحث متقدم: بحث بمعايير متعددة VLookup | بحث بقيم متعددة VLookup | بحث في عدة ورقات VLookup | مطابقة غامضة...
قائمة منسدلة متقدمة: إنشاء قائمة منسدلة بسرعة | قائمة منسدلة معتمدة | قائمة منسدلة متعددة الاختيارات...
مدير الأعمدة: إضافة عدد محدد من الأعمدة | نقل الأعمدة | تبديل حالة إظهار الأعمدة المخفية | مقارنة النطاقات والأعمدة...
ميزات مميزة: التركيز على الشبكة | عرض التصميم | شريط الصيغ المحسن | مدير أدوات المصنف وورقة العمل | مكتبة النص التلقائي | منتقي التاريخ | دمج البيانات | تشفير/فك تشفير الخلايا | إرسال البريد الإلكتروني حسب الجدول | مرشح متقدم | تصفية خاصة (تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...)...
أفضل15 مجموعة أدوات:12 أداة نصية (إضافة نص، حذف الأحرف المحددة، ...) | أكثر من50 نوع رسم بياني (مخطط جانت، ...) | أكثر من40 صيغة عملية (حساب العمر بناءً على تاريخ الميلاد، ...) |19 أداة إدراج (إدراج رمز الاستجابة السريعة، إدراج صورة من المسار، ...) |12 أداة تحويل (تحويل إلى كلمات، تحويل العملة، ...) |7 أدوات دمج وتقسيم (دمج متقدم للصفوف، تقسيم الخلايا، ...) | ... والمزيد
استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من40 لغة أخرى!

عزز مهاراتك في 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 Tabs PowerPoint
  • حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
  • مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
  • الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
  • تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
  • قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد