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

السيد ياسر خليل هو من عرفني بهدا المنتدى و طلب منى الانضمام اليه ... أعرفه من خلال منتدى Excel4us ... انه انسان نشيط و متحمس جدا يحب الاكسيل و ال VBA و شغوف بالتعلم ... كما أنه شخص مرح و عنده روح دعابة ادعو له بالشفاء العاجل ان شاء الله

تواصلت مع الاخ الحبيب ياسر خليل وعلمت انه مريض شويه وهذا سبب غيابه نسالكم الدعاء له بالشفاء

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

السّلام عليكم و رحمة الله و بركاته ألف شكر أستاذنا الكريم " حسام عيسى " على الالتفاتة المحمودة و السؤال عن الأستاذ الغالى ياسر خليل أبو البراء .. نسأل الله رب العرش العظيم أن يشفي أستاذنا العزيز ياسر خليل أبو البراء .. وأن يمتعه ويمن عليه بالصحة والعافية اللّهم اشفه شفاء عاجلاً شفاء لا يغادر سقماً ولا نصباً طهور إن شاء الله

الله نسألك يا ذو الجلال والإكرام ان تشافي اخونا ياسر ، اللهم ارفع عنه البأس ، اللهم صل على محمد وعلى آله وصحبه وسلم تسليما

اللهم اشفه وعافه ! وماتشوف شر ان شاء الله الاستاذ ياسر خليل !

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

أخي الصقر السلام عليكم ورحمة الله وبركاته: قبل قليل كنت تساءلت في مشاركة لي عن أخي وحبيبي في الله أبو البراء كتبت فيها: بسم الله الرحمن الرحيم..السلام عليكم ورحمة الله وبركاته منذ مدة أفتقد مشاركات شخص عزيز وغالي كان يؤجج المنتدى بفعالية صاخبة ...لا تجد ملفاً أو مشاركة إلا وله بها باع طويل... وفي الليلة الظلماء يفتقد البدر....هل علمتم من أقصد ؟؟!. إنه الأخ الحبيب والولد النجيب ياسر خليل أبو البراء...أعزك الله في كل الموجودين الخير والبركة .أما حين تغيب يصبح لون المنتدى باهتاً عندما يغيب منه القلم الأحمر النشط عسى المانع خيراً... نرجو الله أن تكون بيننا عما قريب...وقد لاحظت أخي الحبيب بفضل الله المنتدى ازدادت فعالياته وهمة ونشاط الزملاء الأعضاء فيه راجياً لكم جميعاً التوفيق والسداد. والسلام عليكم ورحمة الله وبركاته. وبعد أن علمت بمرضه من خلال مشاركتك أخي الصقر فإنني أرجو له الشفاء العاجل وأقول أيضاً :لا بأس طهور إن شاء الله تعالى اللهم اشف أنت الشافي لا شفاء إلا شفاؤك شفاء لا يغادر سقماً...آمين يرجى تبليغه سلامنا وتمنياتنا له بالشفاء العاجل. والصلاة والسلام على سيد المرسلين والحمد لله رب العالمين.. والسلام عليكم

حديث لرسول الله -صلى الله عليه وسلم-، يقول: عن أبي هريرة -رضي الله عنه- أن رسول الله -صلى الله عليه وسلم- قال: إذا مات ابن آدم انقطع عمله إلا من ثلاث: صدقة جارية، أو علم ينتفع به، أو ولد صالح يدعو له، رواه مسلم راحل عنا امس العلامه القدير الاستاذ عماد الدين الحسامى وترك لنا علم ينتفع به حبيب اذكركم ببعض ما ترك لنا من اعمال وعلم ينتفع به أسال الله تعالى ان تكون جميع اعماله فى ميزان حسناته ممكن حضرتك تدخل على مكتبه الاستاذ عماد ونشوف اعماله من صفحته الشخصيه بالمنتدى الحسامى.zip الحسامى 2.zip شرح الفورم.zip نظام الحسامي للمخازن.zip واجهه كنترول للاستاذ الحسامي.zip شجرة الحسابات-عماد الحسامي.zip

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

