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

وهذا حل ايضا بالكود على الرغم انك قد رافض هذا الأمر من البداية فلهذا موضوعك اخذ أكبر من وقته وحجمه فالموضوع ابسط من هذا بكثير -تفضل وذلك من خلال وضع هذا الكود بحدث الصفحة Private Sub Worksheet_Change(ByVal Target As Range) Dim xCellColumn As Integer Dim xTimeColumn As Integer Dim xRow, xCol As Integer Dim xDPRg, xRg As Range xCellColumn = 1 xTimeColumn = 2 xRow = Target.Row xCol = Target.Column If Target.Text <> "" Then If xCol = xCellColumn Then Cells(xRow, xTimeColumn) = Now() Else On Error Resume Next Set xDPRg = Target.Dependents For Each xRg In xDPRg If xRg.Column = xCellColumn Then Cells(xRg.Row, xTimeColumn) = Now() End If Next End If End If End Sub الحضور1.xlsm

تفضل لك ما طلبت New Microsoft Excel Worksheet1.xlsx

تفضل لك ما طلبت بهذا الكود Private Sub UserForm_Activate() UserForm1.Label1.Caption = Sheets("1").Range("B1").Value + Sheets("2").Range("B1").Value UserForm1.Label2.Caption = Sheets("1").Range("C1").Value + Sheets("2").Range("C1").Value UserForm1.Label3.Caption = Sheets("1").Range("D1").Value + Sheets("2").Range("D1").Value End Sub أحتساب عمود من شيتين في 2اليوزرفوم.xlsm

السلام عليكم ورحمة الله ربما تقصد هذا الشكل id 2.xlsm

أنظر الصور هل هذا هو المطلوب قارنها بالنتيجة لديك ..... هل اخراج النتيجة صحيحة ؟؟؟؟؟؟؟؟

مشاركه مع اخى العزيز @محمد احمد لطفى جزاه الله خيرا 💐 هل هذا ما تريد اخى @ازهر عبد العزيز ان كان فهذا ما اجابك به اخى واستاذى العزيز @kanory جزاه الله خيرا 💐 بالتوفيق اخى New Microsoft Access قاعدة بيانات.accdb

تفضل اخي الكريم 2003.rar تحياتي

أشكرك أخي الكريم @أحمد يوسف على هذا التفاعل البناء كما أشكر أخي الحبيب أيضاً @Ali Mohamed Ali على مروره العطر والسلام عليكم

تم معالجة الأمر MY_Company.xlsx

اذا كنت قد فهمت السؤال جيدا! المطلوب هذا الملف Company.xlsx

try this file Digit_sum.xlsx

أحسنت استاذ محمد وعود حميداً .. وحشتنا كتير بارك الله فيك وزادك الله من فضله ورحم الله والديك

أستاذ منير -لك كل الشكر , لا يمكن تثبيته أكثر من ذلك بناءاً على تعليمات وقواعد المنتدى

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

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

بعد اذن الأخ أمين هذا الملف adelalmalki.xlsm

تفضل لا تنسنى بصالح الدعاء المصنف2 .xlsm

السلام عليكم بعد اذن استاذي واخي @أحمد الفلاحجى هذا برنامج بسيط لحساب تاريخ استحقاق العلاوة السنوية بصورة تلقائية مع تنبيه بالوميض المتقطع بالالوان. وهو يعمل كالتالي: 1- ادخل تاريخ استحقاق اخر علاوة وهو يحسب الباقي لمدة سنه 2- عند وجود كتب شكر وتقدير للموظف يقوم البرنامج بعد اختيار عدد كتب الشكر والتقدير بتقديم تاريخ العلاوة لمده شهر او شهرين او ثلاثة كحد اقصى لمنح القدم حسب علمي. 3- عند اقتراب موعد استحقاق العلاوة ولمدة 5 ايام قبل تاريخ الاستحقاق يظهر وميض احمر متقطع للتنبيه 4- عند تساوي تاريخ الاستحقاق مع تاريخ اليوم (يجب ان يكون تاريخ جهاز الحاسوب مضبوط) يظهر الوميض المتقطع بلون ازرق. 5- عند انتهاء فترة الاستحقاق ولمده خمسة ايام يظهر الوميض بلون اخضر دلاله على انتهاء الاستحقاق. ملاحظه : يمكن عمل اضافات للبرنامج للخدمة الوظيفية (جمع الخدمة الكلية من تاريخ او مباشرة باليوم والشهر والسنه) او تاريخ استحقاق التقاعد لعمر 60 سنة تحياتي العلاوات.rar

