الزباري
-
Posts
462 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
11
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو الزباري
-
الفورم الثاني: لا تنس بأن تنشئ مجلد اسمه test داخل المسار c وضع الصور التالية بداخله: المرفق: http://www.excel-easy.com/vba/examples/excel-files/userform-with-multiple-pages.xls
-
السلام عليكم ورحمة الله وبركاته.. من خلا ل اطلاعي على بعض المواقع المتخصصة في الإكسيل ، وجدت هذه النماذج وأحببت أن أنقلها كما هي وإدراجها في هذا المنتدى علها أن تكون مصدر لاستلهام الأفكار في تصميم البرامج الخاصة في الإكسيل. الفورم الأول: المرفق1: http://www.excel-easy.com/vba/examples/excel-files/controls-collection.xls
-
جزاك الله خيراً
-
صباح الخير جميعاً.. بارك الله فيك أخي ياسر على ملاحظة الطباعة.. في الحقيقة جربت أن أطبعها فلم تظهر في الطباعة.. وجاري البحث عن الحل، وأتمنى من أخي سليم أن يوافينا بالجديد. وتقبلوا تحياتي
-
لو كتبت كلمة غائب في المثال الثاني فسيقوم البرنامج باختيارها مع الدرجات، لأن الفكرة تكمن بتحديد أي رقم أو كلمة خارج المدى المحدد.. جرب نعم تظهر
-
يمكن تطبيقه بشرط التعامل مع الدرجات، بحيث تكون المعادلة كالتالي: المرفق: دوائر04.rar
-
جزالك الله خيراً كل الجزاء.. بصراحة معلوماتي في البرمجة متوسطة نوعاً ما، وفي أمور عامة مطروحة في هذا المنتدى، فقد تعلمتها من متابعتي لهذا المنتدى الرائع، إلا أنني قد رتبت بعض الأفكار ووسعت مداركي بها من خلال البحث والقراءة، ولا زلت أجهل الكثير منها، ولازلنا نتعلم منكم، وأي موضوع أراه مهم بالنسبة لي أقم بتدوينه في هذا المنتدى ليكون مرجعاً لي ولكم.. وهذا لا يمنع يأن نتعاون معكم لترتيب فكرة معينة تكون بمثابة توسيع مدارك الأعضاء للبرمجة. وتقبل تحياتي لا يوجد فرق سوى مكان data validation كالتالي: من هنا شاكرين لك مرورك أستيكا
-
المثال الثالت: سنتعامل مع هذا الجدول لعمل دوائر على كلمة "راسب": الإجابة كالتالي : اختر الدرجات وطبق الآتي المرفق: دوائر03.rar
-
تسلم يا أخي ابراهيم
-
المثال الثاني: سنتعامل مع هذا الجدول لعمل دوائر على درجة الرسوب: الإجابة كالتالي : اختر الدرجات وطبق الآتي المرفق: دوائر02.rar
-
جلال الجمال_ابو أدهم سررت بتواجدك تحياتي
-
يشرفنا مرورك أ. خالد الشاعر
-
الخطوات كالتالي: 1- نطبق data validation على خلية الدرجة لا تنس إزالة علامة الصح نطبق ما ذكرناه على جميع خلايا درجة الطالب 2- نضيف زر لعمل الدوائر ونربطه بالكود التالي: ActiveSheet.CircleInvalid 3- نضيف زر لمسح الدوائر ونربطه بالكود التالي: ActiveSheet.ClearCircles وتهانينا.. المرفق: دوائر01.rar
-
المثال الأول: سنتعامل مع هذا الجدول لعمل دوائر على درجة الرسوب
-
السلام عليكم ورحمة الله وبركاته رغم أن الموضوع مكرر.. إلا أني أحببت بأن أطرحه في صفحة نظيفة خالية من المعادلات والكودات المعقدة.. وطرق عرضها بشكل مختلف. تابعونا..
-
وختاماً شكرا من القلب واعماقهلجميع من حضروجميع من ساهم بنجاح هذا الموضوع وأخص بالشكر كل من: 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
-
الأستاذ مجدى يونس المحترم بورك لك في عملك وفي ميزان حسناتك إن شاء الله يا حبذا أن تكتب المعادلة بتنسيق الكود، وخطواتها كالتالي: أولاً:تختر الرمز <> من الأعلى. ثانياً: تكتب المعادلة وتغير القائمة إلى العبارة الموجودة على اللون الأصفر. ومن ثم أضف للمشاركة وستكون النتيجة كالتالي: =vlookup(g4,a1:d10,2,0) وتقبل تحياتي القلبية
-
هذه من الطرق التحايلية.. فقد بدأت برسم مربع نجوم، ومن ثم رسمت فوقه مثلث خطوط، أهنيك على الفكرة. جرب هذا الكود: 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 السؤال التالي: ماهو الكود الذي يحقق النتيجة التالية:
-
كنت ناوي أغيرها، انظر الآن سؤالنا: ما هو الكود الذي يحقق النتيجة التالية: انظر إلى السؤال السابق فوق الكود 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 وترقبوا سؤالنا التالي.
-
الفصل الأخير سأخصص هذا الفصل في القراءة التحليلية للكود، وخير من شرح هذا الموضوع صاحب هذا الموقع في دراسة تحليلية للغة php ، إلا أننا استفدنا منها في تحويلها إلى لغة vba. المثال الأول: ما هو الكود الذي يحقق النتيجة التالية: التحليل: الإجابة في هذا الكود: For i = 1 To 5 For j = 1 To i Cells(i, j) = j Next j Next i
-
كلامك صحيح أستاذي
-
منور تواجدك يا أ.سعد عابد شاكرين لك أ.سليم حاصبيا، وبصراحة you are lovely vba ولتحقيق مزيد من الديناميكية إليك هذا الكود: Dim i As Date Dim j As Date Range("a1").Select ActiveCell.Offset(1, 0).Select Do Until ActiveCell.Value = "" i = ActiveCell.Offset(0, 0).Value j = ActiveCell.Offset(1, 0).Value If Month(i) = Month(j) - 1 Then Range(ActiveCell, ActiveCell.End(xlToRight)).Borders(xlEdgeBottom).Weight = xlThin End If ActiveCell.Offset(1, 0).Select Loop ActiveCell.Offset(-1, 0).Select Range(ActiveCell, ActiveCell.End(xlToRight)).Borders(xlEdgeBottom).Weight = xlThin ActiveCell.Offset(1, 0).Select المرفق: line end month loop.rar إلى هنا ينتهي الفصل قبل الأخير، ونراكم في الفصل الأخير غداً بإذن الله تعالى
