نجوم المشاركات

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

الطريقة الأبسط للحل يمكن أن تتم بخطوتين أو بمعنى أدق بمعادلتين الأولى فى " B2 " وتكون كالأتى: =MID(A2;FIND("-";A2)+2;FIND("/";A2)-FIND("-";A2)-2) والثانية فى " C2 " وتكون كالأتى: =RIGHT(A2;LEN(A2)-FIND("/";A2)) ثم إسحبهم لإسفل فصل حروف عن أرقام ووضع كلا منهم فى عمود مستقل 2.rar

إستخدم هذه المعادلة أخى فى الخلية " B2 " ثم إسحبها إلى اليمين ثم إلى أسفل ستحقق لك المطلوب =TRIM(MID(SUBSTITUTE(SUBSTITUTE($A2;"/";REPT(" ";444));"-";REPT(" ";444));444*COLUMNS($A:A)+1;444)) فصل حروف عن أرقام ووضع كلا منهم فى عمود مستقل.rar

السلام عليكم أخى الفاضل / سليم تسلم ايديك ولإثراء الموضوع هذا حل آخر Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim R_N As Integer Dim C_N As Integer Dim i As Integer Dim ii As Integer '=========================================== Cells.Interior.ColorIndex = 0 R_N = ActiveCell.Row C_N = ActiveCell.Column '=========================================== For i = 1 To R_N Cells(i, C_N).Interior.ColorIndex = 6 Next For ii = 1 To C_N Cells(R_N, ii).Interior.ColorIndex = 6 Next Cells(R_N, C_N).Interior.ColorIndex = 5 End Sub تلوين الصف والعمود الخاص بالخلية النشطة.rar

تفضل أخى ماطلبت تقبل تحياتى 123.rar

