ضاحي الغريب

أخي الحبيب والعزيز الغالي // أبوسلمي الأستاذ// سعيد بيرم مرورك العطر دائما وابدا يسعدني ويشرفني جزاك الله خيرا وبارك الله فيك علي وقفتك ودعمك المتواصلين سواء علي المستوي الشخصي والاجتماعي ادام الله بينا المحبة لوجه الكريم والاخوة التي ربطت بينا وهذا هو المكسب الحقيقي والباقي وادعو الله سبحانه وتعالي يتقبل منا ومنكم الصالحات وان تكون جميع اعمالنا خالصة لوجه الكريم وان تتسم بالموضوعية والفائدة للجميع تحياتي لعروستنا سلمي الف مليون مبروك النجاح مقدما وعقبال كل سنة وتحياتي لابننا عبدالرحمن بارك الله لك فيهم ومتعك ببرهم

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

أخي الحبيب // ابوسما بارك الله فيك علي مرورك العطر دائما ورفع روحنا المعنوية ودعمنا علي طول الطريق جزاك الله خيرا تقبل تحياتي

اخي الحبيب // مرعي السيد ماشاء الله عمل متعوب عليه وفكرته جميلة واستخدام امثل للاكواد من تقدم الي اخر ان شاء الله بارك الله فيك وجزاك خيرا ولي تعقيب اخر عند تجربة الملف تقبل تحياتي

الدرس الثالث نستكمل الموضوع السابق والذي تعرفنا فيه معا علي كيفية اضافة عناصر للفورم وكيفية مسح الفورم وتعرفنا ايضا علي اضافة عناصر للكمبوبوكس الان سوف نتعرف ماهو الفرق بين الكمبوبوكس والليست بوكس استخدام End للخروج من الفورم في الدرس السابق استخدمنا Unload Me استخدام caption لادراج عنوان للفورم اضافة عنا صر الي مربع القائمة الليست بوكس ************************************************************************************************* ماهو الفرق بين الكمبوبوكس والقائمة (الليست بوكس) الكمبو بوكس يحتوي علي عناصر يمكن رؤيتها عن طريق القائمة المنسدلة ويمكن رؤية عنصر واحد مرئي للمستخدم القائمة تعرض عدة عناصر بدون قائمة منسدلة ويمكن لللمستخدم الاختيار لعنصر او اكثر منها في وقت واحد الكمبيو بوكس يجمع بين خواص القائمة المنسدلة ومربع تحرير النص حيث يمكن للمستخدم الكتابة فيه القائمة (اليست بوكس ) تعطي المستخدم المزيد من الاختيارات المختلفة للعناصر مثال عندي مجموعة من البيانات تحتوي علي الأسم والطول كما يلي المطلوب عمل فورم لعرض رقم الصف المقابل للاسم يحتوي علي 1- ليست بوكس (لعرض الاسماء والاختيار منها ) 2- تكست بوكس (مربع نص) لعرض رقم الصف المقابل للاسم. 3-زر امر لتنفيذ الامر 4-زر خروج من الفورم باستخدام (( End )) خطوات العمل نقوم بتصميم فورم كما تعلمنا في الدرس الاول ونقوم بادراج ليست بوكس ومربع نص وزر امر للخروج وز امر لتنفيد امر كالتالي: الخطوة التالية اكواد الفورم 1- لاضافة عناصرالأسماء الموجودة عندي في ورقة العمل Sheet1 الي الليست بوكس والموجود في (("=Sheet1!A2:B10")) سوف استخدم الكود في حدث انطلاق الفورم واضيف عليها سطر العنوان للفورم كما ذكرنا في الدرس الاول باستخدام (Caption)) Private Sub UserForm_Initialize() ' اضافة العناصر لليست بوكس With ListBox1 .ColumnHeads = True .ColumnCount = 2 .ColumnWidths = "50;0" ' مصدر البيانات .RowSource = "=Sheet1!A2:B10" .MultiSelect = fmMultiSelectSingle .TextColumn = 1 .BoundColumn = 0 End With Me.Caption = "معرفة رقم الصف" End Sub وقي زر معرفة رقم الصف سوف اضيف مايلي Private Sub CommandButton1_Click() If ListBox1.Value <> "" Then TextBox1.Value = ListBox1.Value + 2 End If End Sub وفي زر خروج سوف نستخدم امر جديد (End) Private Sub CommandButton2_Click() End End Sub وبعد الأنتهاء سوف يكون شكل الفورم كما يلي وان شاء الله بعد الانتهاء من ادوات الفورم واستخدماتها وتنسيقاتها سوف نتطرا الي شرح الأكواد بالتفصيل ادعوا الله سبحانه وتعالي ان اكون قد وفقت في تبسيط المعلومة علي قدر المستطاع حتي يستفيد من الدروس اكبر قدر من المتابعين ولي رجاء عند المتابعة برجاء تطبيق الدرس اولا باولا وان كانت هناك اية اسئلة خاصة بالدرس اتمني سردها ورجاء اخر من اخواني بالمنتدي المشاركة ايضا لاثراءالموضوع حتي يكون عون للمبتدئين ويوفر الوقت في طلبات فورم ويقوم كل منهم بتصميم الفورم الخاص به وللموضوع بقية ان شاء الله >>>> التطبيق بالمرفقات مثال 3.rar

