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

وهذا حل ايضا بالكود على الرغم انك قد رافض هذا الأمر من البداية فلهذا موضوعك اخذ أكبر من وقته وحجمه فالموضوع ابسط من هذا بكثير -تفضل وذلك من خلال وضع هذا الكود بحدث الصفحة 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

احسنت اخى @ledoledo وجزاك الله خيرا مشاركتك الحل لنستفيد بارك الله فيك 💐

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

جزاك الله خيرا استاذ محمد ..... اعجبنتي الفكرة👍

اخى محمد بارك الله فيك مشكرا على الاهتمام فى انتظار مشاركات اخرى تفى بالغرض تقبل تحياتى

أخي الكريم تم فتح شيت جديد لفلترة البيانات ضمنه تم استخدام كود بسيط للفلترة والآخر لمسح البيانات المفلترة كما تم جمع تلقائي لكل عمود في أعلاه ليسهل عليك استخدام ورقة ثانية لتنظيم ما تريد أما التصفية حسب التاريخ تم توسيع نطاق دالة 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 تحياتي

DoCmd.OpenReport "اسم التقرير", acViewPreview

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

كبف عرفت انه المطلوب حتى و لم تنزل الملف على الجهاز عندك

تفضل New Microsoft Access قاعدة بيانات (1).accdb

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

شكرا تم الحل 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

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

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

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

وعليكم السلام-يمكنك استخدام هذه المعادلة =SUMPRODUCT(($C$5:$C$956<>"الغاء")*($D$5:$D$956)) المجموع1.xlsx

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

بعد اذن اخى عبد الفتاح ,على الرغم اننا نبهنا كثيراً انه لابد من رفع ملف مدعوم بشرح كافى عن المطلوب فى كل مشاركة وذلك تجنباً لعدم اهدار وقت الأساتذة ولأنه لا يمكن العمل على التخمين ..فيمكنك استخدام هذا الكود Sub MergeExcelFiles() Dim fnameList, fnameCurFile As Variant Dim countFiles, countSheets As Integer Dim wksCurSheet As Worksheet Dim wbkCurBook, wbkSrcBook As Workbook fnameList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Choose Excel files to merge", MultiSelect:=True) If (vbBoolean <> VarType(fnameList)) Then If (UBound(fnameList) > 0) Then countFiles = 0 countSheets = 0 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set wbkCurBook = ActiveWorkbook For Each fnameCurFile In fnameList countFiles = countFiles + 1 Set wbkSrcBook = Workbooks.Open(Filename:=fnameCurFile) For Each wksCurSheet In wbkSrcBook.Sheets countSheets = countSheets + 1 wksCurSheet.Copy after:=wbkCurBook.Sheets(wbkCurBook.Sheets.Count) Next wbkSrcBook.Close SaveChanges:=False Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic MsgBox "Processed " & countFiles & " files" & vbCrLf & "Merged " & countSheets & " worksheets", Title:="Merge Excel files" End If Else MsgBox "No files selected", Title:="Merge Excel files" End If End Sub كما يمكنك الإستعانة بهذا الفيديو COMBINE Multiple Excel WORKBOOKS into One | ExcelJunction.com كما يمكنك استخدام هذا الكود أيضاً Sub ConslidateWorkbooks() 'Created by Sumit Bansal from https://trumpexcel.com Dim FolderPath As String Dim Filename As String Dim Sheet As Worksheet Application.ScreenUpdating = False FolderPath = Environ("userprofile") & "DesktopTest" Filename = Dir(FolderPath & "*.xls*") Do While Filename <> "" Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop Application.ScreenUpdating = True End Sub وهذا أيضاً كود ثالث لطلبك Sub mergeFiles() 'Merges all files in a folder to a main file. 'Define variables: Dim numberOfFilesChosen, i As Integer Dim tempFileDialog As fileDialog Dim mainWorkbook, sourceWorkbook As Workbook Dim tempWorkSheet As Worksheet Set mainWorkbook = Application.ActiveWorkbook Set tempFileDialog = Application.fileDialog(msoFileDialogFilePicker) 'Allow the user to select multiple workbooks tempFileDialog.AllowMultiSelect = True numberOfFilesChosen = tempFileDialog.Show 'Loop through all selected workbooks For i = 1 To tempFileDialog.SelectedItems.Count 'Open each workbook Workbooks.Open tempFileDialog.SelectedItems(i) Set sourceWorkbook = ActiveWorkbook 'Copy each worksheet to the end of the main workbook For Each tempWorkSheet In sourceWorkbook.Worksheets tempWorkSheet.Copy after:=mainWorkbook.Sheets(mainWorkbook.Worksheets.Count) Next tempWorkSheet 'Close the source workbook sourceWorkbook.Close Next i End Sub وفى هذا الرابط ايضاً عدة أكواد ستفيدك فى طلبك How to combine multiple workbooks into one master workbook in Excel?

اهلا بك فى المنتدى , يمكنك هذا بالدالة المعرفة 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

الغرض منه هو تنفيذ أمر بضغط زر من أي مكان فى البرنامج ، دون الارتباط بكائن معين 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 يمكن اضافة مجموعة من ضغطات المفاتيح و لكل منها الفعل الخاص بها كما فى الصورة

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع و تبدأ من جديد و تنتهى عندكم" بارك الله لكم ( فكرة المدونة هى سهولة الوصول و البحث فى المنتدى للذهاب الى ملف _ المدونه الاصدار الاول من هنا مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_سلسله تجميعيه ميديا فاير_MediaFire مركز تحميل طق طق مركز الخليج File Upload adyou.me uploadfiles Tinyupload wikisend filedropper dropcanvas

جرب هذا الكود 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

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

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