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

هذا هو المتبع غالبا ولكن لاحظ اننا لا نتعامل مع الاستعلامات مباشرة داخل البرنامج School2.rar

بسم الله والصلاة والسلام على رسول الله اللهم علمنا ما ينفعنا ،،، وانفعنا بما علمتنا ،،، ووفقنا للعلم النافع ،، ولما تحبه وترضاه عنا ،،، وبعد ،،،، فالسلام عليكم أخواني الأعزاء ،،، والله يعلم أنني مشتاق لكم ،،،، فعلى بركة الله نفتتح بهذه المشاركة المتواضعة والمباركة بحول الله وقوته الا وهي : معالم على طريق البرمجة بلغة VBA الفكرة : - سنقوم بتدوين بعض الأكواد البسيطة التي تنير لنا جميعاً الطريق للبرمجة بلغة الـ VBA : ============================================================== و أتمنى من الجميع أن يشاركوني هذا العمل حتى تكتمل الفائدة للجميع ============================================================== بسم الله نبدأ : اكواد تخص كائن التطبيق : كود: Sub zezo() Application.Caption = "ziad ali" End Sub يقوم الكود بتوظيف الخاصية Caption على كائن التطبيق أي أن هذه الخاصية تقوم بتغيير الاسم العام للبرنامج فبدلا من كلمة مايكرسوفت سيظهر ziad ali ... كود: Sub zezo2() Application.DisplayFormulaBar = False End Sub تقوم هذه الخاصية DisplayFormulaBar بإخفاء شريط الصيغ عند استخدام False ،، وبالمقابل إظهاره عند استخدام …TRUE كود: Sub zezo3() Application.DisplayFullScreen = True End Sub تقوم هذه الخاصية DisplayFullScreen بجعل التطبيق في وضع ملء الشاشة وللرجوع طبعاً يجب ان نجعل القيمة False .. كود: Sub zezo4() Application.DisplayRecentFiles = False End Sub تقوم هذه الخاصية DisplayRecentFiles بعدم عرض المستندات الأخيرة في كائن تطبيق اكسيل وإذا أردنا إستعراضها طبعاً نجعلها تاخد القيمة TRUE .كالتالي : كود: Sub zezo5() Application.DisplayRecentFiles = True End Sub تقوم هذه الخاصية WindowState بتحديد حالة كائن التطبيق من حيث التكبير والتصغير والوضع الطبيعي كود: Sub zezo6() Application.WindowState = xlMaximized End Sub كود: Sub zezo7() Application.WindowState = xlMinimized End Sub كود: Sub zezo8() Application.WindowState = xlNormal End Sub ================================================================================================= اكواد تخص كائن ورقة العمل: كود: Sub zezo9() Worksheets("sheet1").Visible = False End Sub يقوم الكود بإخفاء ورقة العمل المسماه sheet1 كود: Sub ZEZO10() Worksheets("sheet1").Visible = True End Sub يقوم الكود بإظهار ورقة العمل المسماه sheet1 كود: Sub zezo11() Worksheets(1).Name = "sheet1" End Sub يقوم الكود بإعادة تسمية الورقة 1 في ترتيب اكسيل بـ sheet1 كود: Sub zezo12() Worksheets("sheet1").Delete End Sub يقوم الكود بحذف الورقة المسماه sheet1 كود: Sub zezo13() Worksheets(1).Activate End Sub يقوم الكود بتنشيط الورقة المسماه sheet1 كود: Sub zezo14() Worksheets.Add End Sub يقوم الكود بإضافة ورقة جديدة كود: Sub zezo15() Worksheets(3).Copy End Sub يقوم الكود بنسخ الورقة الثالثة ضمن ترتيب ورقات المصنف ... =============================================================================================== والأن مع الأكواد الشائعة للإشارة لهذا الكائن المسمى RANGE : الكائن من نوع النطاق أو ما يسمى بالمدى أو المجال وهو الأكثر شيوعاً ، أي أن أغلب الأكواد تشير بكثرة لهذا النوع من الكائنات ،،،: كود: Sub zezo16() Range("d2:i10").Select End Sub يقوم الكود بتحديد المجال المشار إليه بين القوسين كود: Sub zezo17() Range("d2:i10").Columns(2).Select End Sub يقوم الكود بتحديد العمود الثاني بالمجال المشار إليه بين قوسين كود: Sub zezo18() Range("b10:f15").Columns(2).Value = 0 End Sub يقوم الكود بكتابة قيمة صفر في العمود الثاني من المجال المحدد بين القوسين كود: Sub zezo19() Range("c5:c10").Rows(1).Value = 100 End Sub يقوم الكود بكتابة قيمة 100 في الصف الأول من المجال المحدد بين القوسين وهو هنا الخلية C5 كود: Sub zezo20() Range("d2:i10").Cells(2, 3).Select End Sub يقوم الكود بتحديد الخلية الواقعة في الصف الثاني من العمود الثالث داخل المجال المحدد بين القوسين وهي هنا الخلية F3 كود: Sub zezo21() Range("f10:i15").Cells(3, 2).Value = 200 End Sub يقوم الكود بكتابة قيمة 200 بالخلية الواقعة في الصف الثالث من العمود الثاني داخل المجال المحدد بين القوسين وهي هنا الخلية G12 كود: Sub zezo22() Worksheets(3).Range("f1:h5").Value = 100 End Sub يقوم الكود بكتابة قيمة 100 في المجال المحدد من الورقة الثالثة من أوراق المصنف كود: Sub zezo23() Range("d2:i10").Clear End Sub يقوم الكود بمسح محتويات المجال المشار إليه بين قوسين والله من وراء القصد ============================ يتبع بإذن الله=======================

