Xima Alfadni

السلام عليكم الرجاء الاطلاع على الرابط التالى : http://www.officena.net/ib/index.php?showtopic=56486&hl=

مشكور معلومة رائعة و مرتبة و مفيدة لى استفسار عموما هل يوجد كود يمكن عن طريقه فتح فورم عن طريق زر في الكيبورد زر واحد فقط مثلا F2 يفتح الفورم كذا وشكرا

اخى الكريم السلام عليكم اشكرك على المعلومة القيمة انا حريص على الالتزام بقواعد هذا المنتدرى الرائع ولى الشرف ان لى اصدقاء كرماء فيه وشكرا

السلام عليكم ماهو طريقة او كيفية تنفيذ ماكرو عند الخروج من تكست بوكس ( بعد الكتابة عليها ) بواسطة الضغط على زر Enter للانتقال الى تكستبوكس اخر ، بمعنى ان يكون التنفيذ بعد الخروج من هذا التكستبوكس و قبل الدخول في التكستبوكس الاخر بدون استعمال زر اضافي لعمل ذلك وشكرا

السلام عليكم هذا الكود بحاجة الى شرح حيث انى حاولت تطبيقة مع الملف المرفق ولم يفلح الرجاء التكرم ببيان سبب الخطاء وشكرا 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

السلام عليكم مشكوووووور ... عمل رائع و جهد مبذول جميل و مفيد جزاك الله خير فقط عندى اقتراح ان يتم تطويره ليكون كالمرفقات - ان امكن ذلك ولاسيما رقم 3 لان صعوبتها ان تكون بيانات الاصناف بعدد اكبر داخل فريم Invoice3.zip Invoice2.zip

السلام عليكم بالاشارة الى البوست الموجود على الرابط التالى : http://www.officena.net/ib/index.php?showtopic=56738 كفكرة تعليمية - كيف يمكن تطوير الكود ليصبح كماهو بالفورم بحيث انه عند الاختيار من الكمبوبكس يملاء باقي التكستبوكس اتوماتيكيا في نفس السطر وانه يسجل بينات الفورم كله في الصفحة رقم 1 بطريقة متسلسلة في كل مرة كنفس فكرة الفاتورة وشكرا ex1.zip

السلام عليكم كيف يمكن تطوير الكود ليصبح كماهو بالفورم بحيث انه عند الاختيار من الكمبوبكس يملاء باقي التكستبوكس اتوماتيكيا وانه يسجل بينات الفورم كله في الصفحة رقم 1 في كل مرة كفكرة الفاتورة وشكرا ex1.zip

السلام عليكم الرجاء الاطلاع على المرفق وشكرا رسالة لتمكين الماكرو.zip

اشكرك اخى و استاذى الفاضل جزاك الله كل الخير :)

السلام عليكم في الملف المرفق فكرة من افكار هذا المنتدى الرائع هل يمكن تعديل كود البحث في الموديول ليكون النطاق مرن ويظهر و يقبل اى اضافات انا حاولت ان اعمل فكرة LastRow ولم اوفق وشكرا بحث4.zip

بجد حضرتك عبقري جزاك الله كل الخير

السلام عليكم نعم هو المطلوب و جزالك الله كل الخير بس ارجوا من حضرتك ان الفورم الاول الذى يختوى على التكست بوكس لايختفى و يكون مفتوح عند فتح الفورم الثانى وعند الاختيار من الفورم الثانى يغلق الفورم الثانى و يفضل الاول مفتوح واكرر شكرى

السلام عليكم اقترح على حضرتك اضافة ميزه هامة إن امكن ذلك وهو ان تجعل الحذف للبيانات في السطر ولا يتم حذف السطر نفسه لانه لو وجدت اى بيانات على نفس السطر خارج النطاق سوف يتم حذفها وشكرا

للرفع

اخى الاستاذ العيدروس اشكرك على مجهودك و اهتمامك عند الضغط على زر Open Serch Form تظهر رسالة الخطأ المرفقة ارجوا التكرم بحل المشكلة و جزاكم الله خير وشكرا

شكرا اخى ياسر على اهتمامكم بالرد مرفق ملف على سبيل المثال بغرض تعلم الطريقة ارجوا التكرم بالشرح فيه وكيف ظهور النتائج بالاكواد بدلا من المعادلات في الشيت رقم 1 و الشيت رقم 2 ايضا لعموم الفائدة وشكرا مسبقا Officena Book.zip

السلام عليكم بخصوص المثال التعليمى الوارد في هذا المنتدى على الرابط التالى : http://www.officena.net/ib/index.php?showtopic=52241 ارجوا التكرم بتعديل الاكواد الواردة في الملف المرفق لوضع نتيجة البحث على Textbox في فورم ( في الصفحتين ) بدلا من الخلية النشطة على الشيت وشكرا بحث1.zip

