كيفية زيادة رقم تلقائيًا عند فتح المصنف؟
إذا كنت تريد زيادة خلية رقمية بمقدار 1 تلقائيًا عند فتح المصنف في كل مرة ، بالطبع ، يمكنك إضافة 1 يدويًا. ولكن ، هل هناك طريقة أفضل لإضافة 1 للرقم تلقائيًا عند فتح مستند Excel؟
قم بزيادة رقم تلقائيًا عند فتح المصنف برمز VBA
قم بزيادة رقم تلقائيًا عند فتح المصنف برمز VBA
قد يساعدك رمز VBA البسيط التالي على إضافة 1 للخلية الرقمية تلقائيًا عند فتح المصنف في كل مرة ، يرجى القيام بذلك على النحو التالي:
1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في مشروع- VBAProject جزء ، انقر نقرًا مزدوجًا ThisWorkbook لفتح وحدة، ثم انسخ الكود أدناه والصقه في الوحدة النمطية ، انظر لقطة الشاشة:
رمز فبا: قم بزيادة الرقم تلقائيًا عند فتح المصنف:
Private Sub Workbook_Open()
Worksheets("Sheet1").Range("A2") = Worksheets("Sheet1").Range("A2") + 1
End Sub
ملاحظة: في الكود أعلاه ، Sheet1 و A2 هي الورقة والخلية التي تحتوي على الرقم الذي تريد زيادته تلقائيًا. يرجى تغييرها إلى حاجتك.
3. ثم يجب عليك حفظ ملف Excel باسم مصنف Excel ممكن بماكرو التنسيق ، انظر لقطة الشاشة:
من الآن فصاعدًا، عند فتح هذا المصنف المحدد، سيتم إضافة الرقم الموجود في الخلية A2 في الورقة1 إلى 1 تلقائيًا.
ملاحظة: يتم تطبيق هذا الرمز فقط على الخلية الرقمية.
أفضل أدوات إنتاجية المكتب
ارفع مهاراتك في برنامج Excel باستخدام Kutools for Excelوتجربة كفاءة لم يسبق لها مثيل. Kutools for Excel يقدم أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يجلب الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