شكر وتقدير واحترام من اخيك استاذى

جرب هذا الكود 1-يقوم بادراج قائمة منسدلة بدون تكرار ومرتبة ابجدياً 2-يعمل اوتوماتيكياً عند فتح الملف Option Explicit Private Sub Worksheet_Activate() Salim_Data_Val End Sub '+++++++++++++++++++++++++++++++++++ Sub Salim_Data_Val() Dim B As Worksheet, W As Worksheet Set B = Sheets("البيانات الرئيسية") Set W = Sheets("الوظيفة") Dim i#: i = 7 Dim arr Dim Laste_row# Laste_row = B.Cells(Rows.Count, "D").End(3).Row Dim rg As Object Set rg = CreateObject("System.Collections.Arraylist") With rg Do Until i > Laste_row If Not .Contains(UCase(B.Range("D" & i).Value)) _ And B.Range("D" & i) <> vbNullString Then _ .Add UCase(B.Range("D" & i).Value) i = i + 1 Loop .Sort arr = Join(.Toarray, ",") End With With W.Range("H2").Validation .Delete .Add xlValidateList, Formula1:=arr End With Set rg = Nothing: Set B = Nothing: Set W = Nothing End Sub الملف مرفق hamed_1.xls

أشكركم أخي الكريم @Ali Mohamed Ali حسن المتابعة تقبل تحياتي العطرة

وعليكم السلام ورحمة الله وبركاته اجعل قيمة xdate مخزنة في جدول بدلا من كتابتها في متغيير في vba تحياتي

أخي الكريم تم فتح شيت جديد لفلترة البيانات ضمنه تم استخدام كود بسيط للفلترة والآخر لمسح البيانات المفلترة كما تم جمع تلقائي لكل عمود في أعلاه ليسهل عليك استخدام ورقة ثانية لتنظيم ما تريد أما التصفية حسب التاريخ تم توسيع نطاق دالة VLOOKUP لتشمل بدء و انتهاء كل فترة ليتم حسابها سواء بالشهر أو ربع أو نصف ...إلخ أرجو أن يكون بداية توجه لمعرفة النتائج التي تريدها.وسيسهل عليك معرفتها بإذن الله تعالى. ربط فلتر الشهر مع معادلة لحساب مبالغ.xlsm

وعليكم السلام تجنباً لعدم اهدار وقت الأساتذة ولأنه لا يمكن العمل على التخمين , فقد نبهنا مئات المرات ان لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب مع وضع النتائج المرجوة حيث ان هذه المشاركة ما هى الا مضيعة واهدار لوقت كل من اطلع عليها دون جدوى أو أهمية ... فعليك بقراءة قواعد وتعليمات المنتدى قبل رفع المشاركات قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

وعليكم السلام ورحمة الله وبركاته جرب واعلمني بالنتيجة 2003.rar تحياتي

السلام عليكم تفضل اخي الكريم Private Sub Command12_Click() Dim rst As DAO.Recordset mySQL = "Select * From tab" mySQL = mySQL & " WHERE id Between " & [Forms]![Form1]![Text6] & " And " & [Forms]![Form1]![Text8] Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst For i = 1 To rst.RecordCount rst.Edit rst!num2 = Me.Text10 rst.Update rst.MoveNext Next Me.Child0.Requery End Sub Private Sub Command2_Click() Dim rst As DAO.Recordset mySQL = "Select * From tab" mySQL = mySQL & " WHERE id Between " & [Forms]![Form1]![Text6] & " And " & [Forms]![Form1]![Text8] Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst For i = 1 To rst.RecordCount rst.AddNew rst!num2 = Me.Text3 rst.Update rst.MoveNext Next Me.Child0.Requery End Sub D5.rar تحياتي

اذا تحقق ما تريد و حصلت على الجواب الشافي اضغط على أفضل اجابة ( علامة الـــ صح الى يمين اخر مشاركة لي ) لاغلاق الموضوغ