أخي الحبيب الأستاذ // مجدي يونس أخي الحبيب الأستاذ// سعد عابد أخي الكريم الأستاذ// محمد يوسف محمد أخي الكريم الأستاذ// باسم سعيد اخي الحبيب الأستاذ// أبوحنين أخي الحبيب الأستاذ// حمادة عمر أخي الكريم الأستاذ// سمير حسين أخي الحبيب الأستاذ// محمد مصطفي أبوحمزة أخي الكريم الأستاذ// مرعي السيد الأخت الفاضلة // أم عبدالله الأخ الفاضل // رائد 1982 اخي الفاضل // محمد توبة أخي الفاضل // ابراهيم الشال أخي الفاضل // الطائر الحنان ((مع حفظ الألقاب والترتيب)) مروركم شرفني وشرف الموضوع جزاكم الله خيرا وبارك الله فيكم وادعوا الله ان اكون عند حسن ظنكم في تقبل الله منا ومنكم الصالحات تقبلوا تحياتي جمعيا

الدرس الثاني سوف نتعرف فيه علي 1- ادراج TextBox 2- ادراج ComboBox 3- ادراج OptionButton 4- ادراج CheckBox 5- مسح الفورم من البيانات المدخلة لادخال بيانات جديدة 6- اضافة عناصر للكمبوبوكس (وسوف نتعرف تباعا علي اكثر من طريقة لاضافة عناصر للكمبوبوكس) ثانيا :- سوف نقوم باضافة الكود الخاص بمسح الفورم يوجد لدينا في الفورم اربع عناصر ( TextBox1-ComboBox1-OptionButton1- CheckBox1) نقوم باضافة زر امرCommandButton ونسميه مثلا (مسح الفورم) ونكتب داخله في حدث كليك Private Sub CommandButton2_Click() TextBox1.Value = "" ComboBox1.Value = "" CheckBox1.Value = False OptionButton1.Value = False End Sub ثالثا اضافة عناصر للكمبوبوكس مثال : - اريد اضافة شهور السنة لتظهر كقائمة اختار منها سوف استخدم الكود التالي في حدث انطلاق الفورم (( UserForm_Initialize)) كالتالي Private Sub UserForm_Initialize() For n = 1 To 12 ComboBox1.AddItem Format(DateSerial(2013, n, 1), "mmmm") Next n End Sub يتبـع >>> التطبيق بالمرفقات مثال 2.rar

