ضاحي الغريب

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

أخي الحبيب // مرعي ماشاء الله نشاطك ملحوظ من تقدم الي تقدم ان شاء الله وفقكم الله دائما تقبل تحياتي

اخي الكريم // جودة طلبك بالمرفقات فورم يحتوي علي خروج ودخول جودة.rar

اخي الفاضل الأستاذ // مجدي يونس الصورة السابقة المرسلة ليست من ملفي الاكودا المستخدمة في الملف كالتالي الملف مرة اخري بالمرفقات TreeViewControl.rar

أخي الفاضل // مصطفي فقط اضف السطر التالي للكود الاول لديك sheet1.Activate أو حسب النسخة لديك عربي او انجليزي ​ورقة1.Activate Private Sub Workbook_Open() On Error Resume Next UserForm2.Show sheet1.Activate End Sub

التطبيق بالمرفقات Sum22.rar

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

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

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

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

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

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

اخي الحبيب الأستاذ // مجدي يونس أخي الحبيب الأستاذ / سعد عابد واخي الفاضل // علي سالم الصورة التي ارسلها اخي الحبيب الأستاذ مجدي يونس لان الويندز قام بعمل اختصار لبرنامج الاكسيل ولحل مشكلة الاكسل السابقة سوف نكتفي بالتالي ان شاء الله لحل مشكلة (( Additional Controls Dialog Box)) 1- نفتح ابدا ونختار مايكروسوفت اوفيس 2-كليك يمين علي مايكروسوفت اكسل 3- نختار خصائص 4-سوف تظهر الشاشة التالية ***************** برجاء التجربة والافادة ...... >>>>>>>>>>>>>>

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

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

أخي الكريم/ ،،،،،،، الملف بالمرفقات التفقيط الي الدينار والفلس بدون تقريب تفقيط دينار - فلس.rar

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

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

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

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

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

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

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

اخى ضاحى ابوعمرو حاولت جاهدا دون فائدة ان تظهر Tree View Control كليك يمين على الادوات وتختار ADDITIONAL CONTROL ولكن عندى لا يظهر شئ بعد الاختيار ارجو التوضيح اخي الحبيب // أبوعبدالرحمن الأستاذ/ سعد عابد صادفتني المشكلة هذه قبل ذلك ولحلها ان شاء الله اتبع مايلي :- الخطوة الأولي :- قم بعمل اختصار للاكسيل لديك علي سطح المكتب حسب اصدار الاكسيل (2003-2007-2010) الخطوة الثانية :- كليك يمين علي الاختصار الذي قمنا بوضعه علي سطح المكتب الخطوة الثالثة والأخيرة اتبع مافي الصورة التالية وبعد ذلك قم بتشغيل الاكسيل وجرب هتلاقي (( Additional Controls Dialog Box )) شغال ان شاء الله جرب واعلمني بالنتيجة تقبل تحياتي

واتمني من الله الجميع يشاركونا لاثراء الموضوع لجعله موضوع متكامل في الفورم تقبل الله منا ومنكم صالح الاعمال