Excel - ماكرو لإجراء الترقيم التلقائي للفواتير

القضية

أقوم بتخزين فواتيري ضمن برنامج Excel ، لكن يجب تعيين رقم جديد يدويًا لكل منها في كل مرة.

هل من الممكن الحصول على ترقيم تلقائي باستخدام ماكرو؟

حل

هذا هو الماكرو الذي يمكن أن يزيد (على سبيل المثال) رقم الفاتورة. في هذا الماكرو ، يتم عرض الرقم في الخلية "A1" ، ولكن يمكن تغييره حسب راحتك.

 Sub Increment_invoice () Dim num As Integer Range ("A1"). حدد num = Range ("A1"). القيمة num = num + 1 Range ("A1"). Value = num End Sub 

تريد أيضًا إضافة هذه الأسطر إلى نهاية ماكرو ، بحيث في كل مرة تقوم فيها بطباعة فاتورتك ، سيتم زيادة السطر التالي تلقائيًا كما يلي:

 Sub PRINT () نسخ ActiveWindow.SelectedSheets.PrintOut: = 1 ، Collate: = True Dim num As Integer Range ("A1"). حدد num = Range ("A1"). القيمة num = num + 1 Range ("A1" ) .القيمة = نهاية الأسطر الفرعية