تعديل علي فاتورة أتوماتيك

[حسونة محمد]

السلام عليكم و رحمة الله تعالي و بركاته

وجدت هذا الموضوع في المنتذي و اعجبني كثيرا

 

 و اردت ان امكن التعديل عليه من جديد

عند الضغط علي الزر تطبع الفاتورة و ترحل ثم تمح المعلومات الجديدة 

و شكرا جزيلا مسبق

Test_3.xls

[Saleh Ahmed Rabie]

```vba
Private Sub PrintInvoiceAndClearData()

    ' طباعة الفاتورة
    ActiveSheet.PrintOut

    ' مسح البيانات
    Range("A1:Z100").ClearContents

End Sub
```

سيقوم هذا الكود بطباعة الورقة النشطة ثم مسح محتويات الخلايا من A1:Z100.

لاستخدام هذا الكود، يمكنك إنشاء زر على ورقة العمل وتعيين الكود أعلاه لحدث `OnClick` للزر. عند النقر فوق الزر، سيتم طباعة الفاتورة ومسح البيانات.

فيما يلي مثال على كيفية تعيين الكود لزر:

1. انقر بزر الماوس الأيمن على ورقة العمل وحدد "إدراج" > "زر".
2. سيتم إدراج زر على ورقة العمل.
3. انقر بزر الماوس الأيمن فوق الزر وحدد "تعيين ماكرو".
4. في مربع الحوار "تعيين ماكرو"، حدد ماكرو `PrintInvoiceAndClearData` وانقر فوق "موافق".

الآن، عند النقر فوق الزر، سيتم طباعة الفاتورة ومسح البيانات.

أتمنى أن يساعدك هذا! 😊