ضاحي الغريب

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

اخي الكريم ،،،،،،،، ان شاء الله تعالي بعد انتهاء الدروس سوف اقوم برفع جميع الدروس مرتبة علي اصدارين اوفيس 2003 و2010 وكذلك في شكل كتاب الكتروني لتسهيل عملية الشرح وتكون مرجع سهل ممتع مشفوعا بالصور تابع الدروس وان شاء الله خير

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

بارك الله فيك علي دعائك الطيب بالنسبة :- 1- بالنسبة لرقم العائلة انا بالمشاركة السابقة فهمت انك تريد مسلسل تلقائي يبدأ برقم واحد. 2- رقم الهوية هل هو 7 ارقام فقط حتي اضع شرط ان لابد من ادخل الرقم مكون من 7 ارقام وغير هذا لا يقبل الادخال ؟ 3- لضيق الوقت معي سوف ابدا بتنفيذ طلباتك طلب تلو الاخر وعند الانتهاء ان شاء من ادارج بقية الاكواد الخاصة بكود الادخال والبحث برقم العائلة وبالبحث باسم رب العائلة سوف نتطرأ معا الي الطلبات الاخري. تقبل تحياتي

وعليكم السلام ورجمة الله وبركاته هل تقصد ان رقم العائلة الاكتروني رقم متسلسل يبدا برقم واحد وتريده تلقائي بمجرد ادخال بيانات رب الاسرة

أخي الكريم //علي عبدالراضي يمكنك مراجعة الدروس في عناصر الفورم علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=47476&page=2 ولاضافة العناصر توجد اكثر من طريقة منها مثلا

اخي ابوعلي الملف اكسيل 2010 بالمرفقات لكن التكست بوكس الخاص برقم العائلة اغلقت الادخال به بناء علي الملاحظة التي وضعتها (يترك رقم العائلة فارغ) فلذلك قمت بتأمينه علي اية حال تم التعديل تقبل تحياتي استمارة معلومات العائلة الالكتروني.rar

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

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

أخي الكريم// اجابة سؤالك تلاقيه في المشاركة رقم 81 الدرس السادس علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=47476&page=5