السلام عليكم ورحمة الله وبركاته أخي الحبيب حسام عيسى (صقر المنتدى) أخي الغالي وأبي الحبيب أبو يوسف أخي الحبيب الشهابي أخي الكريم رمهان (منور منتدى الإكسيل) أخي الحبيب أبو نبأ أخي الغالي عبد العزيز البسكري أخي الغائب عن العين لفترة طويلة القريب من القلب دائماً جعفر الطريبق أخي الحبيب أشرف النعاس أخي المتميز ياسر فتحي أخي الحبيب القادم بشدة ونجمه سيسطع في سماء المنتدى فايز ياسين أبي الحبيب الغالي - لن أقول أخي - أبو يوسف أخي الكريم عمار اللهيبي أخي العزيز زيزو العجوز أخي الغالي محمد الخازمي أخي الحبيب صلاح المصري أخي الحبيب سعد عابد بارك الله فيكم إخواني الكرام على شعوركم الطيب والنبيل وجزيتم خير الجزاء لسؤالكم عني وأنا وإن غبت عن المنتدى بجسدي فقلبي معلق بإخواني بالمنتدى ، ورغم مرضي الشديد إلا أنني أتابع الموضوعات باستمرار إلا أنني لم أستطع المشاركة ، فاعذروني جمع الله بيننا في الفردوس الأعلى من الجنة في مستقر رحمته ، إنه ولي ذلك والقادر عليه تقبلوا جميعاً حبي وتقديري واحترامي

بسم الله الرحمن الرحيم ونحن بدورنا نرحّب بك أستاذنا الغالي و معلّمنا و مرشدنا ياسر خليل أبو البراء .. الله وحده يعلم كم افتقدناك خلال هذه الأيام .. عودة ميمونة حميدة .. نسأل الله تعالى أن يمدّك دومًا بتمام الصحّة و العافية و راحة البال

السلام عليكم أخي محمد عبد السلام بعد إذن السادة الكرام قمت بالتعديل ليناسب طلبك أخي الكريم..دعاءك بظهر الغيب أرجو والسلام عليكم محمد عبد السلام.rar

اللهم اشف أستاذنا ياسر وعافه من كل مرض ومكروه اللّهم اشفه شفاء عاجلاً شفاء لا يغادر سقماً ولا نصباً

الموضوع غير واضح ... هل تقصد شيئ من هدا القبيل هدا الكود في ال ThisWorkbook Module يطلب من المستخدم الباسوورد اللي هو "123" عندما يفتح الملف و الماكرو مفعل ... لو الباسوورد غلط الملف يغلق نفسه Private Sub Workbook_Open() Application.EnableCancelKey = xlDisabled If InputBox("Enter Password") <> "123" Then MsgBox "Wrong Password" & vbCr & vbCr & "Workbook Closing Now !", vbExclamation Application.EnableCancelKey = xlInterrupt Me.Close True End If End Sub

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

Uاخي واستاذي الحبيب الاستاذ القدير / ياسر خليل شفاك الله وعفاك وأزاح عنك كل ألم وتعود إلينا سالما إنشاء الله

اللهم اشفيه و عافيه .... أفتقدنه كثيرا في منتدانا الغالي

السلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا القدير " حسام عيسى " على الالتفاتة الطيّبة .. فعلا نحن بحاجة أكثر لمكتبة العلامة الراحل الأستاذ الحسامي وأعماله .. رحمه الله تعالى خالص احتراماتي

السلام عليكم و رحمة الله و بركاته نرحب بالعلامه القدير الاستاذ جعفر الطريبق .. أهلا و سهلا و مرحبا ..نوّرت المنتدى

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

