امثلة عن كيفية استخدام أدوات الفورم- ضاحي الغريب (( متجدد ان شاء الله))

[ضاحي الغريب]

اخي الحبيب الاستاذ / ضاحي

موفق ان شاء الله

و الي الامام دائم بفضل الله

أخي الحبيب الأستاذ// أحمد فضيلة

اللهم لا يحرمني دائما من مرورك العطر

ودعائك ودعمك المتواصل

بارك الله فيك وجزاك خيرا

[مجدى يونس]

الاخ ضاحى

شكرا للرد

هيه نفس المشكلة عندى جايز لانك شغال على وندز 7 اللى عندى xp

[ضاحي الغريب]

الاخ ضاحى

شكرا للرد

هيه نفس المشكلة عندى جايز لانك شغال على وندز 7 اللى عندى xp

اخي الفاضل الأستاذ // مجدي

نوع الويندوز لا بشكل اي مشكلة

السؤال هل الشاشة التي في المشاركة تظهر لديك عند الضغط كليك يمين علي مايكروسوفت اكسيل في قائمة ابدا ام لا

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

http://www.officena.net/ib/index.php?showtopic=46367&hl=

 

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

[حاملة المسك]

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

 

[علي سالم 75]

السؤال هل الشاشة التي في المشاركة تظهر لديك عند الضغط كليك يمين علي مايكروسوفت اكسيل في قائمة ابدا ام لا

الجواب لا

تظهر الصورة التي ارفقها الاستاذ مجدي يونس

 

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

 

هل في حل لديكم ؟؟؟

تم تعديل يونيو 8, 2013 بواسطه علي سالم 75

[حمادة عمر]

موضوع مميز اخي الحبيب

اقوم بالدخول علي المنتدي الآن من علي الموبايل لمتابعة موضوعك الرائع

ومتابعتك الممتازة لأسئله الأخوة الكرام

جعلك الله في عون الجميع دائما

جزاك الله خيرا

[مجدى يونس]

الاخ ضاحى الغريب

الشاشة التى فى المشاركة الاولى تعطى الرسالة الموجودة بالصورة

علما باننى اتبعت الخطوات بتثبيت Microsoft TreeView Control

دون فائدة موجود الامر لكن لا يعمل

 

 

 

[ضاحي الغريب]

الدرس الرابع

*********

 

استكمالا لموضوع الكمبو بوكس والليست بوكس في الدرس الثاني والثالث

وتعرفنا عن كيفية اضافة كمبو بوكس وليست بوكس

واضافة عناصر لكل منها

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

وكذلك سوف نتعرف علي اضافة اكثر من عمود داخل الكمبو بوكس والليست بوكس

Add Items/Data to (Populate) a ListBox or ComboBox    
أضافة عناصر البيانات الي القائمة المنسدلة للكمبو بوكس والليست بوكس    
1- تعيين مصدر البيانات في الفورم    
اذا كانت القائمة ثابتة  كود VBA    

Me.ListBox1.RowSource = "Sheet1!A1:B10"
أو (عن طريق اسم )

Me.ListBox1.RowSource ="Sheet1!HeightList"

VBA code - if the list is dynamic:
Me.ListBox1.RowSource = "Sheet1!A1:B" & Sheet1.Cells(Rows.Count, "B").End(xlUp).Row

مثال علي ذلك

 

المطلوب اضافة البيانات السابقة الي كمبوبوكس 1 بحيث تظهر علي عمودين

حتي اقوم بتنفيذ المطلوب 

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

الان سوف نتعرف كن كيفية اضافة البيانات السابقة 

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

سوف نستخدم الكود التالي

في حدث انطلاق الفورم