جزاك الله كل خير على اهتمامك بالرد هل يمكن تطبيق هذه الطريقة على باقى المعادلات التالية ؟ SUM , SUMIF , SUMCOUNT , VLookup , Hlookup & IF وكيف ارجوا الشرح المبسط ؟ اكرر شكرى

السلام عليكم السادة خبراء البرمجة الافاضل اريد ان اتعلم بصفة عامة ومبسطة للاكواد التى تعمل عمل المعادلات واعتقد ان كثير مثلى من رواد هذا المنتدى الرائع سيستفادون من هذه المعلومة التى ستوفر علينا كتابة المعادلات في كل خلية مما يوفر من حجم الملف واعتقد ان من اكثر الاكواد طلبا هو ما يقوم بمحل المعادلات التالية : SUM , SUMIF , SUMCOUNT , VLookup , Hlookup & IF لذلك ارجوا ان يتكرم احد الخبراء بعمل مثال مبسط لهذه الاكواد الستة على ورقة اكسيل ليستفيد منها الجميع او ارفاق ملف PDF لكتاب يشرح هذه الطريقة واكرر شكرى

السلام عليكم هذا الملف موجود على هذا المنتدى سيفيدك كثيرا في فهم فكرة البحث بحث بالاسم2.zip

مشكووور ... الله يوفقك

السلام عليكم اولا : بالنسبة الى القائمة المنسدلة رقم 1 و التى اسمها ComboBox1 كما في الصورة رقم 1 : 1 - في الفورم الخاص بها يتم وضع الكود التالى في حدث عند الانطلاق Private Sub UserForm_Initialize كما في الصورة رقم 2 و التى تعنى عمل متغير Dim وهذا المتغير نوعه Variant اى متغير متنوع ( مرفق ملف يشرح بطريقة مبسطة ووافية انواع المتغيرات ) 2 - يكون اسم هذا المتغير ( في هذا المثال ) هو vUsers 3 - يكون قيم هذا المتغير ( الذى سيكون قيم الخيارات المتاحة للقائمة المنسدلة ) هى : vUsers = Array("على", "علاء", "احمد") 4 - واخير يتم الربط ما بين المتغير vUsers و القائمة المنسدلة كالتالى : Me.ComboBox1.List = vUsers ثانيا بالنسبة الى القائمة المنسدلة رقم 2 و التى اسمها ComboBox2 كما في الصورة رقم 3 : 1- في ورقة العمل Sheet يتم الضغط على Ctrl+F3 لفتح محرر اسماء النطاقات . 2 - يتم عمل نطاق اسمه Names كما هو موضح في الصورة رقم 4 3 - واخير يتم الربط ما بين النطاق Names و القائمة المنسدلة بواسطة الخصائص وتحديدا RowSource كما في الصورة رقم 5 ارجوا ان اكون قد وفقت في شرح المعلومة و شكرا المتغيرات والثوابت.zip

اخى الاستاذ ياسر خليل السلام عليكم اشكركم على جميل ردكم انا اريد ان اتعلم هذه الطريقة بصفة عامة ومبسطة للاكواد التى تعمل عمل المعادلات لانى لم اعلم بهذه المعلومة من الاساس الا عندما ذكر ذلك الاستاذ الموقر عبدالله باقشير واعتقد ان كثير مثلى من رواد هذا المنتدى الرائع سيستفادون من هذه المعلومة التى ستوفر علينا كتابة المعادلات في كل خلية مما يوفر من حجم الملف واعتقد ان من اكثر الاكواد طلبا هو ما يقوم بمحل المعادلات التالية : SUM , SUMIF , SUMCOUNT , VLookup , Hlookup & IF لذلك ارجوا ان يتكرم احد الخبراء بعمل مثال مبسط لهذه الاكواد الستة على ورقة اكسيل ليستفيد منها الجميع و تكون اضافة هامة واكرر شكرى على اهتمامك

السلام عليكم هل يمكن شرح هذا الجزء ولا سيما الجزء الاول حتى كلمة Else For Each Cl In Range("B2:B" & [B10000].End(xlUp).Row) If Cl = Me.TextBox2.Value Then If Cl.Offset(0, 1) = Me.TextBox3.Value And Cl.Offset(0, 2) = Me.TextBox4.Value And _ Cl.Offset(0, 3) = Val(Me.TextBox5.Value) Then Abu_Ahmed = True: GoTo 1 End If Next 1 If Abu_Ahmed Then MsgBox "البيانات موجودة مسبقاً": GoTo 2 Else ws.Cells(iRow, 2).Value = Me.TextBox2.Value ws.Cells(iRow, 3).Value = Me.TextBox3.Value ws.Cells(iRow, 4).Value = Me.TextBox4.Value ws.Cells(iRow, 5).Value = Me.TextBox5.Value End If وشكرا