أبدأ بحمد الله أولا وأخيرا على ما انعم ووفق وأصلي واسلم على الرحمة المهداة والسراج المنير نبينا محمد وعلى آله وصحبه وسلم ... وبعد في أحدي الموضوعات علي منتدانا الكريم وفي موضوع لاحد الأخوة بطلب برنامج ليتمكن من ادارة الأشتراكات الشهرية (اشتراكات DSL - كروت - توزيع شبكات انترنت او شبكات الكابل التلفزيوني ) وما الي ذلك من الاشتراكات التي تحتاج لمتابعة شهرية علي انتهاء صلاحية اسم المستخدم مثلا او متابعة حركة السداد المختلفة لذلك وفقني الله سبحانه وتعالي لتلك الفكرة بعمل برنامج يقوم بمتابعة تلك الاشتراكات الشهرية ومتابعة سداد وعمل وطباعة تقارير عن المديونية والمبيعات وكشف حساب للعميل وما الي ذلك من العمليات التي يمكن ان يحتاجها المستخدم لادارتها وكذلك ادخال اغلبية البيانات تلقائيا كرقم ايصال السداد مسلسل العميل تاريخ نهاية الاشتراك وادعو الله سبحانه وتعالي ان اكون وفقت في البرنامج وان يكون فيه النفع ويمكن تطويع البرنامج ليتلائم مع ادارة المشروعات الفردية الصغيرة ايضا ولا تنسونا من دعوة صالحة في ظهر الغيب بصلاح الحال ناتي لشرح بعض خصائص البرنامج المختلفة أترككم لتجربة البرنامج في المرفقات وارحب بمشاركتكم في اجراء اية تعديلات وفقنا الله واياكم للصالحات مع تحياتي // ضاحي الغريب Manage Subscriptions By Dahy al Gharieb.rar

شفاك الله اخي ياسر ... فتقدناك كثيرا في المنتدى دائما كنت يد العون لي و لكل اعضاء منتدنا الغالي اتمنى لك الشفاء العاجل اخي ياسر

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

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

الأخ الحبيب حسام عيسى بارك الله فيك على هذه اللفتة الكريمة بالترحيب بأخونا ومعلمنا جعفر ونرحب به بيننا ونمتنى تواجده الدائم بيننا ، فالله وحده يعلم كم كنت أتمنى هذا الأمر بشدة ، فلله الحمد والمنة بالفعل أخي جعفر نورت المنتدى ، ليست مجرد كلمة تقال ، ولكنك بالفعل نوارة المنتدى أسأل الله العظيم أن يجمع بيننا في الفردوس الأعلى في مستقر رحمته

السلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا الفاضل محمد حسن المحمد على الاضافة المميّزة .. فقط لإكمال الموضوع على أحسن وجه ألفت انتباه الأخ محمد عبد السلام بإمكانية حذف زر الأمر إذْ لا فائدة منه الآن

السلام عليكم...لفتة كريمة من أخ كريم لأخ كريم كان ينشر العلم النافع . جزاكم الله خيرا....

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

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

أخي محمد عبد السلام المحترم: السلام عليكم إذا اعتبرت أن الإجابة كاملة يرجى تحديد كأفضل إجابة لنختم الموضوع والسلام عليكم.

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

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

السلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا الغالي محمد حسن المحمد على الاضافة الرائعة .. جزاك الله خيرًا و زادها بميزان حسناتك

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

و الله ما فهمت ... لو أحد فهم يشرح لي هل هدا ما تقصده: 1- أول مرة يتم فتح الملف يطلب الباسوورد .. بعدها لا يطلب الباسوورد 2- في حالة أخد كوبي من الملف فان هدا الملف الجديد *يعني الكوبي* يطلب الباسوورد عند فتحه لأول مرة فقط ثم بعدها لا يطلب الباسوورد ثم هل الكوبي سيتم فتحه في نفس الحاسوب أو في حاسوب أخر

أخي عبد العزيز السلام عليكم ورحمة الله وبركاته أنت عدلت على حجم الخط ونوعه وأنا قمت بعد إذن حضرتك بتعديل حجم الخط ونوعه وسماكته على اليوزر فورم فإن كان مناسباً أكون قد قدمت مساعدة ما وإن لم يكن كذلك فالحمد لله محمد عبد السلام.rar