Private Sub UserForm_Initialize()
'اضافة العناصر الي الكمبو بوكس
With ComboBox1
' عدد الاعمدة 2
.ColumnCount = 2
' عرض العمود 50
.ColumnWidths = "50;50"
'اضافة صف العنوان
.ColumnHeads = True
'مصدر البيانات
.RowSource = "Sheet1!A1:B10"
' ويمكن ان يكون عن طريق اسم معرف كالتالي
'.RowSource="Sheet1!HeightList"
End With

End Sub

النتيجة

 

وبمكن ايضا تعيين بيانات للقائمة داحل الكمبوبوكس والليست بوكس(عمود واحد) داخل الفورم

باكثر من طريقة كالتالي

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

 

 

وسوف نتاول بالتفصيل اكثر من طريقة مع التطبيق 

ثانيا عند اضافة اكثر من عمود الي الليست بوكس

Column Property:     
يشير الي عمود معين او مجموعة من الاعمدة والصفوف في الليست بوكس والكمبو بوكس بناء علي الجملة     
Control.Column(iColumn, iRow)     
خاصية عمود يتم استخدامها مع التعليمات البرمجية للماكرو أو VBA وليس متاحا في وقت التصميم. يحدد iColumn رقم العمود حيث iColumn = 0 يعني العمود الأول في القائمة. iRow يحدد رقم الصف حيث iRow = 0 يعني أن الصف الأول في القائمة. كلا iColumn وiRow هي قيم الأعداد الصحيحة التي تتراوح من صفر إلى عدد من الأعمدة والصفوف (على التوالي) في قائمة ناقص 1. وسوف يحدد كل عمود أرقام الصفوف والرجوع إلى عنصر معين، وسوف تحدد فقط عدد الأعمدة تشير إلى عمود معين في بمعنى الصف الحالي. ListBox1.Column (1) يشير العمود الثاني وهكذا....     
     

 

 

 

 

 

     

مثال علي ذلك الجدول السابق

وسوف نتاول اضافة العناصر الي اليست بوكس من مصدر البيانات الجدول (ورقة العمل) ومن ليست ديناميكي

كالتالي

Private Sub UserForm_Initialize()
'اضافة العناصر الي الليست بوكس
With ListBox1
' عدد الأعمدة
.ColumnCount = 3
' عرض كل عمود 50
.ColumnWidths = "50;50;50"
' اضافة صف العنوان
.ColumnHeads = True
' مصدر البيانات
.RowSource = "=Sheet1!A2:B10"
' لاحظ هنا استخدمت خاصيت مالتي سليكت
.MultiSelect = fmMultiSelectMulti
End With

TextBox1 = ""

End Sub
 
 
Private Sub CommandButton1_Click()
' اضافة البيانات مباشرة الي اليست بوكس
ListBox1.RowSource = ""
'اضافة العناصر
' صف العنوان لا
ListBox1.ColumnHeads = False
' اضافة العمود الاول
ListBox1.AddItem "عبدالله 3"
'عمل عمود جديد مع اضافة البيان
ListBox1.List(0, 1) = "الثلاثاء"
' العمود الثاني
ListBox1.List(0, 2) = "اليوم الثاني"
ListBox1.AddItem "عبدالله 2"
ListBox1.Column(1, 1) = "الأربعـاء"
ListBox1.Column(2, 1) = "اليوم الثالث"
' العمود الثالث
ListBox1.AddItem "عبدالله 1", 0
ListBox1.List(0, 1) = "الأثنين"
ListBox1.List(0, 2) = "اليوم الأول"
' اضافة البيان في تكست بوكس العمود الثالث الصف الثاني
TextBox1.Value = ListBox1.Column(2, 1)

End Sub
 

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

 

وللموضوع بقية .............>>>>

لكن انا ملاحظ انه لاتوجد أسئلة حول الدروس

اعتبرها بشارة خير وان الهدف المرجو من الدروس تم

والحمد لله

علي اية حال سوف اكمل الدروس ..............

4bb.rar

D001.rar

 

[ضاحي الغريب]

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

 

الاخت الكريمة // حاملة المسك

بارك الله فيكِ