السلام عليكم تفضل فى المرفقات هل هذا المطلوب جلب بيانات من الشيت للفورم.rar

المطلوب عند تشغيل اليوزر فورم يظهر التاريخ بtextbox بشكل تلقائي ولكم جزيل الشكر اظهار التاريخ بشكل تلقائي في userform.rar

وعليكم السلام بصفة عامة : علامة التعجب ( ! ) ما بعدها يعتبر جزء أو عضو في المجموعة التي قبله اما النقطة ( . ) فما بعدها هو خاصية أو أسلوب من سابقه واحيانا نجد هذا التعريف غير منضبط حين يكون التعامل داخل محرر النموذج وهل تتحول المجموعة الى خصائص ؟ ام ان هذا خاص بـ اكسس فحين نريد ان نشير الى حقل خارج النموذج محل العمل نستخدم هذه الصيغة forms!frm1!text1 ولكن حينما نشير الى حقل ونحن داخل النموذج نستخدم me.text1 حيث me تعني النموذج الحالي علما انه يمكننا الاكتفاء باسم الحقل فقط للاشارة اليه ما دمنا داخل النموذج

الاستاذ الفاضل // جماااااال جزاك الله خيراً على كلماتك ووفقنا الله واياك لما فيه خير للعباد والبلاد.. الاستاذ // اسامة عطاالله جزاك الله خيراً وتفضل الملف به ما شرحته لك. 1 ) قم بفتح ورقة ( بيانات الطلاب ) وانظر الى العمود الذي قمت بعمله ( R ) ولعلك ستفهم ماذا اقصد. 2 ) قم بفتح ورقة ( الشيت ) وانظر الى الطالب في مادة اللغة العربية ولعلك ستفهم ماذا قصدت.. وفي انتظار اي استفسار.. شيت النقل للتعليم الفني_الاصدار الخامس__braa-1.rar

NZ([text1])+NZ([text2])+NZ([text3])+NZ([text4])+NZ([text5])>>>>> الخ الدالة NZ ترجع القيمة الخالية صفرا

