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

وختاماً شكرا من القلب واعماقهلجميع من حضروجميع من ساهم بنجاح هذا الموضوع وأخص بالشكر كل من: morestudy جلال الجمال_ابو أدهم توكل أبو حنف زيزو العجوز ياسر خليل أبو البراء عمار محمد حسن محمد حمدان إبراهيم ابوليله أبو حنــــين سليم حاصبيا مختار حسين محمود سعد عابد يجود الخيرون علينا بعلمهم ونحن بعلم الخيرين نجود ولا نقول وداعاً ولكن نقول إلى لقاء قريب بإذن الله

الإجابة في هذا الكود: 'طباعة الرمز قبل الحلقة في الخلية أ1 Cells(1, 1) = "*" For i = 2 To 7 'طباعة الرمز في أول عمود Cells(i, 1) = "*" For k = 2 To i - 1 Cells(i, k) = "-" Next k ' طباعة الرمز مائل Cells(i, k) = "*" Next i 'طباعة الرمز في الصف الأخير For j = 1 To 8 Cells(i, j) = "*" Next j نختم بهذا الملف التي يقوم بالتلوين الشطرنجي: المرفق: شطرنجي.rar

الفصل الأخير سأخصص هذا الفصل في القراءة التحليلية للكود، وخير من شرح هذا الموضوع صاحب هذا الموقع في دراسة تحليلية للغة php ، إلا أننا استفدنا منها في تحويلها إلى لغة vba. المثال الأول: ما هو الكود الذي يحقق النتيجة التالية: التحليل: الإجابة في هذا الكود: For i = 1 To 5 For j = 1 To i Cells(i, j) = j Next j Next i

