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

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

قام بنشر (معدل)

السلام عليكم ... اخي العزيز هادي محمد

لقد حاولت ان اطبق الكودات ولكن لاقيت بعض الصعوبة ومنها

لا افهم الدالة ER وهل هي موجودة ضمن دوال اكسل ام انت عملتها

وايضا كومبو بوكس combobox1 هل هو نفسه مربع قائمة ام كيف احصل علية

انا اعلم بان اسئلتي سطحية عندكم ... ولكن انا مبتدئة بهذا المجال

ارجو مساعدتي وسعت صدركم

وفقكم الله الى ما يحبه ويرضاه لكم ويفتح ابواب رحمته وكرمه عليكم

اختكم ديزلايف :fff:

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

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

لا افهم الدالة ER وهل هي موجودة ضمن دوال اكسل ام انت عملتها

لقد قمت بعمل الداله فى ورقه عمل "List" بالكود التالى

Public Function ER() As Integer
   ER = Range("A1").CurrentRegion.Rows.Count
End Function
و وظيفتها فتح مجال الفواتير فعند القيام باضافه فواتير جديده يتم اضافتها تلقائيا فى combobox و كذلك العكس , فتقوم الداله بعد نهايه السطور التى يوجد بها بيانات و اعطاءها رقم لاستخدامه فى لانهاء جمله For و هذا مثال مبسط ل ER
Sub DOIT()
    Dim ER As Integer
    ER = Range("A1").CurrentRegion.Rows.Count
    MsgBox (ER)
End Sub

مرفق ملف

السلام عليكم

ER.rar

قام بنشر (معدل)

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

اخي العزيز هادي محمد

لا اعلم كيف السبيل الى شكرك ليوازي مساعدتك لي بهذا الاسلوب الراقي والجميل والكريم

اخي العزيز اتمنى ان تحقق لي الجواب على سؤال اخر

وهو

في خانة المادة لو كتبت اكثر من سطر مثلا الفاتورة تستخدم للعديد من المواد مرة واحدة ولمشتري واحد

كيف ممكن ان تنتقل البيانات بالنسبة للمادة وبنفس رقم الفاتورة اي فاتورة واحد ومواد اكثر من اثنين او ثلاثة مواد

وايضا لو تسمح اخي .... هل الكومبو بوكس موجود ضمن صندوق الادوات ام يتم استيراده من الاكسس او الفيجول بيسيك يا ربي الله يحفظك ويحميك ويعزك في الدنيا والاخرة ويرزقك من حيث لا تحتسب .

اختك ديزلايف :fff::fff::fff:

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

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

بعد اذن كل اساتذتي الكرام الذين سبق و ان قدمو الحلول لهذا الموضوع

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

الأخت الفاضلة في المرفق يوجد ملفين

اولا

ملف الأستاذ القدير الفاضل هادي سالم

وتم تعديل على الكود ليشمل التكرار المطلوب لرقم الفاتورة

ثانيا

ملف يعمل بواسطة الدوال بدون ماكرو

و تكمن الفكرة في هذا الملف على ان يتم اختيار رقم الفاتورة من القائمة المنسدلة

وبموجب رقم الفاتورة الذي تم اختيارة تم اضافة عمود في صفحة لست يقوم باضافة ارقام متسلسلة تبدأمن 1 اما كل رقم فاتورة يطابق الرقم الذي تم اختيار

ثم بموجب هذة الأرقام و باستخدام الدالة Index يتم نقل هذه البيانات الى الفاتوة كما هة موضح في المرفق

آمل ان يكون هذا المطلوب

D_inv.rar

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

بعد اذن كل اساتذتي الكرام الذين سبق و ان قدمو الحلول لهذا الموضوع

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

الأخت الفاضلة في المرفق يوجد ملفين

اولا

ملف الأستاذ القدير الفاضل هادي سالم

وتم تعديل على الكود ليشمل التكرار المطلوب لرقم الفاتورة

ثانيا

ملف يعمل بواسطة الدوال بدون ماكرو

و تكمن الفكرة في هذا الملف على ان يتم اختيار رقم الفاتورة من القائمة المنسدلة

وبموجب رقم الفاتورة الذي تم اختيارة تم اضافة عمود في صفحة لست يقوم باضافة ارقام متسلسلة تبدأمن 1 اما كل رقم فاتورة يطابق الرقم الذي تم اختيار

ثم بموجب هذة الأرقام و باستخدام الدالة Index يتم نقل هذه البيانات الى الفاتوة كما هة موضح في المرفق

آمل ان يكون هذا المطلوب

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

مليون مليون شكر اخي العزيز ........ احمد يعقوب

على ممساعدتك والان ادرس الملف وان شاء الله اصل الى ما اريده بفضل الله وفضلكم عليَّ

شيء اخير اخي بخصوص الكومبو بوكس هل هو مربع قائمة وكيف احصل عليه

يارب يخليكم ويحفظكم من كل مكروه ... تحملوا اسئلتي الساذجة :rol: :rol:

اختكم ديزلايف

قام بنشر

و عليكم السلام

اذاكان اكسل 2003

من اشرطة الأدوات في اعلى الصفحة

كليك يمين بالماوس

طبعا سوف تظهر قائمة بكل اشرطة الأدوات الموجودة

نختار نماذج

وبه عدة اشكال يمكن استخدامها من ضمنها المطلوب

مع التحية

قام بنشر
و عليكم السلام

اذاكان اكسل 2003

من اشرطة الأدوات في اعلى الصفحة

كليك يمين بالماوس

طبعا سوف تظهر قائمة بكل اشرطة الأدوات الموجودة

نختار نماذج

وبه عدة اشكال يمكن استخدامها من ضمنها المطلوب

مع التحية

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

اخي العزيز ......... احمد يعقوب .....

مشكور على ردودك السريعة والمفيدة

بارك الله فيك وزادك من فضله وقرب اليك كل بعيد تتمناه فيه خير لك ورضوان من الله

اختك ديزلايف :fff:

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information