السلام عليكم ورحمة الله وبركاته اولا : احب ان اشكر عمالقة المنتدى وعبقريها الاستاذ الحبيب العبقري ملك المعادلات // جمال عبد السميع والاستاذ الفاضل الكبير // بن علية حاجي ثانياً : ولاثراء الموضوع وللتعلم طالما انا وسط العمالقة هذه طريقة لحساب النسبة المركبة للمكسب =A2*(1+C2)^B2 حيث a2 = راس المال الاصلي ( المبلغ الذي سنبدا به ) b2 = عدد الايام التي ستمر على راس المال c2 = النسبة المئوية للمكسب ارجوا التقييم من اساتذتي الكرام .. وفقنا الله واياهم لما فيه خير.. حساب نسبة المكسب المركب لعدد من الايام_1.rar

الأخ الفاضل / مجاهد القوصي تحيه طيبه عمل اكثر من رائع و لكن اسمح لي ببعض الاستفسارات 1 - ما معنى الثالثة ح في الدرجة 2 - ارجو اعادة النظر في البدل النقدي فهناك بعض القروش القليلة ومرفق نسخة من البدل النقدي و هناك ملحوظة بسيطة هناك بعض المعلمين الذين تم تعيينهم من العشرة الأوائل و لم يجتازو الكادر أو بعض العائدين من اجازات طويلة و لم يجتازوا الكادر بعد فهناك اختلافات في طريقة تعاملهم المالي عن غيرهم و إن كانت بسيطة الا و هي 1 - انهم لا يتقاضون حافز أداء 2 - لا يتقاضون بدل اعتماد و يتقاضون بدل معلم فقط 3 - يتقاضون حافز بنسبة 42 % تحت مسمي حافز 42 % بجانب حافز 25 % 4 - لا يتقاضون حافز الاعباء الاضافية و لكن يتقاضون علاوة الحد الأدنى بقيمة 340 جنية باعتبارهم معينيين بالقانون 47 لسنة 78 و لم ينتقلوا للقانون 155 لسنة 2007 و سوف يعاملون بالقانون 155 بعد اجتيازهم الكادر اشكرك على سعة صدرك النقدى.rar

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

لا يمكن لان الترقيم اوتوماتيكي ..... الا اذا ادرجت فاصل مقطع من نوع الصفحة التالية بعد الصفحة 11 ثم اجبرت الوورد على بدء الترقيم بعد هذا الفاصل من الرقم 14 والسلام عليكم

هناك خطأ ما حيث لابد من قسمة "3%/365 " ليعطى معدل يومى ".0082% أى هذا المعدل هو إللى لابد من ضربة فى المبلغ وعدد الأيام المعادلة تخضع لقانون الفائدة المركبة وقانونها جـ = أ ( 1 + ع)ن إجمالي المبلغ في نهاية المدة = أصل المبلغ في عام × (الفائدة + 1) ^ مدة القرض لذلك فالمعادلة النهائية =100,000 x1.03 ^30 , ( or 60) تقبلوا تحياتى

السلام عليكم ورحمة الله أخي الكريم زمزم، يمكنك تطبيق المعادلة التالية : المبلغ النهائي = المبلغ الأصلي * (1.03)^عدد الأيام العلامة ^ تعني علامة "الأس" مثال : المبلغ : 100000 ، عدد الأيام : 15 يوم المعادلة : 100000 * (1.03)^15 تعطي حوالي : 155796,74 أرجو أني وفقت في حل المعضلة أخوك بن علية

أستخدم هذه المعادلة ستحقق ماتريد =100000*(1+(0.03*30)) أو هذه 100,000 x1.03 ^30 ; ( or 60) تقبل تحياتى

السلام عليكم ورحمة الله أخي الكريم، هذه محاولة في الملف المرفق بعد تعديل في الكود... أرجو أن يكون المطلوب... الكلمة السرية للحماية أو فكها هي : 123 (التي يمكن تغييرها في الكود - بعد إزالتها -) أخوك بن علية ترحيل1.rar