الساده / أعضاء المنتدى المحترمين سلام الله عليكم جميعا ورحمته وبركاته قمت بعمل تجميع لعديد من البرامج الجاهزة وقد قمت بتجميعها من خلال البحث فى المنتدى فسامحونى إن كنت نسيت نموذج لأحد الأساتذه الأعضاء نتمنى من الله عز وجل أن ينتفع بها الجميع تلك البرامج و النماذج القيمه هى مجهود للساده الأعضاء بارك الله فيهم وزادهم الله من فضله وجزاهم رب العالمين عنا خير الجزاء وبرامج ونماذج قاموا بتنفيذها بناء على طلبات من الساده الأعضاء وتقبلوا منى وافر الإحترام والتقدير أخيكم فى الله محمود الشريف وإليكم النماذج برنامج متابعه حركة السيارات للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=49733#entry303008 برنامج مصاريف سيارات وأرصده للأستاذ / محمد مصطفى أبو حمزة http://www.officena.net/ib/index.php?showtopic=46058#entry273859 برنامج مراقبة خطابات الضمان للاستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=38044#entry209393 برنامج نظام حركة المستودعات ومتابعة المخزون للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=38870#entry213211 برنامج للعيادات الطبية للأستاذ / مدحت http://www.officena.net/ib/index.php?showtopic=32830#entry169369 برنامج السكرتير الخاص للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=42018#entry239414 برنامج للأقساط _ مجهود مشترك بين الأستاذ / حسام والأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=46619#entry279457 تعديل للبرنامج السابق للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=46619#entry279481 تعديل للبرنامج السابق للاستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=46619#entry279786 برنامج أقساط الإصدار الأول للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=29892#entry148900 برنامج أقساط الإصدار الثانى للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=29892#entry149116 برنامج أقساط الإصدار الثالث للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=29892#entry149553 برنامج أقساط الإصدار الرابع للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=29892#entry150361 برنامج متابعة الوثائق للأستاذ / الجزيرة http://www.officena.net/ib/index.php?showtopic=31712#entry161472 برنامج لقاعده بيانات عمل مشترك بين الأستاذ / قارى _ والأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=44485#entry259617 نموذج أقساط للأستاذ /سايق الخير http://www.officena.net/ib/index.php?showtopic=38538#entry210055 قام بالتعديل عليه الأستاذ / عبد الله المجرب http://www.officena.net/ib/index.php?showtopic=38538#entry210056 قام بالتعديل عليه الأستاذ / بن عليه حاجى http://www.officena.net/ib/index.php?showtopic=38538#entry210084 برنامج المخزون الإصدار الأول للأستاذ / عمرو http://www.officena.net/ib/index.php?showtopic=41247#entry233101 برنامج المخزون الإصدار الثانى للأستاذ / عمرو http://www.officena.net/ib/index.php?showtopic=43332#entry250295 برنامج المخزون الإصدار الثالث للأستاذ / عمرو 2010 http://www.officena.net/ib/index.php?showtopic=46059#entry273864 برنامج المخزون الإصدار الثالث للأستاذ / عمرو 2007 : 2010 http://www.officena.net/ib/index.php?showtopic=46059#entry273864 برنامج مرتبات للقطاع الخاص للأستاذ / سعيد بيرم http://www.officena.net/ib/index.php?showtopic=41465#entry240172 برنامج الصادر والوارد _ الإتصالات الإدارية للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=46813#entry281283 برنامج الإتصالات الإدارية الإصدار الأول للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=37265#entry199078 برنامج الإتصالات الإدارية الإصدار الثانى للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=37265#entry199224 برنامج الإتصالات الإدارية الإصدار الأخير للاستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=37265#entry199421 برنامج للتعامل مع طلبات الشراء والموردين للأستاذ / أبو عبد الله http://www.officena.net/ib/index.php?showtopic=30844#entry155312 برنامج حجز الغرف الفندقية عمل مشترك بين الأستاذ / هانى بدر والأستاذ / أبو عبد الله http://www.officena.net/ib/index.php?showtopic=39568&page=2#entry224762 برنامج حسابات المطاعم للأستاذ هانى بدر http://www.officena.net/ib/index.php?showtopic=32220&page=2#entry189567 برنامج دليل الهاتف الإصدار الثانى للأستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=27222#entry131055 برنامج فواتير منوع للأستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=26948#entry129215 برنامج حافظة شخصية دليل الهواتف للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=26211#entry124665 برنامج التقويم ( التاريخ ) للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=26155#entry124252 فاتورة للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=24322#entry113573 برنامج الفواتير كامل للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=24191#entry112811 برنامج سندات القبض والصرف للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=24191#entry112811 برنامج خبور المحاسبى برنامج كامل للأستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=17944#entry80465 برنامج خبور المحاسبى الإصدار الثالث للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=16879#entry74858 برنامج خبور الإصدار الثانى للأستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=16256#entry71834 برنامج خبور المحاسبى الإصدار الأول للأستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=15933#entry69998 برنامج حسابات للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=14978#entry65693 برنامج حسابات للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=14880#entry65142 برنامج حسابات للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=14619#entry63693 برنامج شراكة العقارات للاستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=49900#entry304640 برنامج الشيكات للاستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=50143#entry306916 برنامج كشوف حسابات ( منه له ) للاستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=50819#entry312828 معظم برامج شئون العاملين وما يتعلق بها لعديد من الأساتذة رابط تجميعى لـ محمود الشريف http://www.officena.net/ib/index.php?showtopic=51271&hl= نسخة تجريبية لنموذج شيك لـ محمود الشريف http://www.officena.net/ib/index.php?showtopic=51306#entry317305 برنامج لمتابعة أسعار الصرف ( العملات ) لـ محمود الشريف http://www.officena.net/ib/index.php?showtopic=51109#entry315286 برنامج متابعة حركة السيارات قابل للتعديل وبه امكانية متابعة الوثائق لـ / محمود الشريف http://www.officena.net/ib/index.php?showtopic=51386#entry318102 برامج ونماذج التنبيه لعديد من الأساتذة رابط تجميعى لـ محمود الشريف http://www.officena.net/ib/index.php?showtopic=51261&hl= برنامج دليل الهاتف المتطور للأستاذ / أحمد حمور http://www.officena.net/ib/index.php?showtopic=33881#entry176806 برنامج دليل الهاتف العصرى للأستاذ / أحمد حمور http://www.officena.net/ib/index.php?showtopic=34679&page=2#entry182322 برنامج دليل الهاتف على طريقة سامسونج للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=46463#entry277636 برنامج خاص لمحاسبة وجرد وصيانه الهواتف للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=48351#entry292775 برنامج تسيير الأشخاص للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=48251#entry292035 برنامج تسيير شركات النقل للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=47818#entry289335 برنامج تسيير شئون الموظفين للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=46153#entry274883 برنامج تتبع للمضيفين والآليات للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=45902#entry272143 برنامج الموردين للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=45883#entry271941 برنامج ادارة الإيجارات الإصدار الأول للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=50382#entry309122 برنامج إدارة الخدمات المصرفية للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=51110#entry315312 برنامج إدارة الإشتراكات الشهرية للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=49929#entry304870 برنامج مستحقات نهاية الخدمة للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=47291#entry284873 برنامج سند صرف مع بيان الدفعات للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=49296#entry299662 برنامج كشف حساب للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=48492#entry293528 برنامج استمارة العائلة الإلكترونى للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=47555#entry287386 برامج الكنترول والمدارس لعديد من الأساتذة رابط تجميعى لـ محمود الشريف http://www.officena.net/ib/index.php?showtopic=51265&hl=