بشرك الله بالجنة أخي الحبيب أشكر لكم حرصك ومتابعتك وتواصلك

شكرا تم الحل d.accdb

وعليكم السلام ورحمة الله وبركاته أخي الكريم @إبراهيم ابوليله المحترم أما عن الطلب الأول فقد بحثت عنه وتحققت من أدائه أرجو أن تكون به الفائدة الأكواد منقولة من خلال البحث في النت للأمانة. أما عن الطلب الثاني فالإخوة الكرام أهل لذلك وزيادة (بكم البركة).... تقبل تحياتي العطرة. Option Explicit Dim Status As String Sub Main() Dim LastRow As Long, iRow As Long Dim FolderPath As String Dim wsApp As Worksheet Set wsApp = ThisWorkbook.Worksheets("App") With wsApp LastRow = .Cells(Rows.Count, "B").End(xlUp).Row FolderPath = .Range("FolderPath").Value If Dir(FolderPath, vbDirectory) = vbNullString Then MsgBox "Invalid Base Folder Provided.", vbExclamation Exit Sub End If If 6 > LastRow Then MsgBox "No item provided.", vbExclamation Exit Sub End If For iRow = 6 To LastRow If .Cells(iRow, "B").Value <> "" Then CreateFolder .Cells(iRow, "B").Value, FolderPath .Cells(iRow, "C").Value = Status End If Next iRow End With MsgBox "All folder created successfully.", vbInformation Set wsApp = Nothing End Sub Private Sub CreateFolder(ByVal SubFolder As String, ByVal BaseFolder As String) Dim strTemp As String Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Status = "" strTemp = CleanFolderName(SubFolder) If fso.FolderExists(BaseFolder & "\" & strTemp) Then Status = "Folder Exists Already" Else If Len(strTemp) > 0 Then MkDir BaseFolder & "\" & strTemp Status = "Success" End If End If Set fso = Nothing End Sub Public Function CleanFolderName(ByVal FolderName As String) As String Dim i As Long Dim strTemp As String For i = 1 To Len(FolderName) Select Case Mid(FolderName, i, 1) Case "/", "\", ":", "?", "<", ">", "|" strTemp = strTemp & "_" Case Else strTemp = strTemp & Mid(FolderName, i, 1) End Select Next i CleanFolderName = strTemp End Function إبراهيم أبو ليلة.xlsm

تم التعديل على الكود ليحلب البيانات من أي صف و ليس الخامس فقط Option Explicit Sub My_FindNext() Dim T As Worksheet, Sh As Worksheet Dim Opt_rg As Range, Sing_cel As Range Dim Find_Range, SH_rg As Range Dim My_rg As Range Dim Ro1%, m%, RO%, col% Dim mot Dim x As Boolean Dim Match As Boolean Dim arr(1 To 3) arr(1) = "data": arr(2) = "datac": arr(3) = "takrir": Set T = Sheets("takrir") RO = T.Cells(Rows.Count, 2).End(3).Row If RO < 4 Then RO = 4 T.Range("A4:j" & RO + 1).Clear Set Find_Range = T.Range("a2:J2").Find("*", Lookat:=1) If Find_Range Is Nothing Then MsgBox "not Found" Exit Sub End If m = 4 mot = Find_Range.Value: col = Find_Range.Column - 1 For Each Sh In Sheets Match = IsError(Application.Match(Sh.Name, arr, 0)) If Not Match Then GoTo Next_Sheet Set SH_rg = Sh.Range("A1:I10000").Columns(col) Set Find_Range = SH_rg.Find(mot, Lookat:=1) If Find_Range Is Nothing Then GoTo Next_Sheet Do While Not Find_Range Is Nothing If Not x Then Ro1 = Find_Range.Row x = True End If '============================================== If Opt_rg Is Nothing Then Set Opt_rg = Sh.Cells(Find_Range.Row, 1).Resize(, 9) Else Set Opt_rg = Union(Opt_rg, Sh.Cells(Find_Range.Row, 1).Resize(, 9)) End If Set Find_Range = SH_rg.FindNext(Find_Range) If Find_Range.Row = Ro1 Then Exit Do Loop If Not Opt_rg Is Nothing Then Opt_rg.Copy T.Cells(m, 2).PasteSpecial (12) T.Cells(m, 1) = Sh.Name Set Opt_rg = Nothing: m = T.Cells(Rows.Count, 2).End(3).Row + 2 Application.CutCopyMode = False x = False End If '======================================== Next_Sheet: Next Sh If m = 4 Then MsgBox "No Found Data" Exit Sub End If T.Rows(m - 1).Clear With T.Range("A4:J" & m - 2) .Borders.LineStyle = 1: .InsertIndent 1 .Font.Bold = True: .Font.Size = 14 .Interior.ColorIndex = 19 On Error Resume Next For Each Sing_cel In .Columns(2).SpecialCells(4) Sing_cel.Offset(, -1).Resize(, 10) _ .Interior.ColorIndex = 35 Next Sing_cel End With T.Activate: T.Range("A4").Select End Sub Abou hasan_ta33dil.xlsm

من أجل استثناء صفحات مغينة يمكن اضافة على الكود ما يلي حسب الصورة المرفق

وعليكم السلام , طالما انك لا تريد الحل بالأكواد .فلا يمكن عمل هذا الا بهذه المعادلة =IF(A2<>"",IF(AND(B2<>"",CELL("address")=ADDRESS(ROW(A2),COLUMN(A2))),NOW(),IF(CELL("address")<>ADDRESS(ROW(A2),COLUMN(A2)),B2,NOW())),"") الحضور1.xlsx

أحسنت استاذ محمد عمل ممتاز جعله الله فى ميزان حسناتك ورحم الله والديك ووسع الله فى رزقك وأكرمك الله فى أولادك

تفضل الدخول الى عدة مواقع من الاكسيل1.xlsm

وعليكم السلام -ولإثراء الموضوع وبعد اذن الأساتذة يمكنك استخدام هذه المعادلة =IFERROR(VLOOKUP($A2&"المجموع",القوائم!$A$2:$D$132,4,0),"") جمع القوائم تلقائيا1.xlsx

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

اهلا بك فى المنتدى , يمكنك هذا بالدالة المعرفة ConvertDate ... بوضع هذه المعادلة بالخلية D5 سحباً للأسفل وهذا هو كود الدالة Option Explicit Function ConvertDate(ByRef StringIn As String) As String Dim savedCal As Integer Dim d As Date Dim s As String savedCal = Calendar Calendar = 1 d = CDate(StringIn) Calendar = 0 s = CStr(d) ConvertDate = Format(s, "dd/mm/yyyy") Calendar = savedCal End Function المصنف1.xlsm

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

وعليكم السلام-يمكنك استخدام هذه المعادلة =INDEX($P$6:$P$20,MATCH("مؤكد",$F$7:$F$21,0)) الحالات المؤكدة1.xlsx

وعليكم السلام-يمكنك استخدام هذه المعادلة =COUNTIF($C$7:$C$12,E$6) تواتي 221.xlsx

يمكنك استخدام معادلة الصفيف هذه ولابد من الضغط على ctrol+Shift+Enter =IFERROR(INDEX($B:$B,SMALL(IF($A:$A=$K$5,ROW(A$3:A$5000)-ROW(A$3)+1),ROWS($L$5:L5))),"") البحث لاكثر من شرط1.xlsx

الغرض منه هو تنفيذ أمر بضغط زر من أي مكان فى البرنامج ، دون الارتباط بكائن معين 1- اذهب الي جموعة الماكرو 2- اختار ماكرو جديد 3- اضغط علي الأيقون الزي عليه أحرف xyz مثلما فى الصورة 4-سيظهر عمود جديد به اسم الماكرو 5-ضع فى العمود الزر الذي تريد استخدامه و هذه بعض الامثلة فى التعليمات عن طريقة كتابة الزر طريقة الكتابة ---> ما تدل عليه ^A or ^4 ---> CTRL+A or CTRL+4 {F1} ---> F1 ^{F1} ---> CTRL+F1 +{F1} ---> SHIFT+F1 {INSERT} ---> INS ^{INSERT} ---> CTRL+INS +{INSERT} ---> SHIFT+INS {DELETE} or {DEL} ---> DEL ^{DELETE} or ^{DEL} ---> CTRL+DEL +{DELETE} or +{DEL} ---> SHIFT+DEL 6- إختار الفعل الذي تريد تخصيصه لكل زر 7- أحفظ الماكرو باسم autokeys يمكن اضافة مجموعة من ضغطات المفاتيح و لكل منها الفعل الخاص بها كما فى الصورة

جرب هذا الكود Sub DeleteEmptyRowsAndColumns() x = ActiveSheet.UsedRange.Row - 1 y = ActiveSheet.UsedRange.Rows.Count LastRow = x + y Application.ScreenUpdating = False For r = LastRow To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r m = ActiveSheet.UsedRange.Column - 1 n = ActiveSheet.UsedRange.Columns.Count LastColumn = m + n For c = LastColumn To 1 Step -1 If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete Next c Application.ScreenUpdating = True End Sub

مما قرأت للشيخ / ناصر بن محمد الأحمد ، فيها تذكرة وعبرة وعظة يقول الشيخ ... إن الحمد لله... أما بعد: أيها المسلمون: المصائب أمر لا بد منها. من منا -أيها الأحبة- لم تنـزل به مصيبة أو يتعرض لمشكلة؟ من لم يفقد حبيباً أو يخسر تجارة أو يتألم لمرض ونحوه؟. لقد ضرب النبي -صلى الله عليه وسلم- مثلاً معبراً للمؤمن في هذه الحياة، فقال: ((مثل المؤمن كمثل الزرع لا تزال الريح تميله، ولا يزال المؤمن يصيبه البلاء، ومثل المنافق كمثل شجرة الأَرْزِ لا تهتز حتى تُستحصد)) [رواه مسلم]. لقد اختلطت جذور الزرع في الأرض وتماسكت، فالريح وإنْ أمالته لا تطرحه ولا تكسره ولا تسقطه. وكذلك المؤمن فإنّ المصائب وإنْ آلمته وأحزنته فإنها لا يمكن أنْ تهزمه أو تنال من إيمانه شيئاً، ذلك أنّ إيمانه بالله عاصمُه من ذلك. وهذه الدنيا مليئة بالحوادث والفواجع، والأمراض والقواصم، فبينا الإنسان يسعد بقرب عزيز أو حبيب إذا هو يفجع ويفاجأ بخبر وفاته، وبينا الإنسان في صحة وعافية وسلامة وسعة رزق إذا هو يُفجع ويفاجأ بمرض يكدر حياته ويقضي على آماله، أو بضياع مال، أو وظيفة تذهب معه طموحاته، وتفسد مخططاته ورغباته. في هذه الدنيا منح ومحن، وأفراح وأتراح، وآمال وآلام، فدوام الحال من المحال، والصفو يعقبه الكدر، والفرح فيها مشوب بترح وحذر. وهيهات أنْ يضحك من لا يبكي، وأنْ يتنعّم من لم يتنغَّصْ، أو يسعدَ من لم يحزنْ!. هكذا هي الدنيا، وهذه أحوالها، وليس للمؤمن الصادق فيها إلا الصبر، فذلكم دواء أدوائها. قال الحسن -رحمه الله-: "جرَّبْنا وجرَّب المجرِّبون فلم نر شيئاً أنفع من الصبر، به تداوى الأمور، وهو لا يُداوى بغيره". وما أعطي أحد عطاء خيراً أوسع من الصبر، وكان أمر المؤمن من بين الناس أمراً عجيباً لأنّه ((إنْ أصابته سراءُ شكر فكان خيراً له، وإن أصابته ضراءُ صبر فكان خيراً له)) -كما صح ذلك عن رسول الله صلى الله عليه وسلم-. أيها المسلمون: أمرنا الله بالصبر، وجعله من أسباب العون والمعيّة الإلهية، فقال سبحانه: {يَا أَيُّهَا الَّذِينَ آمَنُواْ اسْتَعِينُواْ بِالصَّبْرِ وَالصَّلاَةِ إِنَّ اللّهَ مَعَ الصَّابِرِينَ} [(153) سورة البقرة] ثم أخبر مؤكِّداً أنّ الحياة محل الابتلاء بالخوف والجوع ونقص الأرزاق والأموال والأنفس والثمرات، وأطلق البشرى للصابرين، وأخبر عن حالهم عند المصائب، وأثبت جزاءهم، فقال: {وَلَنَبْلُوَنَّكُمْ بِشَيْءٍ مِّنَ الْخَوفْ وَالْجُوعِ وَنَقْصٍ مِّنَ الأَمَوَالِ وَالأنفُسِ وَالثَّمَرَاتِ وَبَشِّرِ الصَّابِرِينَ * الَّذِينَ إذَا أَصَابَتْهُم مُّصِيبَةٌ قَالُوا إنَّا لِلَّهِ وَإنَّا إلَيْهِ رَاجِعُونَ * أُوْلَئِكَ عَلَيْهِمْ صَلَوَاتٌ مِّن رَّبِّهِمْ وَرَحْمَةٌ وَأُوْلَئِكَ هُمُ الْـمُهْتَدُونَ} [(155-157) سورة البقرة]. فالصبر سبب بقاء العزيمة، ودوام البذل والعمل، وما فات لأحد كمال إلا لضعف في قدرته على الصبر والاحتمال، وبمفتاح عزيمة الصبر تُعالج مغاليق الأمور، وأفضل العُدَّة الصبر على الشدَّة. انتهى الإقتباس View the full article

يُرْوَى عَنْ مُعاذٍ رَضِيَ اللهُ عَنْهُ قوله : تَعَلَّمُوا العِلْمَ فإنّ تعلُّمَهُ لِلّهِ خَشْيَةً وَطَلَبَهُ عِبَادَةٌ ومُدَارَسَتَهُ تَسْبِيحٌ والبَحْثَ عنهُ جِهَادٌ وَتَعْلِيَمهُ مَنْ لا يَعْلَمُ صَدَقَةٌ وَبَذْلَهُ لأهْلِهِ قُرْبَةٌ وَهُوَ الأَنيِسُ في الوَحْدةِ والصاحِبُ في الخَلْوَةِ والدّلِيل على الدِّين والمُصَبِّرُ على السرَّاءِ الضَّرَّاءِ والوَزِيرُ عِندَ الإخِلاء والقَرِيبُ عندَ الغُرَباءِ وَمَنارُ سَبيلِ الجَنّةِ يَرْفَعُ اللهُ بِهِ أقْوَامًا فيجعلُهُمْ في الخَيْرِ قَادةً سادةً هُدَاةً يُقْتَدَى بهم أَدِلِّةً لِلْخَيرِ تُقْتَفَى آثارُهمْ وَتُرْمَقُ أَفْعالُهُمْ وَتَرْغَبُ الملائكةُ في خُلَّتِهمْ وبأَجنِحَتِهَا تمْسَحُهُمْ وَكُلُّ رَطْبِ ويابسٍ لهُمْ يَستغْفرُ حَتَّى حِيتَانُ البَحْرِ وَهَوامُّهُ وَسِبَاع البَرِّ وَأَنْعامُهُ والسَّماءُ وَنُجُومُها ، لأنَّ العِلْمَ حَيَاةُ القُلُوب مِنَ العَمَى وَنُورُ الأبْصَارِ مِنِ الظُلَمِ وَقوَّةُ الأبْدانِ مِنَ الضَّعْفِ يَبْلُغْ بِهِ العَبْدُ مَنَازلَ الأَبْرارِ والدَّرَجَاتِ العُلَى وَمُدَارَسَتُهُ بالقيام به يُطاع اللهُ عزَّ وجلَّ وَبِهِ يُعْبَدُ ، وَبِهِ يُوَحَّدُ ، وَبِهِ يُمَجَّدُ ، وَبِهِ يُتَوَرَّعُ ، وَبِهِ تُوصَلُ الأَرْحَامُ ، وَبِهِ يُعرفُ الحَلالُ والحرامُ ، وهو إمامٌ والعَمَلُ تابعُهُ يُلْهَمُهُ السُعداءُ وَيُحْرَمُهُ الأَشْقِياءُ . View the full article

أرشد النبي صلى الله عليه وسلم أمته إلى ما يعصمها من فتنة المسيح الدجال ، فقد ترك أمته على المحجة البيضاء ليلها كنهارها لا يزيغ عنها إلا هالك. ... View the full article

اللهم انا نسألك رضاك والجنة - ونعوذ بك من سخطك و النار

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

جميل جداً جداً ويصف الواقع