السلام عليكم هل تعلم انه بامكانك اضافة لست الى ListBox بهذا السطر Me.ListBox1.List = Range("i1").Resize(10, 2).Value واخراج بيانات اللست الى خلايا Range("c1").Resize(10, 2) = Me.ListBox1.List

السلام عليكم أخي زياد أنا علي سبيل المثال عندي مجموعة أكواد صغيرة وأعتقد أن كثير من الإخوة اعضاء المنتدي لهم أكواد صغيرة خاصة بهم تم تفصيلها لتناسب حاجاتهم وطبيعة عملهم قد يكون الكود غاية في الصغر ولكنه مفيد وعلي هذا المنوال أخصص لكل من هذه الأكواد shortcut key فهذا ctrl-k وذاك ctrl-j طبعا غير الكابيتال ctrl-K; ctrl-J أضعها كلها في ملف Personal يتم فتحه أوتوماتيكيا مع الإكسل المهم أود المساهمة بكود يمكن إستخدامه كثيرا لمن يستعمل اللغة الإنجليزية يحول حالة الأحرف داخل المجال الذي تم إختياره إلي حالة عنوان (أي كابيتال لأول حرف من كل كلمة) المعروف أن الدالة Proper في الإكسل تقوم بنفس الوظيفة ولكن إذا كانت البيانات المطلوب تحويلها في أماكن غير منظمة فهذا الكود يكون أسرع واكثر إستخداما فإذا خصصت له مثلا ctrl-j ثم تظلل المجال وتضغط ctrl-j عذرا للإطالة وهذا هو الكود Sub Adj_Proper() For Each se In Selection se.Value = WorksheetFunction.Proper(se) Next End Sub

والأن عودٌ على بدء : نستكمل الحديث عن الأكواد البسيطة التي ستنير لنا طريقاً نلتمسه في عالم البرمجة بلغة vba بحول الله وقوته و لا يزال الحديث مستمراً عن الكائن من نوع RANGE ملاحظة : ممكن الاستغناء فيما يلي من الأكواد عن عبارة : Worksheets(3). وذلك بذكر المجال مباشرة ،،،، ======================================================================= Sub zezo24() Worksheets(3).Range("a1:c10").Font.Bold = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف قم بأختيار خاصية bold تغليظ الخط Sub zezo25() Worksheets(3).Range("a1:c10").Font.Italic = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف قم باختيار خاصية Italic إمالة الخط Sub zezo26() Worksheets(3).Range("a1:c10").Font.Underline = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف قم باختيار خاصية Underline وضع خط تحت البيانات Sub zezo27() Worksheets(3).Range("a1:c10").Font.Name = " Arabic Typesetting" End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف قم باختيار نوع الخط Arabic Typesetting Sub zezo28() Worksheets(3).Range("a1:c10").Font.Size = 18 End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف قم باختيار حجم الخط 18 Sub zezo29() Worksheets(3).Range("a1:c10").Columns(1).Font.Size = 18 End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف بالعمود الأول فقط قم باختيار حجم الخط 18 Sub zezo30() Worksheets(3).Range("a1:c10").Rows.Font.Bold = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف لجميع صفوف المجال قم باختيار خاصية bold تغليظ الخط Sub zezo31() Worksheets(3).Range("a1:c10").Rows(3).Font.Bold = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف بالصف الثالث فقط قم باختيار خاصية bold تغليظ الخط Sub zezo32() Range("f20:i25").Cells.Font.Italic = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف بجميع الخلايا قم باختيار خاصية Italic إمالة الخط Sub zezo33() ActiveCell.Formula = "=C1+D2" End Sub عند الخلية الحالية النشطة اكتب المعادلة المذكورة ============================================================================== أتمنى من الجميع إثراء المشاركة بوضع الأكواد التي تعلموها مع شرح بسيط للكود ،،، ============================================================================== وفقنا الله واياكم لما يحب ويرضاه مودتي للجميع ===========================يتبع ان شاء الله====================================