أدعوا الله سبحانه وتعالي ان اكون وفقت في تبسيط المعلومة وسردها وشرحها بما يتناسب مع جميع المستويات درسنا اليوم سوف نشرح به اداة اخري من ادوات الفورم وانا عن نفسي اسميها بالاداة السحرية لما تتمتع به من قدرات علي التحكم بالفورم وقدرات مذهلة حقا في الابداع والابتكار في التصميم الاداة هي الصفحات المتعددة MultiPage control الدرس السابع نبدا علي بركة الله بسم الله الرحمن الرحيم يتألف عنصر تحكم الصفحات المتعددة من واحد أو أكثر من الكائنات صفحة، تحتوي كل منها على مجموعتها الخاصة من الضوابط. يتم استخدام متعدد أفضل عندما كنت ترغب في التعامل مع كمية كبيرة من البيانات التي يمكن تصنيفها إلى فئات متعددة، حيث يمكن إنشاء صفحة منفصلة لكل فئة. وترد جميع الضوابط التي تمت إضافتها إلى صفحة في عنصر تحكم متعدد الصفحات، في وتصبح جزءا من هذه الصفحة والذي يميز عناصر التحكم من تلك التي هي على خلاف ذلك جزء من في UserForm. عنصر تحكم متعددة لديها العديد من الصفحات، حيث اختيار صفحة يجعلها واحدة الحالية (مما يجعلها مرئية) في الوقت الذي يختبئ الآخرين. كل صفحة من عنصر تحكم متعدد الصفحات لديها ترتيب الجدولة الخاصة. يتم ترقيم الصفحات من صفر، ولتحديد الصفحة الأولى في عنصر تحكم متعدد الصفحات، استخدم التعليمات البرمجية: MultiPage1.Value = 0. افتراضيا، عنصر تحكم متعدد الصفحات لديه 2. لإضافة صفحات، انقر بزر الماوس الأيمن على علامة التبويب واختر الصفحة جديد ((حدد حذف الصفحة لحذف صفحة) ملاحظة: كل صفحة من عنصر التحكم المتعددMultiPage سوف يكون منفصل ويمكن استخدام مجموعة او اكثر من ا OptionButtons، بغض النظر عن ما إذا كانت جميع OptionButtons (عبر كل الصفحات ) لها نفس اسم مجموعة. Dynamically Add/Remove a Page "إستخدام الأسلوب Add: بناء الجملة: تعيين M = MultiPage1.Pages.Add ( pageCaption، pageIndex). pageIndex (اختياري) هو عدد صحيح الذي يحدد موقف للصفحة التي ستدرج لاحقا، بدءا من صفر لأول صفحة / يتم تعيين اسم للصفحة، pageCaption يحدد تسمية توضيحية. كلاهما اختياري التحديد. مثال علي ذلك Set m = MultiPage1.Pages.Add("Page5", "NewPage", 1) هذا السطر يضيف صفحة جديدة مع اسم Page5 والتسمية التوضيحية NewPage، مثل الصفحة الثانية (المركز الثاني في ترتيب الصفحات). MultiPage1.Pages.Add "Page3"; MultiPage1.Pages(2).Caption = "NewPage" لاضافة صفحة جديدة ,وتعيين التسمية التوضحية newPage ويمكن نستخدم امر مباشر بسيط MultiPage1.Pages.Add لاضافة صفحة جديدة ولازالة صفحة MultiPage1.Pages.Remove (pageIndex). مثال MultiPage1.Pages.Remove (1) وذلك لازالة الصفحة الثانية لتغيير أو تعيين خصائص الصفحة في وقت التشغيل، يتعين علينا أن نحدد أن الصفحة في عنصر تحكم متعدد الصفحات، التي يمكن أن يتم بطرق مختلفة. للوصول إلى صفحة فردية في عنصر تحكم متعدد الصفحات، بعد طرق التحكم في الصفحات 1. مؤشر رقمي (باستخدام مجموعة صفحات): 0 مؤشر يشير إلى الصفحة الأولى، مؤشر 1 إلى الصفحة الثانية، وهلم جرا. رمز لتعيين تسمية توضيحية -. MultiPage1.Pages 2. الطريقة البند (باستخدام مجموعة صفحات): البند 0 مؤشر يشير إلى الصفحة الأولى، مؤشر البند 1 إلى الصفحة الثانية، وهلم جرا. رمز لتعيين تسمية توضيحية -. MultiPage1.Pages.Item (ItemIndex) التعليق 3. اسم الصفحة:. رمز لتعيين تسمية توضيحية - MultiPage1.Pages ("[PageName") تسمية توضيحية أو MultiPage1.Pages.Item ("[PageName") تسمية توضيحية 4. كائن الصفحة: رمز لتعيين تسمية توضيحية - MultiPage1.PageName.Caption 5. SelectedItem : رمز لتعيين تسمية توضيحية - MultiPage1.SelectedItem.Caption مثال : تغيير خصائص كل صفحة من عنصر تحكم متعددة، وذلك باستخدام أساليب مختلفة من الصفحة التحديد. شاهد الشكل التالي مثال عملي في حال كنت ترغب في عمل فورم لادخال البيانات بشكل تسلسلي (أي خطوة واحدة تلو الأخرى)، ثم بدلا من استخدام UserForms المتعددة (أكثر من فورم) فمن الأفضل لاستخدام عنصر تحكم الصفحات المتعددة لإنشاء صفحات متعددة في UserForm واحدة. يمكن جعل الصفحة التالية يمكن الوصول إليها إلا بعد أن تم ملؤها في الصفحة السابقة ودخلت. وتبين لنا كيفية إنشاء واجهة معالج يتكون من 4 صفحات، على النحو المبين أدناه. سوف نستخدم عنصر تعدد الصفحات في انشاء فورم طلب توظيف ونستعرض معا كل مرحلة ونقوم بمراجعة خصائص المجموعة المشتركة في الاطارات واضافة عناصر الي الليست بوكس والكمبو بوكس الاعداد للفورم (طلب توظيف) الصفحة الاولي والتي سوف نقوم فيها بادخال الأسم ولا يمكن لنا الانتقال للصفحة التالية الا بعد استكمال البيانات الصفحة الثانية والتي سوف نقوم فيها باختيار النوع والعمر الصفحة الثالثة والتي سوف نقوم فيها باختيار الحالة الأجتماعية والجنسية lllll الصفحة الرابعة والتي سوف نختار منها مجال العمل والمستوي التعليمي وسوف نستخدم الكود التالي في حدث انطلاق الفورم لضبط اعدادات الصفحات وتسميتها وتسمية الاطارات وفي حدث Private Sub MultiPage1_Change() سوف نقوم بوضع الكود التالي لضبط الانتقال بين الصفحات بواسطة مفتاحي التالي والسابق وضبط مفتاح الحفظ كالتالي برمجة مفتاح السابق للتنقل بين الصفحات برمجة مفتاح (التالي) للتنقل بين الصفحات وفي النهاية كود مفتاحي الحفظ والخروج الاكواد مشروحة سطر سطر مع الفورم والتطبيق بالمرفقات كان هناك اقتراح وعلي حسب طلبكم هل اطرح امثلة تقومون بتنفيذها ونستعرضها معا خطوة خطوة لاني مش شايف تفاعل او اسئلة حول المواضيع ان كان اقتراحي محل قبول فسيتم طرح امثلة تقومون بتطبيقها ورفع التصاميم والنتائج ونتشاور حولها وللموضوع بقية والي لقاء اخر مع أداة جديدة من ادوات الفورم MultiPage.rar

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

الدرس السادس سوف نقوم في درسنا اليوم ان شاء الله في التعرف علي الاطارات Frame Control وتستخدم إطارات لضوابط المجموعة التي تعمل معا، وترتبط مع بعضها البعض أو لديك بعض القواسم المشتركة، في UserForm. كما أنها تعزز تخطيط في UserForm يجمع وتنظيم مجموعة من البنود ذات الصلة. على سبيل المثال، في نموذج معين، تنظم الصفات الجسدية مثل الطول، ولون البشرة، والوزن ولون الشعر يمكن تصنيفها في إطار معين. الإطارات هي مفيدة بشكل خاص لجماعة اثنين أو أكثر من OptionButtons. في المقام الأول، وتستخدم إطارات للأغراضوضبط مجموعة عناصر التحكم ذات الصلة في UserForm لتعزيز بصريا وتنظيم تخطيط للنموذج، و (الثاني) لOptionButtons المجموعة لضبط سلوكهم - فإنها تصبح يستبعد بعضها بعضا ضمن إطار واختيار واحد OptionButton سوف ازالة اختيار كل OptionButtons أخرى في غضون ذلك الإطار فقط. باستخدام الإطار: أولا إضافة إطار في UserForm ثم إضافة عناصر تحكم إلى الإطار. وسوف نطرأ بالموضوع لمراجعة ما سبق من اضافة عناصر للفورم واضافة العناوين وبعض طرق التنسيق كالتالي الفورم الذي سوف نعمل عليه بالمرفقات مع الشرح لكل سطر في الكود اولا سوف نتعرف علي التسميات المختلفة لكل من التكسات والليست بوكس والاطارات كالتالي ثم نتعرف علي الكود المستخدم في حدث انطلاق الفورم وتأثيره علي كالتالي اولا اضافة العناصر الي الليست بوكس الخاص باختيار الاسم وحددنا عنواين الاطارات المستخدمة اضافة عناصر الطول والعرض والوظيفة الي الليست بوكس الان والجديد سوف نتعرف علي استخدام الاطارات لتنظيم ضوابط سلوك عمل مجموعة من OptionButton كالتالي التطبيق بالمرفقات وللموضوع بقية ان شاء الله في التعرف علي MultiPage control Frame Control.rar

أخي الكريم // أبو جيداء راجع مشاركة الاستاذ / رجب جاويش في موضوع (كيف اجعل كود يعمل عند الضغط على زر اف2 مثلا) المشاركة رقم (2) علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=47463&hl= لو امعنت البحث بالمنتدي هتلاقي مواضيع كثيرة لنفس طلبك توفيرا لوقت وجهد الزملاء وحسب شروط المنتدي

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

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

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

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

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

الأخ // محمد بعد اذن أخواني الأفاضل الأستاذ// جمال عبدالسميع و الأستاذ // سعيد بيرم (بارك الله فيهم وجزاهم خيرا) ولاثراء الموضوع للعمل الخيري انا اتفق مع اخي أبوسلمي الأستاذ / سعيد حيث ان البحث ولادخال بالرقم القومي افضل وادق لانه رقم فريد ولذلك قمت بعمل متواضع فورم يمكن منها الادخال حسب الشروط لا تقبل الرقم القومي اقل من 14 رقم لا تقبل الا ارقام في عدد الافراد تقوم بحساب الحصة حسب عدد الافراد عند كتابة رقم 1 في الافراد يجعل الحصة 5 عند كتابة 2 او 3 في الافراد يجعل الحصة 10 عند كتابة 4 في الافراد يجعل خانة الحصة 15 عند كتابة اى رقم اكبر من 5 يجعل الحصة 20 لا تقبل الادخال الا اذا كانت البيانات كاملة مع ظهور رسالة بالبيان الناقص وظهور رسالة بالمطالبة بادخال الرقم القومي 14 رقم مع امكانية البحث بالاسم ايضا تسلسل تلقائي نطاق الادخال مفتوح كما ترغب المخبز الخيري 2013.rar

اخي الفاضل // عبدالغني قم بتحميل الملف من المشاركة رقم 46

بارك الله فيك اخي باسم تقبل تحياتي

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

تفضل اخي الكريم المرفقات مرة اخري فاتورة مبيعات اوفيسنا.rar

تعرفنا معا في الدروس السابقة علي عدد من ادوات الفورم الشائعة ودرسنا اليوم سوف نتعـرف علي UserForm Controls - CheckBox, OptionButton and ToggleButton UserForm Controls - ScrollBar and SpinButton الدرس الخامس أولا: ScrollBar Control عنصر تحكم شريط التمرير(ScrollBar ) تمكن من تغيير (زيادة أو إنقاص) القيمة المعروضة من قبل عناصر التحكم UserForm الأخرى أو قيمة في نطاق ورقة العمل. انها لفائف من خلال مجموعة من القيم عندما يقوم المستخدم: زيارة لأسهم التمرير، (الثاني) تستمر مربع التمرير، أو (الثالث) النقرات في منطقة بين سهم التمرير ومربع التمرير. ضوابط شريط التمرير وSpinButton - الفرق بين الاثنين هو أن مربع التمرير يمكن سحب لتغيير قيمة عنصر التحكم على زيادات أكبر (مع الحفاظ على مقدار منخفض مقابل النقرات) التي مزايا شريط تمرير لجعل الاختيار من عبر عدد كبير من القيم وتغطي مجموعة واسعة جدا. يحدد SmallChange التغيير التدريجي، كقيمة عدد صحيح (متغير طويل)، الذي يحدث عندما يقوم المستخدم بالنقر فوق سهم التمرير. يحدد LargeChange وتغيير تدريجي عندما ينقر المستخدم بين سهم التمرير ومربع التمرير. القيمة الافتراضية هي 1 لكل من الخصائص. مثال نرغب في حساب الدفعة لقرض معين يتم إدخال قيمة القرض ومعدل الفائدة الثانوي وفترة السداد السنوي عن طريق استخدام السكرول بار اولا : قبل تنفيذ الفورم نفكر ماهو الغرض الذي سوف ننفذ من اجله الفورم وطريقة تنفيذه ونخطط لذلك ونحس به (روح الاكسيل ) كل منا له طابع خاص في عرض وتشكيل الفورم الخاص به سوف نستخدم في الفورم مجموعة من المعطيات كالتالي 1- شريط تمرير لادخال مبلغ القرض مع مربع نص لاظهار القيمة 2- شريط تمرير لادخال معدل الفائدة الثانوي مع مربع نص لاظهار القيمة 3- شريط تمرير لادخال فترة السداد السنوي مع مربع نص لاظهار القيمة 4- سوف احتاج لزر امر لادخال الكود البرمجي لعملية الحساب 5- وسوف احتاج مربع عنوان لاظهار قيمة الدفعة الشهرية معا ايضا سوف نتعلم كيفية اضافة العناوين عن طريق الفورم باستخدام الخاصية ( CAPTION) التنفيذ بعدما خططنا لما نريد تنفيذه بالضبط سوف نقوم بتنفيذ الفورم كالتالي (( التطبيق بالمرفقات )) وسوف باختيار الاكواد الخاصة بالفورم في حدث انطلاق الفورم سوف نقوم بتحديد العنواين الخاصة باستخدام CAPTION وتحديد خصائص كل من اشرطة التمرير الثلاثة وتنسيقاتهم المستخدمة والشرح مع الكود Private Sub UserForm_Initialize() 'ÇáÝÑÖ Label1.Caption = "ãÈáÛ ÇáÞÑÖ :" ScrollBar1.Min = 0 ScrollBar1.Max = 10000 ScrollBar1.Orientation = fmOrientationHorizontal ScrollBar1.SmallChange = 5 ScrollBar1.LargeChange = 100 ScrollBar1.Value = 0 'ãÚÏá ÇáÝÇÆÏÉ ÇáÓäæí ' æÖÚäÇ ÚäæÇä áãÑÈÚ ÇáÚäæÇä 2 Label2.Caption = "ãÚÏá ÇáÝÇÆÏÉ ÇáÓäæí (%) :" ScrollBar2.Min = 0 ScrollBar2.Max = 1000 ScrollBar2.Orientation = fmOrientationHorizontal ScrollBar2.SmallChange = 1 ScrollBar2.LargeChange = 10 ScrollBar2.Value = 0 'set properties for controls in re of Loan Tenure: Label3.Caption = "ÝÊÑÉ ÇáÓÏÇÏ (ÈÇáÓäÉ)" ScrollBar3.Min = 0 ScrollBar3.Max = 50 ScrollBar3.Orientation = fmOrientationHorizontal ScrollBar3.SmallChange = 1 ScrollBar3.LargeChange = 4 ScrollBar3.Value = 0 'set properties for Label which displays Monthly Instalment: Label4.Caption = "ÇáÏÝÚÉ ÇáÔåÑíÉ" Me.Caption = "ScrollBar Control" End Sub نحدد ان قيمة كل نص (تكست بوكس ) = لقيمة شريط التمرير كالتالي Private Sub ScrollBar1_Change() ' TextBox1.Value = ScrollBar1.Value * 1000 TextBox1.Value = Format(TextBox1.Value, "#,##0") End Sub Private Sub ScrollBar2_Change() ' TextBox2.Value = ScrollBar2.Value / 10 End Sub Private Sub ScrollBar3_Change() TextBox3.Value = ScrollBar3.Value / 2 End Sub وفي النهاية الكود المستخدم لحساب الدفعة الشهرية وقما له بتخصيص زر امر Private Sub CommandButton1_Click() 'áÍÓÇÈ ÇáÏÝÚÉ ÇáÔåÑíÉ Dim mi As Currency If Not TextBox1.Value > 0 Then MsgBox "ãä ÝÖáß ÃÏÎá ãÈáÛ ÇáÞÑÖ !" Exit Sub ElseIf Not TextBox2.Value > 0 Then MsgBox "ÇáÑÌÇÁ ÇÏÎÇá ãÚÏá ÇáÝÇÆÏÉ ÇáÓäæí !" Exit Sub ElseIf Not TextBox3.Value > 0 Then MsgBox "ÇáÑÌÇÁ ÇÏÎÇá ãÏÉ ÇáÞÑÖ !" Exit Sub Else mi = Pmt((TextBox2.Value / 100) / 12, TextBox3.Value * 12, TextBox1.Value) ' Label4.Caption = " ÇáÏÝÚÉ ÇáÔåÑíÉ " & Round(mi, 2) * -1 End If End Sub شرح الاكواد والتطبيق بالمرفقات ثانيا: SpinButton Control يتم استخدام عنصر تحكم SpinButton، مماثلة إلى عنصر تحكم شريط التمريرScrollBar ، إلى زيادة أو إنقاص قيمة (ماعدا التاريخ، الوقت) المعروضة من قبل عناصر التحكم UserForm الأخرى (مربع نص، تسمية، ...) أو القيمة في نطاق ورقة العمل. عنصر تحكم SpinButton (ويشار إلى عنصر تحكم سبينر أيضا) وظائف مثل عنصر تحكم شريط التمريرScrollBar ، مع خصائص مشابهة (. SmallChange، أدني، أعلي، والتوجه، ...). يحدد SmallChange التغيير التدريجي، كقيمة عدد صحيح (متغير طويل)، الذي يحدث عندما يقوم المستخدم بالنقر فوق سهم التمرير. لا يملك عنصر تحكم SpinButton خاصية LargeChange، مثل في شريط التمرير. في شريط التمرير العمودي النقر فوق سهم التمرير يقلل من قيمة في حين النقر فوق سهم التمرير على سبينر عمودي يزيد من قيمة. ضوابط شريط التمرير وSpinButton - الفرق بين الاثنين هو أن مربع التمرير يمكن سحب لتغيير قيمة عنصر التحكم على زيادات أكبر (مع الحفاظ على مقدار منخفض مقابل النقرات) التي مزايا شريط تمرير لجعل الاختيار من عبر عدد كبير من القيم وتغطي مجموعة واسعة جدا. مثال: استخدام عنصر تحكم SpinButton لتغيير البيانات في مربع نص، ضمن نطاق (A2:A10) سوف نقوم بتصميم الفورم بالشكل التالي لاضافة العناصر الي الليست بوكس Private Sub loadListBox() 'ÇÖÇÝÉ ÇáÚäÇÕÑ Çáí ÇááíÓÊ ÈæßÓ ãä æÑÞÉ ÇáÚãá Dim n As Integer Dim cell As Range Dim rng As Range ' ãÕÏÑ ÇáÈíÇäÇÊ Set rng = sheet1.Range("A2:A10") For n = 1 To ListBox1.ListCount ListBox1.RemoveItem ListBox1.ListCount - 1 Next n For Each cell In rng.Cells Me.ListBox1.AddItem cell.Value Next cell End Sub Private Sub UserForm_Initialize() 'ÇÖÇÝÉ ÇáÚäÇÕÑ Çáí ÇááíÓÊ ÈæßÓ loadListBox Me.Caption = "SpinButton Control" End Sub الكود مع الشرح بالمرفقات ثالثا: RefEdit control عنصر التحكم RefEdit لا تتوفر إلا في UserForm VBA، ويسمح للمستخدم لتحديد نطاق ورقة عمل من مربع، أو أن اكتب في نطاق فيه. يعرض عنصر التحكم RefEdit عنوان الخلية أو نطاق (يمكن أن تكون خلية واحدة أو نطاق من الخلايا المتجاورة أو غير المتجاورة) الذي يختار المستخدم أو يدخل عن طريق كتابة فيها للحصول على خلية أو نطاق عناوين التي يتم تخزينها في التحكم RefEdit . رابعا:CheckBox الخاصية قيمة خانة اختيار تشير إلى ما إذا كانت محددة أم لا. تشير قيمة True إلى تحديد خانة الاختيار، خطأ يشير إلى أن يتم مسح عليه، ويدل على قيمة خالية التي لا تحديده ولا تطهيرها، وسوف تظهر مظللة خانة الاختيار في هذه الحالة. يجب تعيين قيمة الخاصية TripleState (يمكن وضعها إما في إطار خصائص أو باستخدام ماكرو أو التعليمات البرمجية ل VBA) إلى True لخانة الاختيار ليكون لها قيمة خالية. خامسا:OptionButton يستخدم OptionButton لجعل اختيار واحد من خيارات متعددة. ويشار أيضا إلى أنه على زر الراديو، الذي يختار خيار واحد من مجموعة من الخيارات الخاصة التبادلية. إذا لم يتم تجميع OptionButtons، واختيار واحد OptionButton في UserForm سوف ازالة اختيار كل OptionButtons الأخرى في النموذج. جميع OptionsButtons ضمن مجموعة معينة تصبح يستبعد بعضها بعضا ومكتفية ذاتيا ضمن تلك المجموعة ولا تؤثر على اختيار OptionButtons خارج تلك المجموعة. سوف اختيار مثال التطبيقات والشرح والاكواد مشروحة سطر سطر مع التنفيذ لكل أداة بالمرفقات التالية وللموضوع بقية في شرح UserForm Controls - Frame, MultiPage and TabStrip ScrollBar.rar