الاستعلامات الاستعلامات هي أهم كائنات قواعد البيانات ، من خلال الاستعلام يمكنك عمل الكثير كما سنري بإذن الله و لدينا عشرة أنواع من الاستعلامات خمسة منها لها واجهة رسومية يمكن استخدامها لتكوين الاستعلام باستخدام الفأرة أو كتابة الاستعلام يدويا و الخمسة الأخري سنكتب فيها جمل ال SQL مباشرة و الأصل فى الاستعلامات أنها جميعا فى النهاية عبارة عن جمل و تعبيرات SQL و قبل أن نعرض الي تعريف الانواع العشرة ، تعالوا نتعرف الي ما تعنيه هذه الحروف الثلاثة SQL Structured Query Language السي كيو ال هو لغة التعامل مع قاعدة البيانات و ينقسم الي 3 أقسام لغة معالجة البيانات DML Data manipulation language لغة تعريف البيانات DDL Data Definition language لغة التحكم فى البيانات DCL Data Control language لغة معالجة الييانات ادراج بيانات تحديث بيانات حذف بيانات استرجاع بيانات لغة تعريف البيانات هي إنشاء قاعدة البيانات فى البداية كان يتم انشاء قاعدة البيانات باستخدام جمل SQL ثم بعد ظهور نظم ادارة قواعد البيانات مثل الاكسس أصبحت هذه العملية تتم من خلال واجهة رسومية سهلة الاستخدام قادرة علي انشاء و التحكم أيضا فى قواعد البيانات و هذه اللغة مسئولة عن : إنشاء جدول الغاء جدول تعديل جدول العلاقات لغة التحكم تتولي معالجة صلاحيات المستخدمين و هذه العمليات أيضا أصبحت تتم من خلال الواجهة الرسومية لنظم ادارة قواعد البيانات و نعود ثانية الي الأكسس : :d سنبدأ فى هذا الموضوع بتعريف أنواع الاستعلامات ، كتعريف عام قبل أن نعرض اليها بالتفصيل بإذن الله تعالي: 1. استعلامات الاختيار : select query 2. استعلامات الجداول المحورية : ؛Cross Tab Query 3. استعلام تحديث : Update Query 4. استعلام إضافة : Append Query 5. استعلام حذف : Delete Query 6. استعلام إنشاء جدول : Make Table Query 7. استعلامات التوحيد : Union Query 8. استعلامات التمرير : Pass-Trough Queries 9. استعلامات تعريف البيانات : Data definition queries 10. الاستعلامات الفرعية : Sub-query استعلامات الاختيار : select query تكوين مجموعة من السجلات المبنية علي جدول أو أكثر من بحيث تمثل كل الببيانات أو المجموعة من السحلات التي تحقق شروط معينة. بالاضافة الي امكانية التحكم فى ترتيب السجلات . – مثل جميع الطلاب الذين تتعدي درجاتهم 90 و بلدهم القاهرة و عدد أيام الغياب لديهم أقل من خمسة – مع كون الشروط الثلاثة نخص بيانات مسجلة فى ثلاث جداول مختلفة. و كما تكلمنا سابقا ، يمكن عمل ذلك باحدي طرق تصفية الجداول ، و لكن هنا سيكون لدينا كائن استعلام محفوظ ، يمكن استخدامه فى أي وقت . أيضا يمكن استخدامه لتجميع البيانات التي تشترك فى خواص معينة ، أي تلخيص البيانات و في هذه الحالة يطلق عليها استعلام تجميع استعلامات الجداول المحورية : ؛Cross Tab Query و هي أداة تحليلية تستخدم لتحليل البيانات بناء علي الخاصية المطلوبة ، فيتم فيها تجميع البيانات التي تجمعها خاصية معينة و تحليلها بالنسبة لخاصية أخري و تقديم الاحصائية المناظرة بمعني : لو لدينا بيانات عدد من الطلاب ، و تقديرهم و الجنسية ، و نريد احصائية تكون الصفوف فيها هي البلد و الأعمدة هي التقدير و محتويات الجدول عدد الطلاب الذين ينتمون الي كل بلد و كل تقدير أو مثلا بدلا من العدد نريد البيانات مجموع المصروفات المناظر ، أو أكبر تاريخ ميلاد لكل بلد و لكل تقدير فنحن نتحدث عن تطبيق مباشر للاستعلامات من نوع Cross Tab استعلام تحديث : Update Query تحديث كل أو بعض قيم بيانات فى جدول بشروط او بدون استعلام إضافة : Append Query اضافة سجلات الي جدول بشرط و بدون استعلام حذف : Delete Query حذف كل أو بعض السجلات من جدول بشرط أو بدون استعلام إنشاء جدول : Make Table Query إنشاء جدول جديد يحوي بيانات مختارة استعلامات السي كيو ال المحددة SQL Specific Queries استعلامات التوحيد : Union Query مثل استعلامات الاختيار ـ، و لكن تتميز عليها بامكانية توحيد أو ضم بينات أكثر من جدول فى نفس الحقل فمثلا لو لدينا جدول به أوامر البيع و آخر به أوامر التوريد ، و كلاهما به حقل رقم الامر و القيمة و أردنا أن ننشيء استعلام واحد يجمع بيانات الجدولين بحيث يكون به ثلاث حقول الاول يوضح نوع الامر و الثاني رقمه و الثالث القيمة و تكون القيمة موجبة فى حالة اوامر التوريد و سالبة فى حالة اوامر الصرف ، فنحن نتحدث عن تطبيق مباشر لاستعلامات التوحيد استعلامات التمرير : Pass-Trough Queries تستخدم لارسال أوامر بلغة اس كيو ال ، الي خادم قاعدة بيانات مباشرة من خلال ال ODBC ، و قد يكون لها مردود باعادة عرض سحلات و قد لا يكون لها ، و تفاصيل كتابة الاوامر فيها تعتمد علي قاعدة البيانات التي سنقوم بالتمرير اليها و نمر سريعا علي تعريف ال ODBC : Open Database Connectivity (ODBC): A standard method of sharing data between databases and programs. ODBC drivers use the standard Structured Query Language (SQL) to gain access to external data.) امكانية الاتصال بين قواعد البيانات ، و مشاركة البيانات بينها ، و تعتمد علي لغة الاستعلامات البنائية ( اس كيو ال) النمطية للتعامل مع البيانات استعلامات تعريف البيانات : Data definition queries و هي تستخدم لانشاء و حذف و تعديل الجداول و الفهارس الاستعلامات الفرعية : Sub-query و هو ليس نوع جديد ، و لكنه تطبيق لاستخدام استعلامات الاختيار ، و لكن هذه المرة لتعريف حقل أو معيار لحقل و طبعا هذا تعريف عام ، كبداية للحديث ، و يلي ذلك عرض الموضوع بالتفصيل بإذن الله

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

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