الاستاذ جعفر الطريبق .. أهلا و سهلا و مرحبا ..نوّرت المنتدى

تفضل عزيزي وبحل مرن : حسب ماتفلتر موظف او عملاء. مثلا لا تريد اعادة جدول لعملاء: يمكن فلترة العملاء حسب القيم الخالية! ممكن عملاء محديين ! وكذلك الموظفين! جرب ان تفلتر 4 عملاء وتفلتر 2 موظفين ! Private Sub أمر2_Click() Set rs_cust = Me.frm_sub_العمظف.Form.RecordsetClone: rs_cust.MoveFirst Set rs_emp = Me.fsub_الموظفين.Form.RecordsetClone: rs_emp.MoveFirst Do While Not rs_cust.EOF rs_cust.Edit If rs_emp.EOF Then rs_emp.MoveFirst rs_cust!id_uder = rs_emp!id rs_cust.Update rs_cust.MoveNext: rs_emp.MoveNext Loop End Sub بالتوفيق واجمل تحية

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

السلام عليكم ورحمة الله بعد إذن اخواني الافاضل هذا حل بطريقة أخرى مختصرة بسطر واحد Copy.rar

السلام عليكم ورحمة الله وبركاته الدرس الاول 2-RANGE هنا سوف نتعرف على كيفية الاشاره الى خليه او الى مجموعه من الخلايا وانا بعتبر ان الدرس ده هو اهم درس يجب البدأ بيه فى تعلم VBA لان مفيش تطبيق يتم فى VBA بدون الاشاره الى الخلايا تقبلوا تحياتى

جزاكم الله خيرا جميعا ياغالين باذن الله ابشركم قريبا،،

استاذي واخي رمهان ربنا يوفقك لما فيه الخير لك

اللهم امين

اخى الكريم اجد رد الا اللفاضل طارق محمود هو خير دليل رجاء مراجعة الروابط التالية http://www.officena.net/ib/index.php?showtopic=29748&st=0&p=148274&hl=%C5%D1%D3%C7%E1%20%C5%E3%ED%E1&fromsearch=1&#entry148274 أو http://www.officena.net/ib/index.php?showtopic=32704&st=0&p=168449&hl=%C5%D1%D3%C7%E1%20%C5%E3%ED%E1&fromsearch=1&#entry168449 أو http://www.officena.net/ib/index.php?showtopic=31030&st=0&p=156862&hl=%C5%D1%D3%C7%E1%20%C5%E3%ED%E1&fromsearch=1&#entry156862 أو http://www.officena.net/ib/index.php?showtopic=31030&st=0&p=156669&hl=%C5%D1%D3%C7%E1%20%C5%E3%ED%E1&fromsearch=1&#entry156669 وستجد فيها إن شاء الله ماتريد وأكثر

اسأل الله الكريم في هذه الساعة المباركة ان يكفيك ما اهمك ويوفقك لدروب الخير

السلام عليكم جميل ورائع بل اكثر من رائع بارك الله بك وبجهودك والله ولي التوفيق