تابعي الدروس وعند الانتهاء ان شاء من شرح عناصر الفورم مع امثلة عملية

سوف نتعلم سويا عمل فورم للبحث والأضافة والتعديل والحذف

[ضاحي الغريب]

موضوع مميز اخي الحبيب

اقوم بالدخول علي المنتدي الآن من علي الموبايل لمتابعة موضوعك الرائع

ومتابعتك الممتازة لأسئله الأخوة الكرام

جعلك الله في عون الجميع دائما

جزاك الله خيرا

اخي الحبيب الاستاذ // حمادة عمر

بارك الله فيك

علي دعمك المتواصل 

ومتابعتك للموضوع

والله ان ادعو الله ان عدد كثير يستفيد

ومنتظر اية اسئلة

ومعهم خطوة خطوة 

حتي يستطيع كل منهم يعمل الفورم الخاص به 

 

 

وادعوا الله ان اكون عند حسن ظنكم في

تقبل تحياتي

[ضاحي الغريب]

الاخ ضاحى الغريب

الشاشة التى فى المشاركة الاولى تعطى الرسالة الموجودة بالصورة

علما باننى اتبعت الخطوات بتثبيت Microsoft TreeView Control

دون فائدة موجود الامر لكن لا يعمل

 

 

 

أخي الحبيب الاستاذ // مجدي يونس

هل بالامكان ارسال الملف 

حتي اتمكن من معرفة السبب

وانا ان شاء الله سوف اقوم بتسطيب ويندوز اكس بي وافيس 2003 

حتي اجد حالا مناسبة لمشكلة عدم ظهور Additional Controls Dialog Box

[مجدى يونس]

الاخ ضاحى الغريب

الملف هو خاص بك فى المشاركة الاولى من الموضوع

[abdoullah]

السلام عليكم

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

انا عندي اوفس 2007 وتقبل فائق إحترامي وتقديري

[ضاحي الغريب]

الاخ ضاحى الغريب

الملف هو خاص بك فى المشاركة الاولى من الموضوع

 

 

الاخ ضاحى الغريب

الشاشة التى فى المشاركة الاولى تعطى الرسالة الموجودة بالصورة

علما باننى اتبعت الخطوات بتثبيت Microsoft TreeView Control

دون فائدة موجود الامر لكن لا يعمل

 

 

 

 

 

اخي الفاضل الأستاذ // مجدي يونس

الصورة السابقة المرسلة ليست من ملفي

الاكودا المستخدمة في الملف كالتالي

 

 

الملف مرة اخري بالمرفقات

TreeViewControl.rar

[فتحى ابوالفضل]

أخي الفاضل العبقري  / ضاحي الغريب

 

أحد عباقرة منتدى اوفيسنا العظيم

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

 

و أعتذر لعدم ذكر الآخرين لأنني لو ذكرتهم لبقيت ساعات بل أيام في تسجيل اسماؤهم وقد تخونني الذاكرة

 

ولنا نحن و أمثالي المبتدئين طلب من حضرتك و من عباقرة المنتدي جميعاً الا و هو

 

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

 

لذلك نرجو أن تقوم حضرتك بالاتفاق مع الأخوة عباقرة المنتدي بتعليمنا منذ البداية ( الصفر ) و حتى النهاية على أن يكون التدريب عملي بالشرح و الفيديو من خلال انشاء احد المشروعات التى تختارها حضرتك أو بالاتفاق من الأخوة الافاضل وتقوم بإنشائها من البداية ( من اليوز فورم ) و حتى اكتمال المشروع تماما

 

مع ملاحظة

 

أن يكون الشرح بسيطاً وخطوة خطوة مراعاة لأمثالي من المبتدئين حيث أنني و بعض من أمثالي لا نعرف اين توضع الأكواد بطريقة صحيحة و ايضا لا نعرف الفرق بين   thisworkbook و   sheet   و  module     و classmodule  ولا دور كل منهم في العمل أو وظيفتهم

 