بسم الله و ما شاء الله اهداء لمن قام بكل عمل و لا ينتظر مقابله اقل ما يقال لكم "عندما تنتهى كلمات الابداع عندكم و تبدأ من جديد و تنتهى عندكم" بارك الله لكم مدونة اعمال ايقونات الماس لمنتدى اوفيسنا _ شارك بتعديلاتك فكرة المدونة هى سهولة الوصول و البحث فى المنتدى مدونة (1) (موضوع مميز ) بعض الاكواد المنفصلة قد تهم البعض_بدأه الاستاذ / محمد يحياوى مدونة (2)امثلة عن كيفية استخدام أدوات الفورم (( متجدد ان شاء الله))_بدأه الاستاذ / ضاحى الغريب مدونة (3) طريقة عمل فورم فاتورة ووضع اكوادها وترحيلها واستدعائها وطباعتها !! خطوة خطوة_ بدأه الاستاذ / حماده عمر مدونة (4) طريقة عمل فورم بحث واظهار النتائج في ليست بوكس وتعديل النتائج !! خطوة خطوة_ بدأه الاستاذ / حماده عمر مدونة (5) طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة_ بدأه الاستاذ / حماده عمر مدونة (6) شرح كيفية استخدام الخلايا في الاكسل عند استخدام ال vba_ بدأه الاستاذ / عماد الحسامى مدونة (7) شرح كيفية استخدام الخلايا في الاكسل عند استخدام ال vba_ بدأه الاستاذ / عماد الحسامى مدونة (8) محفظة اكواد منوعة_ بدأه الاستاذ / عبدالله باقشير مدونة (9) شرح كيفية استخدام الخلايا في الاكسل عند استخدام ال vba_ بدأه الاستاذ / عماد الحسامى مدونة (10) ( موضوع مميز ) درس في الترحيل باستخدام الاكواد_ بدأه الاستاذ / عماد الحسامى مدونة (11) ( موضوع مميز )ملف كامل عن كيفية استحدام ال UserForm والتعامل مع كافة جوانبه_ بدأه الاستاذ / عماد الحسامى مدونة (12) (موضوع مميز ) اصنع صندوق الادوات وعناصر التحكم الخاصة بك في محرر الاكواد_ بدأه الاستاذ / محمد يحياوى مدونة (13) ايقونات و ازرار الماكرو ( تصاميم مختلفة )_ بدأه / الجزيرة مدونة (14) ملف من احد المنتديات الاجنبيه به معادلات شتى وصفيف رائعه_ بدأه الاستاذ/ ابو اياد ( الاسيوطى ) مدونة (15) (موضوع مميز) شرح بعض المعادلات وبعض الخصائص فى الاكسيل_ بدأه الاستاذ/ جمال الفاار

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

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

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

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

السلام عليكم أخى الفاضل جرب الكود بعد هذا التعديل Sub Macro6() ' ' Macro6 a~C,?N~? ' ' Application.ScreenUpdating = False Sheets("ALIELBASRY").Select Range("A11:T65").Select Selection.AutoFilter ActiveWindow.SmallScroll Down:=-12 Range("A11").Select ActiveSheet.Range("$A$11:$T$65").AutoFilter Field:=1, Criteria1:="<>" Range("E12").Select Sheets("ALIELBASRY").Select Range("E5:P5").Select Application.Dialogs(xlDialogPrinterSetup).Show ansr = MsgBox("هل تريد اتمام عمليه الطباعة", vbYesNo, "طباعة") If ansr = vbNo Then GoTo 1 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Sheets("Data").Select 1 End Sub

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

كود 88 خاص بجميع المواليد المصريين خارج مصر مهما كانت الدولة

ماشاء الله عليكى " بارك الله فيكى " بجد شئ يدعو للفخر والإعجاب لوعلمت أن لدى حضرتك هذه المعادلة مارفعت معادلتى تقبلى تحياتى: وطريقة أخرى أيضا بطريقتين للتبسيط فى الخلية " B2 " =SUBSTITUTE(REPLACE(A2;1;FIND("-";A2);"");"/"&C2;"")+0 وفى الخلية " C2 " =REPLACE(A2;1;FIND("/";A2);"")+0 تقبلوا جميعا تحياتى

أستاذنا العبقري ملك المعادلات / جمال عبد السميع السلام عليكم ورحمة الله وبركاته دائماً أستاذي مبدع وحلول حضرتك رائعة أسأل الله العلي القدير أن يزيدك من علمه ويعطيك الصحة والعافية ولا يفتى ومالك في المدينة ولكن اسمح ليَ ولإثراء الموضوع فقط أن أشارك بمعادلة صفيف قد تؤدي الغرض. Bazan 2.rar