الدرس الأول سوف نقوم بعمل فورم تحتوي علي زر امر لاغلاق الفورم وعمل ماكرو لعرض الفورم نقوم بفتح محرر الاكواد عن طريق الضغط Alt+F11 ثم نختار ادراج UserForm ثانيا ونضغط دبل كليك علي زر الأمر (اغلاق الفورم )) ونكتب الكود التالي لاغلاق الفورم Private Sub CommandButton1_Click() Unload Me End Sub ثم نقوم باضافة موديل ونقم يتسميته ( Form_Show) وسوف نستخدمه لعرض الفورم من ورقة العمل كالتالي Sub Form_show() UserForm1.Show End Sub ونقوم بادراج زر عنصر تحكم ونختار ونقوم بتعيين الماكرو السابق (Form_show) التطبيق بالمرفقات مثال 1.rar

تكملة لما سبق في التعرف علي الادوات الشائعة لادوات الفورم سوف نتعرف علي بعض الأساسيات الخاصة بالفورم والتي سنستخدمها تباعا اساسيات الفورم.rar

أخي الحبيب // حمادة عمر ((روح المنتدي)) الله وحده اعلم بمحبتكم لدينا في الله مرورك ومتابعتك يشرفني ويسعدني وادعوا الله ان نمشي علي نفس خطاك في تبسيط وتقديم المعلومة بارك الله فيك وجزاك خيرا ولا تلتمس العذر بالتدخل لان تدخلك يسعدني دائما فلك كل الحق تقبل تحياتي

هيا بنا نتعرف علي الأدوات الشائعة الأستخدام عند عمل الفورم اولا وكان المفروض ان تكون البداية لكن حصل خير يتبعه ان شاء الله مثال علي كل أداة منفصل وتطبيق عملي ان شاء الله نتشارك فيه جمعيا للتطبيق ادوات الفورم.rar

السلام عليكم ورحمة الله وبركاته رايت هناك حاجة لشرح بعض أدوات الفورم لاخواني بالمنتدي حتي يتمكنوا من معرفة كل اداة ووظيفتها ومثال عليها لكي يتمكنوا من عمل فورم بانفسهم وسوف ابدا خطوة خطوة بشرح كل اداة بمثال عملي الدرس الأول Tree View Control وهي تقوم بعرض البيانات علي صورة شجرة مثال الشرح والتطبيق بالمرفقات TreeViewControl.rar

اخي الكريم// الموضوع بسيط كالتلي سوف نضع المعادلة في التنسيق الشرطي وهي عبارة عن اذا كان مجموع الخلتين (A1,B2) اقل من 15 واختار لون التعبئة ولون الخط =SUM($A$1:$B$1)<15

تفضل اخي الكريم طلبك بالمرفقات Sum.rar

أخي الكريم // راجع الروابط التالية ان شاء الله تلاقي فيها حل مشكلتك وهذه لمشكلة مثل مشكلة اللغة العربية بتظهر بشكل مختلف في محرر الاكواد)) http://www.officena.net/ib/index.php?showtopic=45544&hl=%2B%D8%A7%D9%84%D9%84%D8%BA%D8%A9+%2B%D8%A7%D9%84%D8%B9%D8%B1%D8%A8%D9%8A%D8%A9#entry268665 http://www.officena.net/ib/index.php?showtopic=45544 http://www.officena.net/ib/index.php?showtopic=42608

وعليكم السلام ورحمة الله وبركاته بارك الله فيك وجزاك خيرا اخي الكريم بالنسبة لحساب الفيس بوك مسجل علي نفس الجهاز

اخي الحبيب // محمد مصطفي الف مليون مبروك علي الترقية المستحقة ويارب مزيد من التقدم ... اكثر وأكثر وبالتوفيق ان شاء الله

قم بوضع الكود في حدث الصفحة كالتالي Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Dim myrng As Range, myc As Range Dim i As Integer Set myrng = Sheets(1).Range("d2:d4") myrng.ClearContents For Each myc In myrng myc = Application.WorksheetFunction.Sum(Range("a" & myc.Row, Range("b" & myc.Row))) Next myc Application.EnableEvents = True End Sub التطبيق بالمرفقات الجمع.rar

