اذهب الي المحتوي
أوفيسنا

Xima Alfadni

03 عضو مميز
  • Posts

    134
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

13 Good

عن العضو Xima Alfadni

  • تاريخ الميلاد نوفمبر 12

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    Chief Financial Officer
  • البلد
    USA
  • الإهتمامات
    Finance Analysis, Accounting & Programming

وسائل التواصل

  • Website URL
    http://www.abdulazimalfadni.com
  • Skype
    cfo.zima

اخر الزوار

1,018 زياره للملف الشخصي
  1. السلام عليكم الرجاء الاطلاع على الرابط التالى : http://www.officena.net/ib/index.php?showtopic=56486&hl=
  2. مشكور معلومة رائعة و مرتبة و مفيدة لى استفسار عموما هل يوجد كود يمكن عن طريقه فتح فورم عن طريق زر في الكيبورد زر واحد فقط مثلا F2 يفتح الفورم كذا وشكرا
  3. اخى الكريم السلام عليكم اشكرك على المعلومة القيمة انا حريص على الالتزام بقواعد هذا المنتدرى الرائع ولى الشرف ان لى اصدقاء كرماء فيه وشكرا
  4. السلام عليكم ماهو طريقة او كيفية تنفيذ ماكرو عند الخروج من تكست بوكس ( بعد الكتابة عليها ) بواسطة الضغط على زر Enter للانتقال الى تكستبوكس اخر ، بمعنى ان يكون التنفيذ بعد الخروج من هذا التكستبوكس و قبل الدخول في التكستبوكس الاخر بدون استعمال زر اضافي لعمل ذلك وشكرا
  5. السلام عليكم هذا الكود بحاجة الى شرح حيث انى حاولت تطبيقة مع الملف المرفق ولم يفلح الرجاء التكرم ببيان سبب الخطاء وشكرا Private Sub Arec1_Change() Dim i, j As Integer, flag As Boolean, sdsheet As Worksheet Set sdsheet = ThisWorkbook.Sheets("Items") If Me.Arec1.Value <> "" Then flag = False i = 2 j = Me.Arec1.Value Do While sdsheet.Cells(i + 1, 2).Value <> "" If sdsheet.Cells(i + 1, 2).Value = j Then flag = True Me.Arec2.Value = sdsheet.Cells(i + 1, 3).Value Me.Arec3.Value = sdsheet.Cells(i + 1, 4).Value Me.Arec4.Value = sdsheet.Cells(i + 1, 5).Value Exit Sub End If i = i + 1 Loop End If End Sub Boook1.zip
  6. السلام عليكم مشكوووووور ... عمل رائع و جهد مبذول جميل و مفيد جزاك الله خير فقط عندى اقتراح ان يتم تطويره ليكون كالمرفقات - ان امكن ذلك ولاسيما رقم 3 لان صعوبتها ان تكون بيانات الاصناف بعدد اكبر داخل فريم Invoice3.zip Invoice2.zip
  7. السلام عليكم بالاشارة الى البوست الموجود على الرابط التالى : http://www.officena.net/ib/index.php?showtopic=56738 كفكرة تعليمية - كيف يمكن تطوير الكود ليصبح كماهو بالفورم بحيث انه عند الاختيار من الكمبوبكس يملاء باقي التكستبوكس اتوماتيكيا في نفس السطر وانه يسجل بينات الفورم كله في الصفحة رقم 1 بطريقة متسلسلة في كل مرة كنفس فكرة الفاتورة وشكرا ex1.zip
  8. السلام عليكم كيف يمكن تطوير الكود ليصبح كماهو بالفورم بحيث انه عند الاختيار من الكمبوبكس يملاء باقي التكستبوكس اتوماتيكيا وانه يسجل بينات الفورم كله في الصفحة رقم 1 في كل مرة كفكرة الفاتورة وشكرا ex1.zip
  9. السلام عليكم الرجاء الاطلاع على المرفق وشكرا رسالة لتمكين الماكرو.zip
  10. اشكرك اخى و استاذى الفاضل جزاك الله كل الخير :)
  11. السلام عليكم في الملف المرفق فكرة من افكار هذا المنتدى الرائع هل يمكن تعديل كود البحث في الموديول ليكون النطاق مرن ويظهر و يقبل اى اضافات انا حاولت ان اعمل فكرة LastRow ولم اوفق وشكرا بحث4.zip
  12. بجد حضرتك عبقري جزاك الله كل الخير
  13. السلام عليكم نعم هو المطلوب و جزالك الله كل الخير بس ارجوا من حضرتك ان الفورم الاول الذى يختوى على التكست بوكس لايختفى و يكون مفتوح عند فتح الفورم الثانى وعند الاختيار من الفورم الثانى يغلق الفورم الثانى و يفضل الاول مفتوح واكرر شكرى
  14. السلام عليكم اقترح على حضرتك اضافة ميزه هامة إن امكن ذلك وهو ان تجعل الحذف للبيانات في السطر ولا يتم حذف السطر نفسه لانه لو وجدت اى بيانات على نفس السطر خارج النطاق سوف يتم حذفها وشكرا
×
×
  • اضف...

Important Information