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

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

قام بنشر

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

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

قمت بعمل قالب ( 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

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information