مسعود قام بنشر نوفمبر 10, 2003 مشاركة قام بنشر نوفمبر 10, 2003 السلام عليكم .. طمعاً بخبرتكم ، أود أن أطلب منكم مساعدتي في الموضوع التالي : قمت بعمل قالب ( Template ) فواتير خاص على الإكسل ، المشكلة في أنني أود بأن يتم إضافة الرقم التسلسلي للفاتورة في إحدى الخلايا بشكل آلي كلما قمت بفتح ملف جديد على أساس القالب المذكور بحيث يكون هذا الرقم هو الرقم التالي لرقم الفاتورة السابقة .. للتوضيح اكثر : لنفرض انني قمت بعمل فاتورة ثم قمت بحفظ الملف باسم 0001.xls في مجلد اسمه مثلاً : Invoices ، المطلوب أن يكون رقم الفاتورة الجديدة هو 0002 في الخلية المحددة لذلك ، عندما أفتح الملف الجديد .. فكرت أنه قد يكون من الأسهل أن أقوم بعمل ملف نصي txt في المجلد المذكور تكون وظيفته تخزين آخر رقم فاتورة ، بحيث يقوم إكسل بقراءة هذا الرقم وإدراج الرقم التالي له في الخلية المطلوبة فور فتح الملف الجديد ... لقد قمت بتطبيق هذه الطريقة على قالب للورد مخصص للمراسلات ، بحيث اصبح يخزن رقم الرسالة ( أو ما يسمى بالمرجع )في مربع نص صغير text box أرجو الإفادة ، وشكراً مقدماً رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد طاهر عرفه قام بنشر نوفمبر 11, 2003 أفضل إجابة مشاركة قام بنشر نوفمبر 11, 2003 لزيادة قيمة علي الموجود فى خلية 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها