كيفية زيادة قيمة الخلية تلقائيًا بعد كل طباعة؟
لنفترض أن لدي صفحة ورقة عمل تحتاج إلى طباعتها 100 نسخة ، والخلية A1 هي رقم الشيك Company-001 ، الآن ، أود زيادة الرقم بمقدار 1 بعد كل نسخة مطبوعة. هذا يعني أنه عندما أطبع النسخة الثانية ، سيزداد الرقم تلقائيًا إلى Company-002 ، النسخة الثالثة ، سيكون الرقم Company-003 ... مائة نسخة ، وسيكون الرقم شركة -100. هل هناك حيلة لحل هذه المشكلة في Excel بسرعة وربما؟
زيادة قيمة الخلية تلقائيًا بعد كل طباعة برمز VBA
زيادة قيمة الخلية تلقائيًا بعد كل طباعة برمز VBA
في العادة ، لا توجد طريقة مباشرة لحل هذه المهمة في Excel ، ولكن هنا ، سأقوم بإنشاء رمز VBA للتعامل معها.
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا: زيادة قيمة الخلية تلقائيًا بعد كل طباعة:
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
3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، ويظهر مربع موجه لتذكيرك بإدخال عدد النسخ التي تريد طباعة ورقة العمل الحالية ، انظر لقطة الشاشة:
4. انقر OK ، ويتم طباعة ورقة العمل الحالية الآن ، وفي نفس الوقت ، تكون أوراق العمل المطبوعة مرقمة Company-001 ، و Company-002 ، و Company-003 ... في الخلية A1 حسب حاجتك.
ملاحظات: في الكود أعلاه ، الخلية A1 سيتم إدراج أرقام التسلسل التي طلبتها ، وقيمة الخلية الأصلية بها A1 سيتم مسحها. و "شركة -00"هو رقم التسلسل ، يمكنك تغييره حسب حاجتك.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!