-
Posts
2,216 -
تاريخ الانضمام
-
Days Won
30
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو محمد حسن المحمد
-
السلام عليكم ورحمة الله وبركاته صورة توضح ربط التاريخين في ال Criteria بجدول تاريخي البدء والانتهاء ولذلك لا حاجة للكتابة بهما...تم إخفاؤهما..والدالة هي: =IF(C3="";"";">="&C3) =IF(C4="";"";"<="&C4) كما تم إعداد قوائم منسدلة لخلايا ال Criteria الباقية باستخدام التسمية للقوائم باستخدام المعادلة التالية: =OFFSET(متقدمة!$C$10;;;COUNTA(متقدمة!$C$10:$C$100)) وذلك كمتمم للتصفية المتقدمة لتلبي حاجتنا بشكل أسرع والسلام عليكم ورحمة الله وبركاته.
-
السلام عليكم أخي الحبيب سعد عابد جعلك الله من سعداء العابدين في الدنيا والآخرة..جزاكم الله خيرا على طيب كلماتكم وأشكركم على دعائكم لي.. وما أنا إلا بكم ومنكم..لم أخضع لدورات أو أتعلم على الحاسب إلا ما حصلته من أساتذتي الكرام في منتدى أوفيسنا...واسمح لي أن أخمن جواب سؤالك ريثما يجيب عنه أخونا الحبيب أبو البراء فيسعد بطلابه.. 1- Value: قيمة تاريخ البدء. 2- Value2:قيمة تاريخ الانتهاء. 3- ReDim:إعادة الحلقة التكرارية من جديد( وهذه لست متأكدا منها)..نرجو التدقيق في هذه الإجابات لننطلق منها. والسلام عليكم ورحمة الله وبركاته.
-
السلام عليكم ورحمة الله وبركاته بارك الله بكم أخي الحبيب أبو البراء ..جزاكم الله خيراً على مروركم العطر وكلماتكم الطيبة ..أرجو أن نؤدي بعض حقكم علينا فالمعلم الناجح دائماً يسعى نحو رفع مستوى تلامذته يسبر معلوماتهم يتابعهم يدقق ويصحح ويحفز ويشجع وهذا ما عهدناه بكم جزاكم الله خيراً ...حقيقة اطلعت على عدة دروس ومقاطع فيديو وسجلتها وطبقتها ثم قدمتها كوظيفة بيتية قبل الامتحان في مدرسة أوفيسنا الرائدة. . والسلام عليكم
-
بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه أما بعد: السلام عليكم ورحمة الله وبركاته ...إخوتي الكرام بعد أن اطلعت على دروس أخينا الحبيب ياسر خليل أبو البراء حول الفلترة المتقدمة وكذلك الفيديوهات التي تبين ذلك مشكوراً - جزاه الله خيراً على ما قدم ويقدم ولكم بمثله أيضاً - أردت أن أقدم لكم تصفية متقدمة بين تاريخين وفق عدة معايير ..بالكود حيث بإمكانك تحديد تاريخي البدء والانتهاء ..وأيضاً المعايير للتتغير تلقائياً وفق الكود في حدث الورقة كما يلي: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range(" l4:p4")) Is Nothing Then Call تصفية_متقدمة End If End Sub أما الكود الأساسي للتصفية المتقدمة فهو في حدث موديول وفق الآتي: Sub تصفية_متقدمة() ' مفتاح الاختصار: Ctrl+Shift+S ورقة1.Range("B9").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "متقدمة!Criteria"), CopyToRange:=Range("متقدمة!Extract"), Unique:=False End Sub هذا من ناحية الأكواد ،أما المعادلات ضمن معادلة صفيف Ctrl+Shift+Enter يقوم بالتصفية حسب التاريخ: =IFERROR(INDEX(B$10:B$25;SMALL(IF(($C$3<$B$10:$B25)*($C$4>=$B$10:$B25);ROW($B$10:$B25)-9);ROW(A1)));"") أرجو أن تكون به فائدة ومن كان لديه ما يثري الموضوع فليتحفنا بمشاركته مشكوراً ...لأنني أحب التعلم وإن لم أستطع إدراك الكثير والحمد لله على ما يسّر الله لنا والصلاة والسلام على سيد المرسلين والحمد لله رب العالمين ...والسلام عليكم. حمل الملف من هنا
-
الردود والاستفسارات عن سلسلة دروس الفيجوال بيسك دوت نت
محمد حسن المحمد replied to ياسر العربى's topic in منتدى الاكسيل Excel
-
الردود والاستفسارات عن سلسلة دروس الفيجوال بيسك دوت نت
محمد حسن المحمد replied to ياسر العربى's topic in منتدى الاكسيل Excel
السلام عليكم ورحمة الله وبركاته هل يمكنني العمل على 2010 دوت نت علماً أن 2012 لم يعمل مطلقاً بعد التحميل ...وكذلك الملفات عن الآلة الحاسبة لم يتعرف عليها البرنامج لأنها من برنامج أحدث -
التصفية المتقدمة بالأكواد Advanced Filter
محمد حسن المحمد replied to ياسر خليل أبو البراء's topic in منتدى الاكسيل Excel
السلام عليكم ما بال أقوام لا ينتبهون إلا لآخر مشاركة! . نذكر بأنفسنا عسى أن ننال من الدعاء جانباً. جزاكم الله خيراً ...يرجى الصعود مشاركتين فقط والسلام عليكم. -
صباح الخير اثبت حضورك بكلمة
محمد حسن المحمد replied to ياسر العربى's topic in المنتدى التقني العام و تطبيقات الأوفيس الأخرى
الظلم ظلمات يوم القيامة عن أبي ذر الغفاري رضي الله عنه ، عن النبي صلى الله عليه وسلم فيما يرويه عن ربِه عز وجل أنه قال : ( يا عبادي إني حرمت الظلم على نفسي ، وجعلته بينكم محرما فلا تظالموا ، يا عبادي كلكم ضال إلا من هديته ، فاستهدوني أهدكم ، يا عبادي كلكم جائع إلا من أطعمته ، فاستطعموني أُطعمكم ، يا عبادي كلكم عار إلا من كسوته ، فاستكسوني أكسكم ، يا عبادي إنكم تخطئون بالليلِ والنهار ، وأنا أغفر الذنوب جميعا فاستغفروني أغفر لكم ، يا عبادي إِنكم لن تبلغوا ضري فتضروني ، ولن تبلغوا نفعي فتنفعوني ، يا عبادي لو أن أولكم وآخركم وإنسكم وجنكم كانوا على أتقى قلب رجل واحد منكم ما زاد ذلك في ملكي شيئا ، يا عبادي لو أن أولكم وآخركم وإنسكم وجنكم كانوا على أفجرِ قلب واحد منكم ما نقص من ملكي شيئا ، يا عبادي لو أن أولكم وآخركم وإنسكم وجنكم قاموا في صعيد واحد فسألوني ، فأعطيت كل واحد مسألته ما نقص ذلك مما عندي إلا كما ينقص المخيط إذا أدخل البحر ، يا عِبادي إنما هي أعمالكم أحصيها لكم ثم أوفيكم إياها ، فمن وجد خيرا فليحمد الله ، ومن وجد غير ذلك فلا يلومن إلا نفسه ) رواه مسلم . الشرح بين يديك - أخي الكريم - أحد الأحاديث القدسية العظيمة ، التي يرويها لنا رسول الله صلى الله عليه وسلم عن رب العزة جل وعلا ، فتعال بنا نعيش مع هذا الحديث ، ونستظل بفيئه ، وننهل من عذبه الصافي . لقد بدأ الحديث بإرساء قواعد العدل في النفوس ، وتحريم الظلم والعدوان ، يقول النبي صلى الله عليه وسلم فيما يرويه عن ربه : ( يا عبادي إني حرمت الظلم على نفسي ، وجعلته بينكم محرما فلا تظالموا ) ، وحقيقة الظلم : وضع الشيء في غير موضعه ، وهذا مناف لكمال الله تعالى وعدله ، فلذلك نزّه الله تعالى نفسه عن الظلم فقال : { وما أنا بظلام للعبيد } ( ق : 29 ) ، وقال أيضا : { وما الله يريد ظلما للعباد } ( غافر : 31 ) . ولئن كان الله تعالى قد حرّم الظلم على نفسه ، فقد حرّمه على عباده ، وحذّرهم أن يقعوا فيه ؛ وما ذلك إلا لعواقبه الوخيمة على الأمم ، وآثاره المدمرة على المجتمعات ، وما ظهر الظلم بين قوم إلا كان سببا في هلاكهم ، وتعجيل العقوبة عليهم ، كما قال سبحانه في كتابه العزيز : { وكذلك أخذ ربك إذا أخذ القرى وهي ظالمة إن أخذه أليم شديد } ( هود : 102 ) ، ومن ثمّ كانت دعوة المظلوم عظيمة الشأن عند الله ، فإن أبواب السماء تفتح لها ، ويرفعها الله فوق الغمام يوم القيامة ، بل إنه سبحانه وتعالى يقول لها ( وعزتي لأنصرنك ولو بعد حين ) كما صح بذلك الحديث. ثم انتقل الحديث إلى بيان مظاهر افتقار الخلق إلى ربهم وحاجتهم إليه ، وذلك في قوله : ( يا عبادي كلكم ضال إلا من هديته ، فاستهدوني أهدكم ، يا عبادي كلكم جائع إلا من أطعمته ، فاستطعموني أُطعمكم ، يا عبادي كلكم عار إلا من كسوته ، فاستكسوني أكسكم ) ، فبيّن أن الخليقة كلها ليس بيدها من الأمر شيء ، ولا تملك لنفسها و لا لغيرها حولا ولا قوة ، سواءٌ أكان ذلك في أمور معاشها أم معادها ، وقد خاطبنا القرآن بمثل رائع يجسّد هذه الحقيقة ، حيث قال : { يا أيها الناس ضرب مثل فاستمعوا له إن الذين تدعون من دون الله لن يخلقوا ذبابا ولو اجتمعوا له وإن يسلبهم الذباب شيئا لا يستنقذوه منه ضعف الطالب والمطلوب } ( الحج : 73 ) أي : إذا أخذ الذباب شيئا من طعامهم ثم طار ، وحاولوا بكل عدتهم وعتادهم أن يخلصوا هذا الطعام منه ما استطاعوا أبدا ، فإذا كان الخلق بمثل هذا الضعف والافتقار ، لزمهم أن يعتمدوا على الله في أمور دنياهم وآخرتهم ، وأن يفتقروا إليه في أمر معاشهم ومعادهم . وليس افتقار العباد إلى ربهم مقصورا على الطعام والكساء ونحوهما ، بل يشمل الافتقار إلى هداية الله جل وعلا ، ولهذا يدعو المسلم في كل ركعة بـ : { اهدنا الصراط المستقيم } ( الفاتحة : 6 ) . ثم بيّن الله تعالى بعد ذلك حقيقة ابن آدم المجبولة على الخطأ ، فقال : ( يا عبادي إنكم تخطئون بالليلِ والنهار ، وأنا أغفر الذنوب جميعا ، فاستغفروني أغفر لكم ) ، إنه توضيح للضعف البشري ، والقصور الذي يعتري الإنسان بين الحين والآخر ، فيقارف الذنب تارة ، ويندم تارة أخرى ، وهذه الحقيقة قد أشير إليها في أحاديث أخرى ، منها : ما رواه الإمام ابن ماجة بسند حسن ، أن النبي صلى الله عليه وسلم قال : ( كل بني آدم خطاء ، وخير الخطائين التوابون ) ، فإذا كان الأمر كذلك فإن على الإنسان المسلم أن يتعهّد نفسه بالتوبة ، فيقلع عن ذنبه ، ويستغفر من معصيته ، ويندم على ما فرّط في جنب الله ، ثم يوظّف هذا الندم الذي يصيبه بأن يعزم على عدم تكرار هذا الذنب ، فإذا قُدّر عليه الوقوع في الذنب مرة أخرى ، جدد التوبة والعهد ولم ييأس ، ثقةً منه بأن له ربا يغفر الذنب ويقبل التوبة من عباده المخطئين . ثم بين لنا رسول الله صلى الله عليه وسلم - فيما يرويه عن ربّه - شيئا من مظاهر الكمال الذي يتصف به الله جل وعلا ، مبتدئا بالإشارة إلى استغناء الله عن خلقه وعدم احتياجه لهم ، كما قال تعالى : { يا أيها الناس أنتم الفقراء إلى الله والله هو الغني الحميد } ( فاطر : 15 ) ، فالله تعالى غني حميد ، لا تنفعه طاعة عباده ، ولا تضره معصيتهم ، بل لو آمن من في الأرض جميعا ، وبلغوا أعلى مراتب الإيمان والتقوى ، لم يزد ذلك في ملك الله شيئا ، ولو كفروا جميعا ، ما نقص من ملكه شيئا ، لأن الله سبحانه وتعالى مستغن بذاته عن خلقه ، وإنما يعود أثر الطاعة أو المعصية على العبد نفسه ، وقد جاء في القرآن الكريم ما يؤكد هذه الحقيقة ويوضحها ، قال الله عزوجل : { قد جاءكم بصائر من ربكم فمن أبصر فلنفسه ومن عمي فعليها } ( الأنعام : 104 ) ، فمن عرف حجج الله وآمن بها واتبعها ، فقد بلغ الخير لنفسه ، ومن تعامى عن معرفة الحق ، وآثر عليها ظلمات الغواية ، فعلى نفسه جنى ، وأوردها الردى . وبالرغم من ذلك فإن نعم الله سبحانه مبثوثة للطائع والعاصي على السواء ، دون أن يجعل تلك المعاصي مانعا لهذا العطاء ، وهذا من كرم الله تعالى وجوده ، وهي أيضا مظهر من مظاهر سعة ملك الله تعالى ، فإن الله لو أعطى جميع الخلق ما يرغبون ، لم ينقص ذلك من ملكه شيئا يُذكر. ولما كانت الحكمة من الخلق هي الابتلاء والتكليف ، بيّن سبحانه أن العباد محاسبون على أعمالهم ، ومسؤولون عن تصرفاتهم ، فقد جعل الله لهم الدنيا دارا يزرعون فيها ، وجعل لهم الآخرة دارا يجنون فيها ما زرعوه ، فإذا رأى العبد في صحيفته ما يسرّه ، فليعلم أن هذا محض فضل الله ومنّته ، إذ لولا الله تعالى لما قام هذا العبد بما قام به من عمل صالح ، وإن كانت الأخرى ، فعلى نفسها جنت براقش ، ولا يلومنّ العبد إلا نفسه. -
الردود والاستفسارات عن سلسلة دروس الفيجوال بيسك دوت نت
محمد حسن المحمد replied to ياسر العربى's topic in منتدى الاكسيل Excel
أخي الغالي " ياسر العربي" .. اتفقنا عليك ...فما أنت فاعل؟!. أخي الحبيب" عبد العزيز البسكري " ..من عجائب القدر رجعت للتحميل الآن وإذ تحميل البارحة يكاد يصل إلى 97.25% ولا أدري هل أقوم بتسطيبه أم به مشاكل كما ذكرت.. "سبحان من يحيي العظام وهي رميم" والسلام عليكم. -
الردود والاستفسارات عن سلسلة دروس الفيجوال بيسك دوت نت
محمد حسن المحمد replied to ياسر العربى's topic in منتدى الاكسيل Excel
-
التصفية المتقدمة بالأكواد Advanced Filter
محمد حسن المحمد replied to ياسر خليل أبو البراء's topic in منتدى الاكسيل Excel
السلام عليكم ورحمة الله وبركاته كنت أبحث عن فلترة متقدمة للبيانات على النت واهتديت إلى هذه المشاركة القيمة ...إلا أنني أود أن تكون (بين تاريخين ) بدء وانتهاء وما أعجبني أكثر هو الاستغناء عن الشكل المرتبط به الكود والعمل على الفلترة بمجرد كتابة Criteria المعايير رجاء تسجيل فيديو يتعلق بالتصفية المتقدمة بالأكواد بين تاريخين. جزاكم الله خيراً وأحسن إليكم والسلام عليكم. -
السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً وبارك بكم على هذا التناغم في العمل ..كلٌّ يعطي ...والنتيجة فائدة للجميع بارك الله بجهودكم.
-
السلام عليكم ورحمة الله وبركاته عمل ومجهود كبير ..جزاكم الله خيراً أخي الحبيب أبو البراء قمتم بتحليل الرقم القومي إلى مكوناته بشكل دقيق ...هل يمكن تطبيقه على شتى الأمصار العربية أم على مصر واحدة. والفكرة الأدهى كيف أمكنهم تكوين "تركيب مكوناته من تاريخ ميلاد وجنس مولود ومحافظة".. والسلام عليكم ورحمة الله وبركاته.
-
الردود والاستفسارات عن سلسلة دروس الفيجوال بيسك دوت نت
محمد حسن المحمد replied to ياسر العربى's topic in منتدى الاكسيل Excel
بسم الله والصلاة والسلام على رسول الله الحمد لله الذي علم بالقلم علم الإنسان ما لم يعلم .. أما بعد: إخوتي الكرام السلام عليكم ورحمة الله وبركاته...الحمد لله أن عدنا إلى المصطبة التي قضينا فيها أياما تتسم بالجمال وتتألق بأنوار المحبة أشكرك أخي أبو أسيل على لم شملنا من جديد وكما يقال مكان الضيق يسع ألف صديق..والحمد لله أن أبو البراء معنا تسعه قلوبنا قبل المصطبة..وهاهم إخوتي الأحبة عبد العزيز وأبو بسملة يجهزون أنفسهم وكتبهم لاستقبال الدراسة بكل اهتمام ..بيوتكم عامرة بالخير..وقلوبكم مفعمة بالمحبة الصافية....ولكن الخوف من تحميل دوت نت 12 حيث سيحتاج 12 ساعة تحميل وحجمه 5 غيغا بايت كما شاهدت مشاركات إخوتي .. بارك الله بكم وعلى بركة الله .. والسلام عليكم. -
طلب تعديل كود للترقيم التلقائي
محمد حسن المحمد replied to محمد عبدالسلام's topic in منتدى الاكسيل Excel
السلام عليكم أخي الحبيب محمد عبد السلام عليكم...بارك الله بكم..وددت أن يكون لإخوته أيضا حظا من هذا الدعاء الذي يقشعر له البدن...وفق الله أخانا أبو البراء لإرضائه عنه بهذا العلم الذي يبسطه بين أيدينا...جزاكم الله خيرا والسلام عليكم. -
السلام عليكم ورحمة الله وبركاته الأكواد في حدث المصنف WorkBook Option Explicit Private Sub Workbook_Open() 'Test To Ensure Access Is Allowed (For 2002 Onward) If Application.Version > 9 Then Dim VisualBasicProject As Object On Error Resume Next Set VisualBasicProject = ActiveWorkbook.VBProject If Not Err.Number = 0 Then MsgBox "Your Current Security Settings Do Not Allow The Code In This Workbook " & vbNewLine & _ " To Work As Designed And You Will Get Some Error Messages." & vbNewLine & vbNewLine & _ "To Allow The Code To Function Correctly And Without Errors You Need" & vbNewLine & _ " To Change Your Security Setting As Follows:" & vbNewLine & vbNewLine & _ " 1. Select Tools - Macro - Security." & vbNewLine & _ " 2. Click The 'Trusted Sources' Tab" & vbNewLine & _ " 3. Place A Checkmark Next To 'Trust Access To Visual Basic Project.'" & vbNewLine & _ " 4. Save - Then Close And Re-open The Workbook", vbCritical End If End If 'Disable The Esc Key And Start Timer Application.EnableCancelKey = xlDisabled Run "StartTimer" End Sub 'All Subs And Event Procedures Should Have Run "DisableTimer" At The Head 'Of The Code And Run "StartTimer" At The End As Per The Examples Below. Private Sub Workbook_SheetCalculate(ByVal Sh As Object) Run "DisableTimer" Run "StartTimer" End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Run "DisableTimer" Run "StartTimer" End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) Run "DisableTimer" Run "StartTimer" End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Run "DisableTimer" Run "StartTimer" End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Run "DisableTimer" End Sub أما الموديول: Option Explicit Public IdleTime As Date Private Sub DeleteAllVBA() 'NOTE: The Following Procedures Run Every 5 Seconds, So We Want Execution Time 'To Be As Short A Time As Possible So That They Doesn't Interfere Unduly With Normal 'Workbook Operation, So Delete All Comments, Indenting, And Blank Lines In These 'Three Procedures When Finished. '------------------------------------------------------------------------------------ With ThisWorkbook If Sheet1.[A1] = "123" And .BuiltinDocumentProperties("Comments") = "123" Then 'In This Case Both Passwords Are Entered Correctly, So 'The Timer And The Rest Of This Procedure Are Redundant Run "DisableTimer" Exit Sub Else If .VBProject.Protection = 0 Then 'Unlocked Run "DisableTimer" 'Use Late Binding So No GUID Reference Is Needed Dim Component As Object 'Delete All VBA For Each Component In .VBProject.VBComponents With Component.CodeModule .DeleteLines 1, .CountOfLines End With Next Component 'Save And Close To 'Fix' The Changes .Save MsgBox "Sorry! An Incorrect Password Was Entered - All VBA Code Deleted - Re-enter Password To Check...)" Workbooks.Open (.FullName) '< Open 2nd Instance Of Saved Book .Close '< Close The 1st Instance Else 'Restart The Timer If The Project's Locked Run "StartTimer" End If End If End With Exit Sub End Sub Private Sub StartTimer() 'This Procedure Interferes With Work In The VBE If Accidentally Set Running, 'So We Disable It So The Developer Can Work There Uninterrupted... If Sheet1.[A1] = "123" And ThisWorkbook.BuiltinDocumentProperties("Comments") = "123" Then Exit Sub '<< Set Your Own Idle Time Below >> IdleTime = Now + TimeValue("00:00:05") Application.OnTime IdleTime, "DeleteAllVBA" End Sub Private Sub DisableTimer() On Error Resume Next Application.OnTime EarliestTime:=IdleTime, Procedure:="DeleteAllVBA", Schedule:=False End Sub قمت بنسخها ثم بعد إرفاقها جربت الملف وفتحه بكلمة السر ...كل ما ترونه بأعينكم أصبح في خبر كان كل هذه الكمية الهائلة من الأكواد والشروط أصبحت أثراً بعد عين ...بل لم يعد لها أثر ...ماهذا حتى الأثر زال ...عفوك يارب ...أين جثته ..رميمه ...تبخر...زال ...سبحان الذي أبدع العقول أما من سيكتشف ويسبر أغوارها فهم المختصون أمثالكم أيها الكرام والسلام عليكم.
-
صباح الخير اثبت حضورك بكلمة
محمد حسن المحمد replied to ياسر العربى's topic in المنتدى التقني العام و تطبيقات الأوفيس الأخرى
الصحابي الجليل عمير بن الحمام(رضي الله عنه): في غزوة بدر كان الرسول (صلى الله عليه وآله وسلم) ينادي في المؤمنين ويحمس اصحابه قائلا: "قوموا إلى جنة عرضها السماوات والأرض". فلما سمع هذه الجملة الصحابي عمير بن الحمام رضي الله عنه قال متعجباً {عرضها السماوات والأرض} .. فأجابه رسول الله صلى الله عليه وآله سلم قائلا: {نعم} تلقى عمير رضي الله عنه تلقى الإجابة بسعادة غامرة وحماس منقطع النظير قائلا "بخ بخ" فقال رسول الله صلى الله عليه وسلم ما يحملك على قول بخ بخ هل عندك شك في هذا. فأسرع عمير يقول : لا والله يارسول الله ما قلتها إلا رجاءً أن أكون من أهلها. فقال رسول الله صلى الله عليه وسلم {فإنك من أهلها} في هذه اللحظة علم عمير أنه من أهل الجنة والذي يفصل بينه وبين الجنة الموت فقط لم يعد يستطيع أن يعيش لحظة على ظهر هذه الأرض وكان يمسك بيده بعض التمرا ليتقوى بها على القتال فنظر في هذه التمرات وفكر وللحظة تخيل الفرق بين هذه التمرات وثمار الجنة وطيور الجنة وشراب الجنة وحوض الرسول عليه الصلاة والسلام في الجنة فألقى بالتمرات على الأرض وقال {لإن أنا حييت حتى آكل تمراتي هذه إنها لحياة طويلة } وألقى بنفسه وسط الجموع الكافرة واستشهد رضي الله عنه. -
برنامج بنك الاكواد للفيجوال بيسك Visual Basic 6
محمد حسن المحمد replied to موضوع in منتدى الاكسيل Excel
السلام عليكم ورحمة الله وبركاته أخي الكريم أبو صهيب..جزاكم الله خيرا على هذه الأعمال المميزة والتي تساهم بمساعدة الآخرين..والله في عون العبد ما كان العبد في عون أخيه...غدا إن شاء الله تعالى سأقوم بتنزيله... تقبل تحياتي العطرة والسلام عليكم ورحمة الله وبركاته. -
أخي الحبيب أبو يوسف بارك الله فيك وجزاك الله كل خير على الحلول المميزة وأرجو أن تكون قد استفدت من موضوع البحث لهذا الأسبوع .. فقد كان درس خصوصي لحبيبي الغالي أبو يوسف السلام عليكم ورحمة الله أخي الحبيب أبو البراء شرف لي أن أكون طالبا في مدرستكم النموذجية الرائدة ...استمتعت حقا بهذا الدرس حتى أصبح بودي ألا أفارق أوفيسنا أريد اغتنام هذه البقية الباقية من الحياة في طلب العلم إرضاء لله تعالى ثم محبة بكم والسلام عليكم.