اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ترقيم الفواتير تلقائياً


الردود الموصى بها

سلام يا شعب

حبيت أستفيد من خبراء الإكسيل في كيفية الترقيم التلقائي عند فتح الملف في كل مرة وإعطاء الفاتورة رقم مختلف عن السابق واللاحق

أرجو الشرح بالتفصيل الممل

تقبلوا تحياتي

مرفق الملف

Invoice.rar

رابط هذا التعليق
شارك

بسم الله الرحمن الرحيم

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

Private Sub Workbook_Open()
Sheets(1).[h9] = [h9] + 1
End Sub

Invoice2.rar

تم تعديل بواسطه ابو اسامة العينبوسي
رابط هذا التعليق
شارك

الاخ العزيز سنجاغ

وبعد إذن اخونا الخبير ابو اسامة

خطوات ادراج كود بأسهل طريقة :

1- قم بنسخ الكود اعلاه .

2- بالملف المرفق Invoice2 قم بإدراج اي شكل تلقائي تراه مناسباً.

3-كليك يمين على الشكل التلقائي المختار واختر تعيين ماكرو.

4- من تعيين ماكرو اختر تحرير وقم بلصق الكود المنسوخ .

ارجو أن يكون الشرح واضح

رابط هذا التعليق
شارك

شكراً على هذا الإبداع والمستوى الراقى والمحترم لجميع الساده الزملاء سواء فى طريقة العرض أو حتى فى طريقة الإستفسار والتعليق

شكراً لكم جميعاً أيها الأخوة الأفاضل :clapping:

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information