اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

الخبراء
  • Posts

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

  • Days Won

    30

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

  1. آية كريمة لكل من عصى أن يتوب قبل أن تغرغر ونحن أخي الحبيب ياسر نخطئ ونصيب ونذنب ونتوب فالحمد لله على نعمة الإسلام وهذا تفسير آية كريمة بها من الرجاء الكبير لكل من عصى ....وما دام في العمر بقية فنحن نستطيع مهما جرفتنا ذنوبنا عن جادة الصواب نستطيع العودة بكل محبة ووقعها في النفوس كوقع البلسم على الجراح الغائرة ...نرجو رحمتك اللهم ونخشى عذابك إن عذابك الجد بالكفار ملحق..... الحمد لله والصلاة والسلام على رسول الله وعلى آله وصحبه، أما بعـد: فإن هذه الآية ليست منسوخة، وهي قوله تعالى: قُلْ يَا عِبَادِيَ الَّذِينَ أَسْرَفُوا عَلَى أَنفُسِهِمْ لَا تَقْنَطُوا مِن رَّحْمَةِ اللَّهِ إِنَّ اللَّهَ يَغْفِرُ الذُّنُوبَ جَمِيعًا إِنَّهُ هُوَ الْغَفُورُ الرَّحِيمُ{الزمر:53}، وهي محمولة على من تاب من الذنوب قبل موته، قال ابن كثير في تفسيره لها: هذه الآية الكريمة دعوة لجميع العصاة من الكفرة وغيرهم إلى التوبة والإنابة، وإخبار بأن الله تبارك وتعالى يغفر الذنوب جميعاً لمن تاب منها ورجع عنها، وإن كانت مهما كانت، وإن كثرت وكانت مثل زبد البحر، ولا يصح حمل هذه على غير توبة، لأن الشرك لا يغفر لمن لم يتب منه. ويؤيد ذلك ما ورد في سبب نزولها، فقد روى البخاري ومسلم في صحيحيهما عن ابن عباس رضي الله عنهما: أن ناسا من أهل الشرك كانوا قد قتلوا وأكثروا، وزنوا وأكثروا، فأتوا محمدا صلى الله عليه وسلم فقالوا: إن الذي تقول وتدعو إليه لحسن لو تخبرنا أن لما عملنا كفارة، فنزل: وَالَّذِينَ لَا يَدْعُونَ مَعَ اللَّهِ إِلَهًا آخَرَ وَلَا يَقْتُلُونَ النَّفْسَ الَّتِي حَرَّمَ اللَّهُ إِلَّا بِالْحَقِّ وَلَا يَزْنُونَ وَمَن يَفْعَلْ ذَلِكَ يَلْقَ أَثَامًا.... ونزل: قُلْ يَا عِبَادِيَ الَّذِينَ أَسْرَفُوا عَلَى أَنفُسِهِمْ لَا تَقْنَطُوا مِن رَّحْمَةِ اللَّهِ. والله أعلم.
  2. بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه أما بعد: السلام عليكم ورحمة الله وبركاته بعد أن وهبني الله الكود المناسب للطباعة السريعة على يد أخي الحبيب وأستاذي الجليل ياسر خليل أبو البراء وبعد وضع كود لتشفير المعادلات للحفاظ عليها من أي خلل لأستاذي الكريم إسلام رجب، فإنني أتشرف بعرض البرنامج عليكم بشكله النهائي حيث نقوم بالخلية J1 بورقة تقرير حركة الصنف بوضع رقم الصنف الأول الذي نرغب طباعته وبالخلية K1 نضع رقم آخر صنف نودّ طباعته ثم نضغط على زر طباعة سريعة وذلك بعد تحديد تاريخي بداية ونهاية التقرير... ليقوم بشكل تلقائي بالتصفية حسب كل صنف ثم الطباعة. "هذا من فضل ربّي" أرجو الله أن يكون عملاً نافعاً نبتغي به وجه الله تعالى ، لأننا فقراء إلى الله تعالى، والله في عون العبد ما كان العبد في عون أخيه تقبلوا تحياتي العطرة والسلام عليكم ورحمة الله وبركاته. برنامج المخازن.rar
  3. السلام عليكم ورحمة الله وبركاته اللهم افتح لنا أبواب رحمتك رَّبَّنَا إِنَّنَا سَمِعْنَا مُنَادِيًا يُنَادِي لِلْإِيمَانِ أَنْ آمِنُوا بِرَبِّكُمْ فَآمَنَّا ۚ رَبَّنَا فَاغْفِرْ لَنَا ذُنُوبَنَا وَكَفِّرْ عَنَّا سَيِّئَاتِنَا وَتَوَفَّنَا مَعَ الْأَبْرَارِ (193)رَبَّنَا وَآتِنَا مَا وَعَدتَّنَا عَلَىٰ رُسُلِكَ وَلَا تُخْزِنَا يَوْمَ الْقِيَامَةِ ۗ إِنَّكَ لَا تُخْلِفُ الْمِيعَادَ (194)
  4. بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه أما بعد: فقد تشرفت بمشاركتكم التي تفوح طيباً وتشجيعاً أستاذي الكريم عماد غازي المحترم ...فمن لم يشكر الناس لم يشكر الله لقد استفدت من خبراتكم بدروس صمم برنامجك بنفسك لأقدم هذا العمل الذي أرجو الله أن ينفعنا الله به في الدنيا وأن يجعل لنا جميعاً حظاً وافراً نسعد به في الآخرة وقد أنزل الله تعالى في كتابه العزيز:"وقل ربِّ زدني علماً " ونحن إذ نطلب العلم النافع نرجو به رحمة الله ومغفرته ونسعى لإرضائه عنا وقد ذكر الله تعالى فضل العالم والمتعلم بقوله:"قل هل يستوي الذين يعلمون والذين لا يعلمون" . اللهم اجعل غايتنا رضاك عنا وقبولك لأعمالنا الصالحة ومغفرة لذنوبنا وسيئاتنا فنحن وإن اتسعت مداركنا وعلومنا نبقى صغاراً أمام علم الله الواسع وفضله الغامر تقبل تحياتي العطرة والسلام عليكم.
  5. السلام عليكم جزاكم الله خيرا ووفقكم إلى ما يحب ويرضى ويجعلكم من أهل طاعته ورضاه ..آمين أشكركم جزيل الشكر أخي الحبيب أبو البراء كما أشكر الأخ العزيز أبو أنس على الكلمات الطيبة والسلام عليكم السلام عليكم أخي العزيز بو علام بلقاسم جزاكم الله خيرا على مروركم العطر وطيب كلامكم ووفقكم إلى طاعته ورضاه واتباع نهج حبيبه المصطفى صلى الله عليه وسلم والسلام عليكم.
  6. السلام عليكم ورحمة الله وبركاته... بارك الله بك وباهتمامك في شتى المواضيع أخي الحبيب ياسر خليل أبو البراء سأقوم غدا إن شاء الله تعالى بتطبيق الكود الذي أرفقتموه علما أنني على ثقة تامة من فعاليته ونجاحه ولكن يتبادر إلى ذهني التساؤل التالي: هل أخذ أبو البراء بالحسبان التصفية لكيلا تظهر كافة اﻷيام التي تحتوي فراغات إذ لا جدوى من طباعتها في المدى ضمن الجدول جزاكم الله خيرا .. والسلام عليكم ورحمة الله وبركاته
  7. السلام عليكم أساتذتي الكرام: أخي الحبيب أبو البراء ما أرغبه تكوين كود حلقة تكرارية يرتكز على المعطيات المسجلة في الخليتين J1 وK1 يقوم هذا الكود أثناء طلب الطباعة السريعة بالتنقل ضمن تسلسل الأرقام المسجلة بين الخليتين المذكورتين أعلاه فيتحول كل مرة إلى صنف جديد ضمن شرطي تاريخ بداية ونهاية التقرير معتمداً أيضاً على كود الصنف G3 أما عن مدى الطباعة فهو بدءاً من الخليةB1 وانتهاء بالخلية I2600 لأنني وضعت الجدول ليشتمل على سنوات فإن أردتم تصغير الجدول ليشمل سنة فلكم التصرف به كما تشاؤون . والسلام عليكم. ملاحظة: يرجى الأخذ بعين الاعتبار أن عدد الأصناف سيكون أكبر مما هو بين الخليتين ليتجاوز 100 صنف مثلاً.
  8. السلام عليكم ورحمة الله وبركاته...شرفني مروركما العطر وكلماتكما الطيبة ... أخوي العزيزين عبد العزيز البسكري وعبد العزيز-قلم اﻹكسيل أدعو الله أن يعزكما باﻹسلام وأن يملأ قلبيكما إيمانا ويقينا صادقا وأن يجعلكما ممن يقال لهم ادخلوا الجنة لا خوف عليكم ولا أنت تحزنون.... والسلام عليكم ورحمة الله وبركاته
  9. السلام عليكم أخي الحبيب أبو البراء جزاكم الله خيرا على حسن كلامكم واستجابتكم هناك زر في المرفق الأخير أسميته طباعة سريعة لاحظ أن الكود المتعلق به في الخلية j1 تم تحديد رقم الصنف كبداية للأصناف التي ستطبع بين تاريخين في ورقة تقرير حركة الأصناف . هل يمكن بخلية مجاورة وضع رقم يحدد آخر صنف يعد للطباعة السريعة وضبط الكود ليقوم بهذا العمل فلا يتجاوزه إلى بقية اﻷصناف التي لا نرغب طباعتها أو إيقاف عمل الكود عندما لا تكون هناك حركة لرصيد الصنف بين إضافة وصرف. أرجو أن أكون أوصلت الفكرة علما أنه ليس لدي حاسوب ليلا لأدعم كلامي بالصور المعبرة .. والسلام عليكم.
  10. السلام عليكم ورحمة الله وبركاته...شرفني مروركم العطر وكلماتكم الطيبة ... أخي الكريم أسامة محمد أشكركم على حسن كلامكم...مع جزيل شكري وفائق امتناني..جزاكم الله خيرا والسلام عليكم ورحمة الله وبركاته
  11. بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه أما بعد: السلام عليكم ورحمة الله وبركاته ...شرفني مروركم العطر وكلماتكم الطيبة ...حبيبي في الله أبو البراء الذي أرجو الله له من خيري الدنيا والآخرة... فقد وفقني الله تعالى يوم الجمعة المبارك إلى أمرين أولهما: حضوري خطبة جمعة أبهرتني :"عن النفس وإصلاحها، وأن كل منا يسير نحو آخرته منذ لحظة ولادته"فليحاسبها حساب الشريك الشحيح قبل أن تعرض للحساب أمام الله تعالى. وأما ثانيهما:فهو رؤية كلماتك الطيبة العطرة التي كنت أشتاق لسماعها بل مشاهدتها لأنني أعجز عن الأولى ...وهي كلمات مشجعة ترفع همة النفس إن بقي في العمر بقية. إلا أنني أرجو الإجابة على سؤالي خشية تكرار المواضيع عما ذكرته سابقاً والمتمثلة بقولي: كيف لي أن أحصر الطباعة بين رقمين حتى لا تتجاوز الثاني الطباعة إلى نهاية الأصناف المسجلة ...راجياً الاستجابة لطلبي هذا وتسجيله ليستفيد من التعديل كل من نزل الملف. علماً وإن كنت كهلاً فإنني كغصن غضٍّ طريٍ يحتاج إلى الرعاية والسقاية ليشتد عوده... تقبل تحياتي العطرة والسلام عليكم ورحمة الله وبركاته.
  12. السلام عليكم ...طل القمر أم طل الصقر تقبل تحياتي العطرة
  13. للرفع ...رفع الله قدركم .. جمالُ اللغةِ العربيةِ سئل أحدُهم : من أسعدُ الناسِ؟ فأجاب قائلاً: من أسعدَ الناسَ
  14. السلام عليكم ورحمة الله وبركاته أخي الكريم أبو أنس.. جزاكم الله خيرا على مروركم الكريم وكلامكم الطيب. تقبل تحياتي والسلام عليكم.
  15. السلام عليكم ورحمة الله وبركاته... إخوتي الكرام: بعد التفكير بطريقة للطباعة السريعة قمت بوضع الكود التالي في موديول: يقوم بالتصفية التلقائية ثم الطباعة ثم إلغاء التصفية لينتقل إلى الصنف التالي: ضمن مدى معين من الأصناف لكنني أرغب من علماء الإكسيل الكرام إيجاد إمكانية لتحديد مدى الأصناف من:..... إلى:...... وذلك بخلاف ما هو عليه الآن إذ يبدأ برقم وينتهي بنهاية الأرقام للأصناف... Private Sub CommandButton1_Click() Application.ScreenUpdating = False For I = 1 To 6 If ورقة6.Range("j1") = I And ورقة6.Range("j1") <> "" Then ورقة6.Range("g3") = I ورقة6.ListObjects("الجدول6").Range.AutoFilter Field:=6, Criteria1:= _ "<>" ورقة6.ListObjects("الجدول6").Range.AutoFilter Field:=1, Criteria1:= _ "<>" ورقة6.PrintOut Copies:=1 ورقة6.ListObjects("الجدول6").Range.AutoFilter Field:=1 ورقة6.ListObjects("الجدول6").Range.AutoFilter Field:=6 ورقة6.Range("j1") = الجدول6.Range("j1") + 1 End If Application.ScreenUpdating = True Next I End Sub فائق احترامي وشكري وتقديري والسلام عليكم ورحمة الله وبركاته... برنامج مخازن.rar
  16. السلام عليكم أستاذنا الفاضل نضال الشامي نحن بانتظار الدرس الرابع والثلاثون ...دروس ممتعة ومفيدة ...شاهدتها على اليوتيوب تقبل تحياتي العطرة
  17. السلام عليكم ورحمة الله وبركاته... أخي الحبيب عبد العزيز أعزك الله وبارك وبعمرك وعملك شكراً على كلماتٍ عطرة تبثها لي كما أرجو لك أن تكون مبرمجاً لامعاً على مستوى الوطن العربي..بل العالم فائق احترامي وشكري وتقديري والسلام عليكم ورحمة الله وبركاته...
  18. السلام عليكم ورحمة الله وبركاته... جزاكم الله خيرا أساتذتي وإخوتي الكرام على مساهماتكم الطيبة وإثرائكم لهذا الموضوع بطرح أفكاركم النيرة ... ولا أخفيكم أنني أفكر بـ :هل يمكن إدراج كود حلقة تكرارية لطباعة تقرير حركة الأصناف من الصنف رقم ...إلى الصنف رقم... وذلك بعد تصفية تلقائية للأيام التي تحتوي حركته في كل مرة لكل صنف..لتكون أسرع؟!. بدلا من طباعة كل صنف على حده كما هو في المرفق السابق(بداية البحث). ماجدوى هذه الفكرة؟.. والسلام عليكم.
  19. أخي الحبيب مختار حسين محمود السلام عليكم ورحمة الله وبركاته... جزاك الله خيرا على هذا المرور الكريم والكلمات العطرة...أسعد الله أوقاتكم بما يحب ويرضى وجعلكم من أهل البر والتقوى ...آمين والسلام عليكم ورحمة الله وبركاته...
  20. السلام عليكم ورحمة الله وبركاته... أخي الحببب محمد علي الطيب الذي اجتمعت في اسمه أفضل وأطيب الشمائل ... بارك الله بك وبمرورك العطر الذي تشرفت به السلام عليكم ورحمة الله وبركاته...
  21. أخى الحبيب الأستاذ الفاضل أحمد فضيلة السلام عليكم ورحمة الله وبركاته... جزاكم الله خيرا على كلماتكم ودعائكم الطيب وأسأل الله تعالى لنا ولكم أن يزيدكم من فضله وأن يجعل ذرياتكم صالحين ناصحين ..آمين. السلام عليكم ورحمة الله وبركاته...
  22. أستاذي الكريم حسام ميلكانا السلام عليكم جزاكم الله خيراً على الكلمات الطيبة والمشجعة...هذا من لطفكم ...شهادة أعتز بها والسلام عليكم.
  23. أخي الحبيب عبد العزيز السلام عليكم جزاكم الله خيراً على الكلمات الطيبة والدعم المعنوي الذي أعتبره دافعاً ومحفزاً...كلماتك الطيبة تبعث الدفء في قلبي المتعطش لهذه الأخوّة التي تخترق أقاصي الأرض لتحس أن لك أحباباً يتشوقون لكلمة طيبة ودعاء بظهر الغيب ....تقبل تحياتي العطرة والسلام عليكم
  24. السلام عليكم جزاكم الله خيرا أخي العزيز سعد أدعو الله أن يجعلك من سعداء الدارين ...آمين. شكرا على كلماتكم الطيبة....أحبك الله الذي أحببتني لأجله. والسلام عليكم ورحمة الله وبركاته.
  25. ولو أنا تقاربنا لكنَّا --- إلى العلياء دوماً في تسامي ولكنـا تجافينا فكـ --- ـان البعد منا في تنامي
×
×
  • اضف...

Important Information