( شوفت إزاي احنا أقل من الصفر إزاي )

 

فهل يلقي طلبي قولاً من حضرتك و كذلك عباقرة المنتدي ؟

 

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

 

[ضاحي الغريب]

أخي الكريم الأستاذ// فتحي أبو الفضل

بارك الله فيك علي كلماتك الطيبة

وأدعوا الله ان اكون عند حسن ظنكم في

وان شاء الله معا جمعيا سوف يكون الفورم سهل الانشاء 

وتركيب الاكواد خطوة بخطوة

تابع الدروس

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

كثيرة في اعداد فورم للترحيل والادخال والبحث والتعديل والحذف

تقبل تحياتي

[ضاحي الغريب]

تعرفنا معا في الدروس السابقة علي عدد من ادوات الفورم الشائعة 

ودرسنا اليوم سوف نتعـرف علي 

 

 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

[saad abed]

اخى ضاحى

نتابع مواضيعك بشغف

شكرا لادارة المنتدى لتثبيت الموضوع

من راى اى موضوع تعليمى يجب ان يثبت حتى ينتهى ويستفيد منه الاعضاء

جزاك الله خيرا اخى ضاحى

ظهرت عندى بفضل الله ثم انت حل المشكلةAdditional Controls Dialog Box

نفذت الخطوات وفعلا ظهرت مع الجهاز اللى نسخته سفن اما الاكس بى فلا

اشكركم

تم تعديل يونيو 9, 2013 بواسطه سعد عابد

[ضاحي الغريب]

اخى ضاحى

نتابع مواضيعك بشغف

شكرا لادارة المنتدى لتثبيت الموضوع

من راى اى موضوع تعليمى يجب ان يثبت حتى ينتهى ويستفيد منه الاعضاء

جزاك الله خيرا اخى ضاحى

ظهرت عندى بفضل الله ثم انت حل المشكلةAdditional Controls Dialog Box

نفذت الخطوات وفعلا ظهرت مع الجهاز اللى نسخته سفن اما الاكس بى فلا

اشكركم

أخي الحبيب ابو عبدالرحمن

الاستاذ // سعد عابد

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

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

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

بارك الله فيك

تقبل تحياتي

[نور محمود]

جزاك الله خيرا واحسن الله اليك

[خالد القدس]

السلام عليكم

أستاذنا المتمكن الضاحي

درزس احترافية بكل معنى الكلمة

فتح الله عليك

[مجدى يونس]

الاخ ضاحى

مجهود تشكر عليه

مش عارف ارد عليك فى السؤال السابق حيث ان جهاز الكمبيوتر بسبب انقطاع الكهرباء

حرق الرامه وبكلمك على جهاز بدون اوفيس

[حسين شاكر]

الاستاذ ضاحى اكرمك الله شرح اكثر من ممتاز استمر ونحن نتابعك ونتعلم جعلة فى ميزان حسناتك

ارجو من سيادتكم الاطلاع على المرفق فقد قمت بتجميع الدرس الاول فى ملف pdf فان اعجب سيادتكم ارجو    من الاخوة المشرفين وضعة فى مكانة المناسب وسوف اقوم برفع باقى الدروس بعد موافقة سيادتكم

 

الاستاذ ضاحى الدرس الاول.pdf

[ضاحي الغريب]

جزاك الله خيرا واحسن الله اليك

اخي الكريم // نور محمد

بارك الله فيك وجزاك خيرا علي دعائك

تقبل تحياتي

[ضاحي الغريب]

السلام عليكم

أستاذنا المتمكن الضاحي

درزس احترافية بكل معنى الكلمة

فتح الله عليك

أخي الحبيب الأستاذ // خالد القدس

دائما مرورك يعطر الموضوع

بارك الله فيك

علي كلماتك ودعائك 

جزاك الله كل خير

تقبل تحياتي واحترامي