الأخ الحبيب وقائد صرحنا العظيم الأستاذ / محمد طاهر بارك الله فيكم وجزاكم خيرا علي ما تقدموه دائما وعلي ما استفدنا جمعيا من موقعكم الكريم جعله الله في ميزان حسناتكم صدقة جارية (علم ينتفع به) بالنسبة للتجربة الدخول من موقع الفيس بوك تمت التجربة بالدخول من متصفح جوجل كروم وظهرالخطأ التالي ******************** والدخول من الاكسبلوروظهالخطا التالي ************

لادخال الارقام باللغة الانجليزية ادخل التنسيق في حدث تكست بوكس الكمية والمبلغ Me.TextBox1 = fotmat(Me.TextBox1, "#,##0") التطبيق بالمرفقات 1- المؤشر يقف في الكمية 2- تنسيقات الارقام انجليزي 3- استخدم انتر للتنقل والادخال جرب واعلمني بالنتيجة الجزيرة - ابوعبدالله.rar

بارك الله فيك اخي ابوعبدالله لجعل مؤشر الماوس في تكست الكمية في حدث انطلاق الفورم ضع التالي Private Sub UserForm_Activate() Me.TextBox1.SetFocus End Sub تم ضبط الفورم عند الفتح مؤشر الماوس يقف في الكمية ويمكنك استخدام مفتاح انتر للتنقل من الكمية للتاريخ للاسم للمبلغ ثم للادخال جرب وشوف النتيجة الجزيرة - ابوعبدالله.rar

أخي الحبيب // أبوعبدالله (الجزيرة)) وبعد اذن اخي الحبيب // محمد مصطفي المشكلة لديك ليس من الفورم تنسيقات الفورم مضبوطة شاهد النتيجة المشكلة لديك في تنسيقات التاريخ بالجهاز اتبع مايلي- واعلمني بالنتيجة - وان شاء الله تظبط

اخي الكريم // محمد في سؤالك في المشاركة رقم (5) فان امكن طريقة مختصرة مثلا لو اردت جمع خليتين كيف ادخل الكود وكيف احفظه وما هو الفرق بين الكود والمعادلة؟ لذلك شرحت علي قدر فهمي لسؤالك الفرق بين كود المعادلة والكود لكن اذا كنت تريد كيفية كتابة الكود عليك بدورة الأستاذ / عبدالله المجرب (بارك الله فيه وجزاه خيرا) (( دورة شرح الفيجول بيسك للتطبيقات VBA)) فيها شرح ييسير وسلس ووافي للفيجوال والاكواد وتسجليها علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=39323 ومكتبة الموقع ملئية بالدورات من الصفر للاحتراف لاستاتذة الموقع ورواده تقبل تحياتي

أخي // حسام ,,, لقد قمت بتصميم 2 فورم حسب اقتراحك فورم لادارة الصندوق واظهار الرصيد بعد كل عملية ويمكن خلاله ادخال العمليات التي تتم علي الصندوق من سحب وايداع الفورم الاخر لادرة العمالة من (اجور يومية - اسبوعية - سلف مؤقتة تخصم من راتب الاسبوع - سلف طويلة الاجل (تخصم علي دفعات يتم تحديدها ) حتي يتم خصمها من الراتب ومن خلاله ادخال جميع البيانات والسلف والجزاءات والاضافات والمكأفات للعامل مع امكانية للبحث عن العامل ولضيق الوقت - في القريب ان شاء الله اسويلك كشف حساب للعامل يظهر معاملاته خلال فترة معينة او يظهر معاملات الصندوق خلال فترة معينة راجع العمل وان كان عندك اية اقتراحات لا تتردد في سردها تقبل تحياتي حسام - ادارة الصندوق.rar

أخي//ابو عبدالله الاخ // مازن الملف عندي سليم وقمت بتجربته علي اكثر من جهاز ((اوفيس 2003 و اوفيس 2010) لم يحدث اي خطا حمل الملف مرة واعلمني بالنتيجة