أخي الكريم أبو عبد الملك إليك الكود بالكامل ..تم إضافة ثلاثة أسطر لتؤدي الغرض في نهاية الكود قبل جملة End With Sub FollowAll() Dim I As Long, lRow As Long Dim rngFound As Range Dim wsRecord As Worksheet, wsMonthly As Worksheet, SH As Worksheet Set wsRecord = Sheets("معلومات التسجيل"): Set wsMonthly = Sheets("مجمع النتائج الشهرية"): Set SH = Sheets("كشف متابعة") With Application .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlManual End With With wsRecord For I = 2 To .Cells(Rows.Count, "A").End(xlUp).Row If Not IsEmpty(.Cells(I, "N")) Then If MsgBox("الطالب " & .Cells(I, "C") & " منقطع هل تود أن تطبع له كشف?", vbYesNo + vbMsgBoxRtlReading) = vbYes Then GoTo Continue Else: End If Else Continue: SH.Range("C1") = .Cells(I, "C") SH.Range("C4") = .Cells(I, "B") SH.Range("C5") = .Cells(I, "A") Set rngFound = wsMonthly.Columns("C:C").Find(What:=.Cells(I, "C"), searchorder:=xlByRows, searchdirection:=xlPrevious) If Not rngFound Is Nothing Then lRow = rngFound.Row If wsMonthly.Cells(lRow, "R") >= 60 Then SH.Range("R4") = wsMonthly.Cells(lRow, "N"): SH.Range("S4") = wsMonthly.Cells(lRow, "O") ElseIf wsMonthly.Cells(lRow, "R") < 60 Then SH.Range("R4") = wsMonthly.Cells(lRow, "L"): SH.Range("S4") = wsMonthly.Cells(lRow, "M") Else MsgBox "لا يوجد درجة للطالب " & .Cells(I, "C"), vbCritical End If End If SH.Range("C2").Formula = "=IF(" & SH.Range("R4").Address & "="""","""",LOOKUP(INDEX(QNumbers,MATCH(" & SH.Range("R4").Address & ",QNames,0)),الحلقات!$F$2:$F$6,الحلقات!$B$2:$B$6))" SH.Range("C3").Formula = "=IF(" & SH.Range("R4").Address & "="""","""",LOOKUP(INDEX(QNumbers,MATCH(" & SH.Range("R4").Address & ",QNames,0)),الحلقات!$F$2:$F$6,الحلقات!$D$2:$D$6))" SH.Range("C2:C3").Value = SH.Range("C2:C3").Value Call CalculateLinesOfRevision SH.PrintPreview End If Next I End With With Application .ScreenUpdating = True: .EnableEvents = True: .Calculation = xlAutomatic End With End Sub Private Sub CalculateLinesOfRevision() Dim SH As Worksheet, wsMnhg As Worksheet Dim LRCur As Long, I As Long, N As Long, Counter As Long Dim rngA As Range, rngB As Range, rngC As Range, rngD As Range Dim X, Y, Z Set SH = Sheets("كشف متابعة"): Set wsMnhg = Sheets("المنهج") With wsMnhg LRCur = .Cells(Rows.Count, 1).End(xlUp).Row Set rngA = .Range("A2:A" & LRCur): Set rngB = .Range("B2:B" & LRCur) Set rngC = .Range("C2:C" & LRCur): Set rngD = .Range("D2:D" & LRCur) SH.Range("Q11:Q34").ClearContents X = ValueLookUp(rngB, SH.Cells(4, "R").Value, rngC, rngD, SH.Cells(4, "S").Value, rngA) If X <= 24 Then For I = 2 To X + 1 SH.Cells(N + 11, "Q") = .Cells(I, "B") & " " & .Cells(I, "C") & " - " & .Cells(I, "B") & " " & .Cells(I, "D") N = N + 1 Next I Else Y = Application.WorksheetFunction.Ceiling(X / 24, 1) For I = 2 To X + 1 Step Y SH.Cells(N + 11, "Q") = .Cells(I, "B") & " " & .Cells(I, "C") & " - " & .Cells(I + Y - 1, "B") & " " & .Cells(I + Y - 1, "D") N = N + 1 Counter = Counter + Y If Y >= X - I Then Exit For Next I If X - Counter > 0 Then SH.Cells(N + 11, "Q") = .Cells(I + Y, "B") & " " & .Cells(I + Y, "C") & " - " & .Cells(X + 1, "B") & " " & .Cells(X + 1, "D") End If SH.Range("O11:O34").ClearContents Z = X - 24 If Z > 0 Then SH.Range("O11:O34") = .Cells(Z, "B") & " " & .Cells(Z, "D") & " - " & SH.Range("R4") & " " & SH.Range("S4") End With End Sub

السلام عليكم مرفق مثال باستخدام التنسيق الشرطى لمجموعة من 5 اعمدة وبيتلون الصف لما تكتب فى الخمسة كلهم بالكامل .. باستخدام التنسيق الشرطى Select Color When Completed .rar