تفضل وحدة نمطية مع الشرح يمكن من خلالها طباعة الصفحات من تقريرين تنازليا مهما بلغت الصفحات وايضا يمكن تحديد نقطة البداية او صفحة البداية فلو فرضنا ان لديك تقريرين كل واحد منهما يحتوي على 100 صفحة وتريد ان تبدأ الطباعة من الصفحة رقم 20 تنازليا فكل ما عليك هو ان تضع رقم صفحة البداية في الحقل المخصص في النموذج افتح محرر الفيجوال والصق الوحدة النمطية التالية : Function PrintDscOrder(Rep1 As String, Rep2 As String) Dim PgNum As Integer, _ PgNum2 As Integer, PagesCnt As Integer 'اعلان عن متغيرات رقمية تمثل مجمل الصفحات وارقام الصفحات المحددة PagesCnt = Me.RepageCnt.Value 'مجمل الصفحات = قيمة الحقل في النموذج For PgNum = PagesCnt To 1 Step -2 'دوارة تنازلية زوجية PgNum2 = PgNum - 1 'تحديد رقم الصفحة الثانية وهي هنا اقل من الحالية بواحد DoCmd.SelectObject acReport, Rep1, True 'تحديد التقرير الأول DoCmd.PrintOut , PgNum, PgNum2, 1 'طباعة الصفحات المحددة DoCmd.SelectObject acReport, Rep2, True ' تحديدالتقرير الثاني DoCmd.PrintOut , PgNum, PgNum2, 1 'طباعة الصفحات المحددة Next PgNum 'عودة لبداية الدوران End Function 'تصميم وترتيب ابوخليل وفي حدث بعد النقر لزر الطباعة الصق السطر التالي : Call PrintDscOrder("استقطاعات", "استحقاقات") طباعةالصفحات تنازليا من تقريرين.rar

أخى " أحمد " الطريقة بسيطة إذهب إلى البارتشن ( C ) الموجود على هاردك ثم كليك يمين ستظهر قائمة إختر منها " NEW " وذلك لعمل " FOLDER " وقم بتسميتة " temp " ثم قم بنسخ الصور فيه هذه كل التعليمات أرجو أن يكون الشرح وافى وليس صعب تقبل تحيات : أخيك

السلام عليكم الحل في المرفق لتلوين الخلية يجب ان تضغط double click talweeni.rar

أخي الحبيب // الاستاذ ناصر سوف اخبرك باهم اسطر في الكود G = 2 ' عمود رقم الجلوس هذا السطر تحتاج ان تضع رقم العمود الموجود فيه رقم الجلوس بمعنى انك اذا كان عمود رقم الجلوس b فان الرقم هو 2 واذا كان c فيكون 3 وهكذا R = 10 اما هذا السطر فقد بينت مراده في المشاركة رقم 11 o11:dn500 هذا السطر خاص بنطاق الذي تريد وضع الدوائر الحمراء فيه Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, c.Left + 1, c.Top + 1, c.Width - 2, c.Height - 2 وهذا الجزء خاص بضبط حدود الدائرة الحمراء V.Line.ForeColor.SchemeColor = 10 وهذا الجزء خاص بلون الدائرة فاذا قمت بتغيير اللون الى رقم اخر سيتغير لون الدائرة الحمراء الى لون اخر V.Line.Weight = 3 وهذا الجزء خاص بسمك الدائرة فاذا قمت بتغيير الرقم تغير سمك الدائرة حسب ما تريد رقيعة او سميكة.

الأستاذ / أبو عمر5 السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب. 1251.rar

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

تم تغير الإسم من mohamedalaminn الي محمد عبدالرحمن الأمين

عمل رائع ارجو التعديل باضافه ( تعديل وحذف الفاتورة ) وايضا عدم تكرار ترحيل رقم الفاتورة وشكرا محاسبة-منتدى+3+-2.rar

يا اخوتي ...... ابو حنين لم نره في قسم الاكسل من مدة ...؟؟ عسى المانع خير ............ طمنونا عليه يا من يعرفه من قرب يعلم الله اننا نحبه بالله ويسعدنا مشاهدة مواضيعة وردوده الرائعة

نرحب بالأخوة منتصر الأنسي و كمال النحال فى فريق الإشراف على الموقع أهلا وسهلا

تم نقل الموضوع للمنتدي المفتوح ========== الادارة ==========

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

جزاكم الله خيرا على مجهودكم عمل جدا رائع

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

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

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

و جزاكم و الأخوة جميعا كل الخير باذن الله تعالى

السلام عليكم شرح لكيفية اضافة عناصر الى فورم Private Sub UserForm_Initialize() Dim MyOptionButton As Control Dim MyTop As Integer, i As Integer ' اول توب للاضافة MyTop = 18 For i = 1 To 5 ' اضافة شيك بوكس بعدد السلسلة في المتغير ' i Set MyOptionButton = Me.Controls.Add("Forms.OptionButton.1") With MyOptionButton ' اين يوضع الشيك بوتن ' '.Move Left, Top, witdh, Height .Move 18, MyTop 'موقع التشييك باليمين .Alignment = 0 'اللون .BackColor = &HFFC0C0 'عرض الخط .Font.Bold = True 'ما يكتب عليه .Caption = "خبور " & i 'الكتابة من اليمين .TextAlign = fmTextAlignRight 'يشيك الشيك بوتن i=1 اذا كانت If i = 1 Then .Value = True End With 'يتغير الموقع بمقدار 30 MyTop = MyTop + 30 Next End Sub في المرفق مثالين لذلك مع الشرح داخل الكود تقبلوا تحياتي وشكري Add_Controls.rar