الأرقام التسلسلية للفواتير

[مسعود]

السلام عليكم ..

طمعاً بخبرتكم ، أود أن أطلب منكم مساعدتي في الموضوع التالي :

قمت بعمل قالب ( Template ) فواتير خاص على الإكسل ، المشكلة في أنني أود بأن يتم إضافة الرقم التسلسلي للفاتورة في إحدى الخلايا بشكل آلي كلما قمت بفتح ملف جديد على أساس القالب المذكور بحيث يكون هذا الرقم هو الرقم التالي لرقم الفاتورة السابقة ..

للتوضيح اكثر :

لنفرض انني قمت بعمل فاتورة ثم قمت بحفظ الملف باسم 0001.xls في مجلد اسمه مثلاً : Invoices ، المطلوب أن يكون رقم الفاتورة الجديدة هو 0002 في الخلية المحددة لذلك ، عندما أفتح الملف الجديد ..

فكرت أنه قد يكون من الأسهل أن أقوم بعمل ملف نصي txt في المجلد المذكور تكون وظيفته تخزين آخر رقم فاتورة ، بحيث يقوم إكسل بقراءة هذا الرقم وإدراج الرقم التالي له في الخلية المطلوبة فور فتح الملف الجديد ...

لقد قمت بتطبيق هذه الطريقة على قالب للورد مخصص للمراسلات ، بحيث اصبح يخزن رقم الرسالة ( أو ما يسمى بالمرجع )في مربع نص صغير text box

أرجو الإفادة ، وشكراً مقدماً

[محمد طاهر عرفه]

لزيادة قيمة علي الموجود فى خلية

Range("B3").Value = Range("B3").Value + 1

أو بصورة أكثر تفصيلا كاحتياط لعدم وجود قيمة فى الخلية

Private Sub Workbook_Open()


ActiveWorkbook.Sheets(1).Select

Range("a1").Activate

Dim aa As Byte


If IsNull(Range("B3").Value) Then

Range("B3").Value = 1

End If


aa = Range("B3").Value


Range("B3").Value = aa + 1

Application.ActiveWorkbook.Save

End Sub

مثلما فى هذا الموضوع

http://www.officena.net/ib/index.php?showtopic=396