اذهب الي المحتوي
أوفيسنا

محمد حسن المحمد

الخبراء
  • Posts

    2,216
  • تاريخ الانضمام

  • Days Won

    30

كل منشورات العضو محمد حسن المحمد

  1. السلام عليكم أخي الكريم ناصر سعيد من السهولة بمكان استخدام الخطوط العربية في برنامج Word ثم استخدامها في منتدى أوفيسنا بالنسخ واللصق ...ليس لصق كنص عادي ... كما أزيدك معلومة ولا أزيدك علماً أنني أنسخ خطاً من الخطوط الجميلة في المنتدى ثم ألصقها وأكتبها بمشاركاتي على الجوال فتظهر وكأنني أستخدم الحاسب ...والحمد لله الذي يهيئ الأسباب. ملاحظة:لا يقبل كل الخطوط من الوورد بتنسيقها فيتغير خطها إلى خط افتراضي هنا. والسلام عليكم .
  2. السلام عليكم ورحمة الله وبركاته أخي الكريم سعد...أسعد الله أوقاتكم بنور الإيمان .. بما أن الإنسان كلٌّ متكاملٌ ...يحتاج لتغذية جسده ونفسه وروحه فبالإمكان أن تجمع له بين أمرين ...فتكون كمن جلس بحديقة استنشق روائح عطور أزهارها وورودها واستمتع بمنظرها وخضرة أشجارها واختلاف ألوان أزاهيرها...وكل من هذه له مخزن في ذاكرته ..فإن استرجع تلك الجلسة تذكر عبق عطورها وألق جمالها ونضرتها ...فاستمتع بالذكرى وحنّ إليها.. والسلام عليكم ورحمة الله وبركاته.
  3. السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً على ما قدمتم ..وعلى مروركم العطر أخي الكريم عبدالله فاروق ابو ريان ... معادلة رائعة ...حققت النتيجة الصحيحة .. والسلام عليكم.
  4. السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً ..أخي الحبيب أبو البراء.. على هذه المعادلات الرائعة والكثيفة أمام دالة قدمتها لأستاذنا الكبير يحيى حسين ..جزاكم الله وإياه خيراً على ما تقدمونه. بارك الله...(من أعجبه شيء من أمر صاحبه فليبرّك ) ليقل بارك الله ..خير من خمسة وخميسة ..ودقوا على الخشب ..وعيني باردة ..فإنها بدع لا تمتّ بصلة إلى الدين . الحديث: حدثناه أبو العباس محمد بن يعقوب ، ثنا بحر بن نصر ، ثنا ابن وهب ، أخبرني يوسف بن طهمان ، عن محمد بن أبي أمامة بن سهل بن حنيف ، أنه سمع أباه يقول : اغتسل أبي سهل بن حنيف فنزع جبة كانت عليه يوم حنين حين هزم الله العدو ، وعامر بن ربيعة ينظر ، قال : وكان سهل رجلا أبيض حسن الخلق ، فقال له عامر بن ربيعة : ما رأيت كاليوم قط ، ونظر إليه فأعجبه حسنه حين طرح جبته ، فقال : ولا جارية في سترها بأحسن جسدا من جسد سهل بن حنيف ، فوعك سهل مكانه ، واشتد وعكه ، فأتى رسول الله صلى الله عليه وآله وسلم ، فأخبره أن سهل بن حنيف وعك ، وأنه غير رائح معك ، فأتاه رسول الله صلى الله عليه وآله وسلم ، فأخبروه بالذي كان من شأن عامر ، فقال رسول الله صلى الله عليه وآله وسلم : " علام يقتل أحدكم [ ص: 509 ] أخاه ، ألا بركت ، إن العين حق ، توضأ له " ، ثم قال رسول الله صلى الله عليه وآله وسلم : " إذا رأى أحدكم شيئا يعجبه فليبرك فإن العين حق " . " هذه الزيادات في الحديثين جميعا مما لم يخرجاه . والسلام عليكم ورحمة الله وبركاته
  5. السلام عليكم ورحمة الله وبركاته... معلومة قرأتها وأحببت أن أتحفكم بها وهي: كيف نعرف السنة الميلادية ..كبيسة أو غير كبيسة "عادية".. =IF(DAY(EOMONTH(DATE(A1;2;1);0))=29;"سنة كبيسة";"سنة عادية") حيث نضع تاريخ السنة في الخلية A1 و المعادلة في B1 تتعلق المادلة بحساب شهر شباط 29 يوم كبيسة...28 يوم عادية تقبلوا تحياتي العطرة ...والسلام عليكم ورحمة الله وبركاته. للاطلاع على دوال أكثر ومعادلات تتعلق بمعرفة السنة الكبيسة راجع الرابط التالي:أربعة عشر معادلة لمعرفة السنة الكبيسة لأبي البراء ياسر خليل .
  6. السلام عليكم أخي الكريم سعد ..جعلك الله تعالى من سعداء الدارين.. مروركم العطر وكلماتكم الطيبة ...وسام شرف لي أضعه على صدري...من أخ كريم. تقبل تحياتي العطرة..والسلام عليكم.
  7. السلام عليكم إخوتي الكرام أخي الكريم عبد السلام أبو العوافي وأخي الكريم أبو أدهم... أشكركم على مروركم العطر على موضوعي المتواضع...تشرفت بمروركم وبكلامكم الطيب... والسلام عليكم.
  8. السلام عليكم ورحمة الله وبركاته أخي الكريم عبد السلام أبو العوافي.. مرحباً بك بين إخوتك في منتدى أوفيسنا...نتشرف بوجودك بيننا ...أخاً كريماً ...ستجد في هذا المنتدى الكريم إخوة متحابين متعاونين ...يتبادلون الأفكار ...ويعطي كل منهم أفضل ما عنده خدمة لهذه الأمة الإسلامية التي أشرق مجدها وأضاء نورها أقاصي الدنيا وعم أرجاءها في القرون الوسطى ...ولا يمكننا إعادتها إلى سابق عهدها إلا بالتسابق لرفعة شأنها بالعلم أولاً امتثالاً لقول الله تعالى :علّم بالقلم *علّم الإنسان ما لم يعلم). أشكرك على مساعدتي بإنجاز الملف المذكور أعلاه.. أكرر ترحيبي بك ..على الرحب والسعة ...والسلام عليكم ورحمة الله وبركاته...أخوكم أبو يوسف.
  9. السلام عليكم أخي الحبيب أبو البراء ما شاء الله لا قوة إلا بالله...والحمد لله الذي بنعمته تتم الصالحات. هنيئـــــاً لكم ..ولطلاب العلم الذين يقبسون من نوره الساطع....
  10. السلام عليكم ورحمة الله وبركاته ...جزاكم الله خيراً أخي الحبيب أبو البراء على هذا الكود الرائع الذي يمنع التكرار في العمودA حيث يعطي رسالة بوجود تكرار معين من خلال استخدام الدالة CountIf ويمسح محتوى الخلية التي حصل بها التكرار. تقبل تحياتي العطرة والسلام عليكم.
  11. السلام عليكم ورحمة الله وبركاته أخي الحبيب أبو البراء ... من تواضع لله رفعه الله ...تواضعٌ نقدّره ...ونعلم حقاً أنكم أستاذ تستحق التكريم ولنا مثال راقٍ في ولديّ هارون الرشيد الذي اتسع ملكه ليبلغ الآفاق فما كان منهما إلا أن حمل كل منهما فردة حذاء أستاذهما ....تقديراً لعلمه وتعليمه وتأديبه فالمعلم أبٌ ثانٍ ليس بإمكان كل أبٍ أداء دوره...ولذلك وجب تقدير المعلم وإعطاءه المكانة التي يستحقها في المجتمع وفي قلوب تلامذته... تقبل تحياتي ومحبتي ..والسلام عليكم ورحمة الله وبركاته.
  12. السلام عليكم ورحمة الله وبركاته أخي الحبيب أبو البراء ... جزاكم الله خيراً على أولى المشاركات التي افتتحتها بهذا الكلام الطيب وأرجو الله تعالى أن يجعلني محلّ رضاكم وثقتكم حقيقة ...لم أطرح الموضوع إلا لأستفيد من بحركم الزاخر وعلمكم الواسع..الذي أتشرف بكوني طالباً من طلابه تقبل تحياتي ومحبتي ..والسلام عليكم ورحمة الله وبركاته.
  13. السلام عليكم ورحمة الله وبركاته إخوتي الكرام:عمالقة وعباقرة المنتدى الكريم تساءلت عن مرونة جدول في ورقة محمية ...لنزيد صفوفه حسب الحاجة وتداولت موضوعه مع بعض الأصدقاء لأنه وكما تعلمون أنه عند نهاية الجدول في ورقة غير محمية نقوم بالمفتاح Tab بفتح صف جديد ...فهو هنا مرن وجميل وخصوصاً أن استخدامات الجداول أكثر لياقة في مجالات الفرز والتصفية والبحث ...إلخ. وبعد البحث والاستعانة بالخبرات توصلت إلى الكودين التاليين : Private Sub Worksheet_Change(ByVal Target As Range) Dim n As Integer n = Cells(Rows.Count, 3).End(xlUp).Row If Target.Column = 5 And Target.Row = n Then With ActiveSheet .Unprotect "1" .ListObjects(1).Resize Range("$C$4:$E$" & n + 1) .Protect "1" End With End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim n As Integer n = Cells(Rows.Count, 3).End(xlUp).Row + 1 If Target.Column = 3 And Target.Row = n Then With ActiveSheet .Unprotect "1" .ListObjects("Table1").Resize Range("$C$4:$E$" & n) .Protect "1" End With End If End Sub حيث تتم زيادة الصفوف بالمفتاح Tab عندما تكون الصفوف أسفله لم يتم تأمينها...أما إن كانت الخلايا مؤمنة فإنه يتم نقر الماوس تحت أول عمود من الجدول ليفتح صفاً جديداً... ورغبة مني بإثرائكم للموضوع من ناحية مرونة الجدول بإضافة أعمدة أو صفوف حال الحماية فإنني أضعه بين أيديكم الكريمة لينال حقه الوافي من الدراسة....والسلام عليكم ورحمة الله وبركاته. ملاحظة:للأمانة العلمية..الأكواد والملف المرفق منقولة . وبما أن العمل على ورقة محمية رمز الحماية:1 Add row to table.rar
  14. السلام عليكم ورحمة الله وبركاته ...شرف عظيم أن يكون لتلميذ صغير اسم في قائمة مليئة بالقامات العالية في البحث العلمي وتطوير البرمجيات ... شرف كبير لي أن تكتب أخي الحبيب جلال الجمال أبو أدهم بأناملك الطيبة اسمي ...فعملك هذا - لا أقول لا يقل أهمية - بل أقول هو أهم أو من الأهمية بمكان لحفظ فهرسة رائعة لمدونات وأعمال أساتذتنا الكرام ...وبذلك لا يطويها النسيان ...بل لها مفاتيح ضخمة عند أخينا العزيز أبو أدهم جزاكم الله خيراً وأحسن إليكم وجعل كل ذلك بميزان حسناتكم ...آمين والصلاة والسلام على سيد المرسلين والحمد لله ربّ العالمين. والسلام عليكم ورحمة الله وبركاته.
  15. السلام عليكم ورحمة الله وبركاته... الأصمعي حفظ لنا كثيراً من اللغة العربية ...أما الأعرابي فكان أباً للشعر وأماً.... أرجو أن تستمتعوا بمشاهدة هذا الفيديو بعيداً عن الأكواد والمعادلات رجوعاً إلى الأصالة والكرم...السمن العربي ...والعسل المصفى ...و...و...إلخ.
  16. السلام عليكم ورحمة الله وبركاته إخوتي الكرام أستاذنا الجليل أبو البراء: ((((((جزاكم الله خيراً على ما تقدمونه لنا وللأجيال اللاحقة من علم نافع بإذن الله تعالى)))))). مافهمته من الكود هو التالي : راجياً التصحيح والإفادة حتى يتم استيعابه من قبلي: عرض الشهور بلغات العالم حتى 99 لغة.. 1- متغير R على طول الصفوف 2- متغير C على طول الأعمدة 3- متغير Str تاريخ البدء كتاريخ. 4- متغير S بحث كقيمة منطقية. إيقاف تحديث الشاشة..ثم 1- الصفوف حتى 12 لاستيعاب عدة الشهور ((إن عدة الشهور عند الله اثنا عشر شهرا في كتاب الله يوم خلق السماوات والأرض منها أربعة حرم ذلك الدين القيم فلا تظلموا فيهن أنفسكم وقاتلوا المشركين كافة كما يقاتلونكم كافة واعلموا أن الله مع المتقين ( 36 ) . ( إنما النسيء زيادة في الكفر يضل به الذين كفروا يحلونه عاما ويحرمونه عاما ليواطئوا عدة ما حرم الله فيحلوا ما حرم الله زين لهم سوء أعمالهم والله لا يهدي القوم الكافرين ( 37 ) . 2- الأعمدة حتى 99 لاستيعاب اللغات:(( يا أيها الناس إنا خلقناكم من ذكر وأنثى وجعلناكم شعوبا وقبائل لتعارفوا إن أكرمكم عند الله أتقاكم إن الله عليم خبير ( 13 ) ) ....تاريخ البدء=تبديل التاريخ بتنسيق 1 من كل شهر ثم ينفذ حلقة تكرارية ...ثم تفعيل تحديث الشاشة ثم إغلاق الكود. هذا ما فهمته..كتبت ذلك استجابة لطلبكم في التفاعل مع العمل ... والسلام عليكم.
  17. السلام عليكم ورحمة الله وبركاته أخي الكريم هاني بدر ..أحببت أن أهنئك على هذا العمل الطيب جعله الله تعالى بميزان حسناتكم وأثابكم خيراً ونفع بعلمكم ..آمين. وإلى المزيد من العطاءات الرائعة والسلام عليكم
  18. وعليكم السلام ورحمة الله وبركاته أخي الحبيب عبد العزيز بارك الله بك وأشكرك على الهدية القيمة التي شاهدتها بمحرر الأكواد ...يا لآياتها يا لجمالها يا لحسن زخرفتها وإبداعها ...لكن حظي العاثر ..كونها لم تعمل كما أحببت . الحقيقة أذهلني جمالها وأسعدني ....شكراً أخي الحبيب لأنك ذكرتني وربطت اسمي بهذا الجمال ...الحقيقة الكلمات تعجز عن التعبير...أخي وحبيبي في الله عبد العزيز أعزك الله والشكر الجزيل موصول لأخي الحبيب ياسر خليل أبو البراء الذي سرّته هذه الهدية الرائعة وجعله بميزان حسناتكم جميعاً والسلام عليكم
  19. السلام عليكم ورحمة الله وبركاته أخي وأستاذي الكريم خالد الرشيدي المحترم بما أنك أهديته لوالدتك الكريمة فإنني أدعو الله تعالى أن يتغمدها برحمته وأن يجعلها ووالديّ وأموات المسلمين أن يجعل كتابهم في عليين وأن يجعلهم من أهل جنات النعيم ..آمين. أما أنت - فإنني أقول كلمة الشكر لا تفيك حقك وجزاء تعبك ...فإنني أقول - جزاكم الله خيراً وأثابكم على هذه الأعمال البديعة - والتي أرجو أن تكون أثراً صالحاً تتداوله الأجيال القادمة بشغف والسلام عليكم.
  20. السلام عليكم ورحمة الله وبركاته أخي الحبيب "صقر المنتدى حسام" جزاكم الله خيراً على هذه النماذج الرائعة بالحركات المؤثرة التي نشكرك على أدائها ونحمد الله أنه بيننا إخوة مبدعين ....وقد تكون في المرات القادمة حركات عشوائية بمعنى عند كل فتح تنتقل من حركة إلى أخرى في كل مرة... والسلام عليكم ورحمة الله وبركاته.
  21. وعليكم السلام ورحمة الله وبركاته أخي الحبيب " عبد العزيز" أعزكم الله ...أشكركم على مروركم العطر وكلماتكم الطيبة التي أعتبرها حافزاً من أخ كريم محبب إلى القلب..أشكركم على دعائكم الطيب علماً أنني ما زلت على بداية الطريق ويهمني رأيكم كما أشرت لكم بالرسالة حيث ندرس ونصحح معاً ونستفيد من أخطائنا لنمضي قدماً في سبيل العلم "من سلك طريقاً يلتمس به علماً سهل الله له به طريقاً إلى الجنة "... والسلام عليكم ورحمة الله وبركاته. أخي الحبيب " أحمد الفلاحجي أبو بسملة" جعلك الله من أهل الحمد ...آمين ...أشكركم على هذا الدعم اللا محدود . جعله الله بميزان حسناتكم والسلام عليكم ورحمة الله وبركاته.
×
×
  • اضف...

Important Information