صدر بحمد لله كتاب (مشروعي) و هو كتاب متكامل باللغة العربية في إدارة المشاريع والاعداد لشهادة PMP. الكتاب من تأليف كلٍ من: د/عمرو مسلم و م/ محمد طاهر عرفه ويقع في أكثر من 800 صفحة تغطي المجالات المعرفية الأساسية لإدارة المشروع ،كما يمثل الكتاب مرجع عربي متكامل لمن يرغب في الاستعداد لشهادة مدير المشروع المحترف PMP. اعتمد الكاتبان بالأساس على تبسيط الإصدار الخامس من الدليل المعرفي لإدارة المشروعات ليس من خلال الاختصار ولكن عن طريق الشرح والتوضيح وإضافة أمثلة وتلميحات ورسومات توضيحية وخرائط ذهنية ومعلومات يحتاجها كل مدير مشروع مع الكثير من التمارين المتنوعة في أسلوبها وذلك لضمان استيعاب القارئ لما جاء في كل فصل من معلومات. ويحوي الكتاب خاصية فريدة لتوضيح أين سيتم استخدام أهم مخرجات كل عملية كمدخلات للعمليات الأخرى، مما يؤدي لمساعدة القاريء على الربط المتميز بين كافة العمليات و المجالات المعرفية الواردة في الكتاب. بالإضافة الى ذلك، يحوي الكتاب ما يقارب 500 سؤال تدريبي للاستعداد لاختبار شهادة مدير المشروع المحترف PMP بالإضافة الى 60 نموذج من أهم النماذج المستخدمة في إدارة المشاريع ، فضلا عن تطبيق عملي لاستخدام أهم النماذج ضمن فصول الكتاب، وأخيرا قائمة بأهم المصطلحات المستخدمة في إدارة المشاريع وترجمتها. أخيراً، فإن الكتاب مُوَجه لكل من يفتقد مادة علمية متكاملة في إدارة المشاريع باللغة العربية والتي قد تمثل عاملاً مهماً لتخطي حاجز اللغة الانجليزية والتي جاءت بها معظم الكتب والمراجع في هذا المجال. لمعلومات التوزيع و التواصل ووصلة الكتاب على موقع أمازون إضغط هنا

سليم حاصبيا و الزباري الاخوه الافاضل مشاركه محترمه كنا نفتقدها منذ فتره طويله تحياتى

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

بقي هذا الكود للاختيار Sub sheck() Range("a1:H8").Interior.ColorIndex = xlNone For i = 1 To 8 k = i Mod 2 For j = 1 To 8 m = j Mod 2 If k = m Then Cells(i, j).Interior.Color = 255 Next Next End Sub

ربما هذا الكود يقوم بالمطلوب Sub sheck() Range("a1:H8").Interior.ColorIndex = xlNone For i = 1 To 8 k = i Mod 2 For j = 1 To 8 m = j Mod 2 If k = m Then Cells(i, j).Interior.Color = 255 Next Next End Sub

يمكنك استعمال هذا الماكرو لتحديد الاوراق المطلوبة (داخل الـــ Array) ملاحظة:يجب ادراج الاسماء الحقيقية للصفحات مثلاً لو ان اسم الصفحة Salim يجب كتابة "Salim" Sub copy_sheet() Dim arr() arr = Array("Sheet1", "Sheet2", "Sheet4", "Sheet5", "Sheet6", "Sheet8") For i = LBound(arr) To UBound(arr) 'Sheets(arr(i)).copy 'or Sheets(arr(i)).select etc..اكتب الكود هنا Next End Sub

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

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

هذه من الطرق التحايلية.. فقد بدأت برسم مربع نجوم، ومن ثم رسمت فوقه مثلث خطوط، أهنيك على الفكرة. جرب هذا الكود: For i = 1 To 5 For k = 1 To 5 - i Cells(k, i) = "-" Next k For j = 1 To 6 - i Cells(6 - i, 6 - j) = "*" Next j Next i وهذا كود بالمقلوب: For i = 1 To 5 For k = 1 To i - 1 Cells(k, i) = "-" Next k For j = 1 To i Cells(i, j) = "*" Next j Next i السؤال التالي: ماهو الكود الذي يحقق النتيجة التالية:

حتى تكتمل الفائدة وتعم على كل اخوانى واحبائى مواعيد الحضور والانصراف متغيرة وهى كالاتى فى الايام من الاحد الى الخميس موعد الحضور النهائى 8:15 صباحا بدء موعد الانصراف 2:00 ظهرا وبدء انصراف المستمرين بالعمل 4:30 عصرا وفى ايام العطلات الرسمية والاسبوعية الحضور من الساعة 9:00 صباحا وبدء موعد الانصراف 2:00 ظهرا وفى رمضان الحضور من الساعة 8:00 وحتى بدء موعد الانصراف من الساعة 1:00 ناهيكم عن اختلاف المواعيد التى قد يتم استدعاء الاشخاص للعمل فيها من بعد الانصراف وليس لها اى مقاييس فى الحضور والانصراف طبعا كثرت التقارير نظرا لاختلاف الاوقات وكنت افكر فى عدم وقوع الشخص فى اى خطأء بالضغط على زر غير الزر المحدد لطباعة التقرير طبقا للوقت والزمان واليكم النتيجة التى توصلت اليها بفضل الله تعالى ثم استاذى الجليل ومعلمى القدير رمهان للعلم وهام جدا انا جعلت التاريخ يتم التلاعب فيه يدويا ولكى ترى الحدث الصحيح المناسب للتاريخ يجب اغلاق النموذج وفته وذلك للتجربة فقط عند ربط البرنامج بتاريخ اليوم تلقائيا سنغير هذا المعيار [Forms]![frm_prinr0]![day_date] الى Date() داخل الكود الاتى Private Sub Form_Open(Cancel As Integer) On Error Resume Next Me.Requery If day_name = "الجمعه" Or day_name = "السبت" Or IsDate(DLookup("HolidayDate", "tbl_Holidays", "HolidayDate=[Forms]![frm_prinr]![day_date]")) Then cmd_b.Enabled = True ElseIf rmdan = "رمضان" Then cmd_c.Enabled = True Else cmd_a.Enabled = True End If End Sub فيصبح الكود Private Sub Form_Open(Cancel As Integer) On Error Resume Next Me.Requery If day_name = "الجمعه" Or day_name = "السبت" Or IsDate(DLookup("HolidayDate", "tbl_Holidays", "HolidayDate=date()")) Then cmd_b.Enabled = True ElseIf rmdan = "رمضان" Then cmd_c.Enabled = True Else cmd_a.Enabled = True End If End Sub وكذلك فى حدث عند الحالى لا ننسى أن نقوم بتغيير هذا السطر من الكود TxtTDateHijri = day_date Private Sub Form_Current() On Error Resume Next Calendar = vbCalHijri TxtTDateHijri = day_date rmdan = Format(TxtTDateHijri, "mmmm") TxtTDateHijri = Format(TxtTDateHijri, "DD/MMMM/YYYY") & "هـ" Calendar = vbCalGreg If Not IsNull(HolidayType) Then HolidayType.Visible = True Else End If If rmdan = "رمضان" Then rmdan.Visible = True Else End If End Sub الى TxtTDateHijri = date() اعتذر على الاطالة ولكن هذه الفكرة ان شاء الله ستقلل الاخطاء البشرية فى اثناء معالجة البيانات وطباعتها ان لمن تكن ستنهى على الاخطاء نهائيا كل الشكر والتقدير والعرفان بالامتنان لكل اساتذتى الكرام فى هذا الصرح الشامخ اسال الله تعالى ان يغفر لكم ولابائكم ولابنائكم ولكل زويكم واهلكم وكل من تحبون ان شاء الله اسال الله تعالى ان يرزقكم البركة فى العمر والعلم والعمل وان يجعل كل اعمالكم خالصة لوجهه الكريم فتكون حجة لكم اسال الله تعالى لكم مرافقة الانبياء فى الجنة ان شاء الله اسال الله تعالى ان لا يحرمكم لذة النظر الى وجهه الكريم وان يرزقكم شربة من يد حبيبنا وسيدنا محمد صلى الله عله وسلم امين امين امين print attendance☺.rar

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

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

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

عسى ان ينال الاعجاب Allah_Akbar.rar

كنت ناوي أغيرها، انظر الآن سؤالنا: ما هو الكود الذي يحقق النتيجة التالية: انظر إلى السؤال السابق فوق الكود Sub chang_Symboles() Range("a1:e5") = "*" For i = 1 To 5 For j = i + 1 To 5 Cells(i, j) = "-" Next Next End Sub

واختصاراً للوقت هذا مرفق لأمثلة أخرى : loops example.rar وترقبوا سؤالنا التالي.

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

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

السلام عليكم توجد خاصية فى إكسل 2007 فى التحقق من صحة البيانات هذه الخاصية تسمح بإحاطة القيم التى لا يتوفر فيها الشرط بدوائر حمراء و خاصية أخرى لمسح هذه الدوائر الآن يمكن أن يكون هذا الكود سطرا واحدا لإضافة الدوائر وسطرا آخر لإزالتها العيب الوحيد هو أن وضع الدوائرأو إزالتها يكون لكل الشيت وليس لمجال محدد سطر وضع الدوائر ActiveSheet.CircleInvalid و تعليمة مسح الدوائر ActiveSheet.ClearCircles ما أجمل الاختصار و توفير الوقت و الجهد الملف المرفق دوائر حمراء.rar

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

مشكورررررررررررررررررر