الصورة الثانية:عن ابن عمر رضي الله عنهما ( أن امرأة وجدت في بعض مغازي رسول الله صلى الله عليه وسلم مقتولة. فأنكر رسول الله صلى الله عليه وسلم قتل النساء والصبيان) رواه البخاري ومسلم. وفي رواية لهما ( وجدت امرأة مقتولة في بعض تلك المغازي. فنهى رسول الله صلى الله عليه وسلم عن قتل النساء والصبيان). الصورة الثالثة:عن أنس بن مالك رضي الله عنه: كان غلام يهودي يخدم النبي صلى الله عليه وسلم فمرض ، فأتاه النبي صلى الله عليه وسلم يعوده ، فقعد عند رأسه ، فقال له:( أسلم). فنظر إلى أبيه وهو عنده ، فقال له: أطع أبا القاسم صلى الله عليه وسلم ، فأسلم ، فخرج النبي صلى الله عليه وسلم وهو يقول:( الحمد لله الذي أنقذه من النار) رواه البخاري. الصور الرابعة:عن عبد الله بن عمرو رضي الله عنهما أن النبي صلى الله عليه وسلم قال: (من قتل نفسا معاهدا لم يرح رائحة الجنة ، وإن ريحها ليوجد من مسيرة أربعين عاما) رواه البخاري. الصورة الخامسة:عن بريدة بن الحصيب رضي الله عنه عن النبي صلى الله عليه وسلم أنه كان إذا أمر أمير على جيش أو سرية ، أوصاه خاصته بتقوى الله ومن معه من المسلمين خيرا. رحمه النبي صلي الله عليه وسلم اختصارات. ثم قال ( اغزوا باسم الله. وفي سبيل الله.
فقال: عندي خير يا محمد ، إن تقتلني تقتل ذا دم ، وإن تنعم تنعم على شاكر ، وإن كنت تريد المال ، فسل منه ما شئت. فترك حتى كان الغد ، فقال: ( ما عندك يا ثمامة). فقال: ما قلت لك ، إن تنعم تنعم على شاكر فتركه حتى كان بعد الغد فقال: ما عندك يا ثمامة فقال: عندي ما قلت لك فقال: ( أطلقوا ثمامة).
الصورة الثانية عشرة:عن جابر بن عبد الله رضي الله عنهما أنهم قالوا: يا رسول الله! أحرقتنا نبال ثقيف ، فادع الله عليهم. فقال:( اللهم اهد ثقيفا) رواه الترمذي بسند صحيح.
روى البخاري ومسلم عن أبي هريرة ـ رضي الله عنه ـ أن النبي ـ صلى الله عليه وسلم ـ قال: " اللهم إنما محمد بشر يغضب كما يغضب البشر، وإني قد اتخذت عندك عهدًا لن تُخْلِفَنِيهُ، فأيما مؤمن آذيته أو سببْته أو جلدته فاجعلها له كفارة وقربة تُقرِّبه بها إليك يوم القيامة "، وفي رواية لمسلم: " فأيُّما أحد دعوت عليه من أمتي بدعوة ليس هو لها بأهل … ". صور من رحمة النبي صلى الله عليه وسلم بغير المسلمين - الكلم الطيب. فإن قيل: كيف يدعو بدعوة على مَن ليس لها بأهل؟ قيل ـ كما نقله ابن حجر عن المازري ـ المراد ليس بأهل لذلك عند الله في باطن الأمر لا على ما يظْهر مما يَقْتضِيه حاله وجنايته حين دعا عليه، فكأنَّه يقول من كان في باطن أمره عندك ممَّن ترضى عنه فاجعل دعوتي عليه ـ التي اقتضاها ما ظهر لي من مُقْتضى حاله حينئذ ـ طهورًا وزكاة. وهذا صحيح لأن الرسول متعبِّد بالظواهر وحساب الناس في البواطن على الله. وما فعله كان اجتهادًا، أو لم يكن مقصودًا، بل هو مما جرت به عادة العرب في كلامها بلا نية، كقوله لغير واحد: " تَرِبَتْ يَمِينُكَ"، وهذا نادر من النبي فهو لم يكن فاحشًا ولا متفحِّشًا ولا لعَّانًا ولا مُنتقمًا لنفسه " الزرقاني على المواهب ج5 ص 241 ". وفي تفسير القرطبي " ج10 ص 226 ": أن النبي ـ صلى الله عليه وسلم ـ سَلَّمَ أسيرًا إلى أمِّ المؤمنين سودة، فبات يَئِنُّ، فسألته فقال: أنيني لشدة القِدَّ والأسر، فأرخت من كتافه، فلما نامت هَرَب، فأخبرت النبي ـ صلى الله عليه وسلم ـ فقال: "قَطَعَ اللَّهُ يَدَيْكِ "، فلما أصبحت كانت تتوقع الآفة، فقال ـ صلى الله عليه وسلم ـ: " إني سألت الله أن يجعل دعائي على من لا يستحق من أهلي رحمة؛ لأني أغضب كما يغضب البشر"، ونزلت الآية: ( وَيَدْعُ الإِنسَانُ بِالشَّرِّ دُعَاءَهُ بِالخَيْرِ وَكَانَ الإِنْسَانُ عَجُولًا) (سورة الإسراء: 11).
الصورة الثانية عشرة: عن جابر بن عبد الله رضي الله عنهما أنهم قالوا: يا رسول الله! أحرقتنا نبال ثقيف ، فادع الله عليهم. فقال: اللهم اهد ثقيفا) رواه الترمذي بسند صحيح.
معرفة المزيد عن برنامج سيلز اب المحاسبي تحميل برنامج سيلز اب المحاسبي ثانياً استخدام دالة التفقيط دالة التفقيط هي دالة لا غني عنها لدي مستخدمين الأكسيل، فمن خلالها يستطيعون تلقائياً تحويل اي رقم الي نص مكتوب (التفقيط). دالة تفقيط الاعداد على برنامج اكسل كيفية تفقيط الارقام باللغة الانجليزية في الاكسيل Excel Excelافتح ملف Excel جديد ثم اذهب إلى التبويب Developer واضغط على Visual Basic او الضغط علي ALT +F11 سيتم فتح نافذة Microsoft Visual Basic قم بالضغط بزر الماوس الأيمن (كليك يمين) على اسم المشروع, ستظهر قائمة قم بالوقوف على الاختيار Insert ومن القائمة الفرعية قم بالضغط علي ادراج Module لاضافة وحدة برمجية جديدة. سيتم اضافة وحدة برمجية جديدة باسم Module1 فى نافذة كود Module1 ثم احفظ الملف بصيغة Excel Macro-Enabled Workbook الموجودة فى الجانب الأيمن ثم قم بنسخ ولصق الكود التالى: Attribute VB_Name = "wesame" Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber) Dim Dollars, cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " ' String representation of amount.
بشكل أساسي ، يمكنك إخفاء الكلمة الرئيسية وإرجاع قيمة مناسبة مباشرة. هذا التكتيك مفيد إذا كان لا يمكن تخزين القيمة في جدول بحث مسبق. function foo(mm) { case '1': return 'January'; case '2': return 'February'; case '3': return 'March'; case '4': return 'April'; // [... ] case '12': return 'December';} return '';} مرة أخرى ، فإن استخدام جدول البحث أو دالات التاريخ أكثر وضوحا وأفضل بشكل ذاتي. ماذا عن عدم استخدام مجموعة على الإطلاق:) var objDate = new Date("10/11/2009"), locale = "en-us", month = LocaleString(locale, { month: "long"}); (month); // or if you want the shorter date: (also possible to use "narrow" for "O" (LocaleString(locale, { month: "short"})); وفقا لهذه الإجابة على اسم شهر من تاريخ من ديفيد ستوري يمكنك أن تكتبها كتعبير بدلاً من مفتاح تبديل ، باستخدام عوامل تشغيل شرطية: var month = mm == 1? 'January': mm == 2? 'February': mm == 3? 'March': mm == 4? 'April': mm == 5? 'May': mm == 6? 'June': mm == 7? 'July': mm == 8? 'August': mm == 9? 'September': mm == 10? 'October': mm == 11?
مثال 1 مثال 2 مثال 3 مثال 4 مثال 5 ملحوظة: قم بحفظ الملف على صيغة Excel Macro-Enabled Workbook لأنه يحتوى على كود VBA
عملية تحويل الأرقام إلى حروف أو ما يسميها البعض عملية التفقيط نحتاجها فى عملنا فى الكثير من المواقف مثل: – عند عمل فاتورة وكتابة اجمالى مبلغ الفاتورة بالأرقام والحروف. – عند عمل شيك وكتابة مبلغ الشيك بالأرقام والحروف. برنامج Excel يحتوى على الكثير من الدوال التى تسهل عليك العمل, مثلا دالة SUM لحساب المجموع, و دالة COUNT لحساب عدد الخلايا التى تحتوى على أرقام, و دالة MAX لحساب أكبر قيمة …. وهكذا لكن للأسف لا يوجد دالة جاهزة فى برنامج Excel تقوم بتحويل الأرقام إلى حروف, لذا عليك بعمل هذه الدالة بنفسك, ولعمل دالة مخصصة لابد من كتابة كود VBA وهذا ما سنقوم بتعلمه فى هذا الدرس. افتح ملف Excel جديد ثم اذهب إلى التبويب Developer واضغط على Visual Basic سيتم فتح نافذة Microsoft Visual Basic قم الأن بالضغط بزر الماوس الأيمن على اسم المشروع, ستظهر قائمة مختصرة قم بالوقوف على الاختيار Insert ومن القائمة الفرعية قم بالضغط على Module لاضافة وحدة برمجية جديدة.
'November': mm == 12? 'December': ''; إذا لم تشاهد المشغلين الشرطيين المتشابكين قبل ذلك قد يبدو من الصعب قراءتها في البداية. كتابة ذلك كتعبير يجعل من السهل رؤية أحد الجوانب أكثر من الرمز الأصلي ؛ من الواضح أن الغرض من الرمز هو تعيين قيمة month المتغير. يمكنك إنشاء مصفوفة بدلاً من ذلك والبحث عن اسم الشهر: var months = ['January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December'] var month = months[mm-1] || ''; انظر إجابةCupawnTae للعقلاني وراء الكود || '' || '' var getMonth=function(month){ //Return string to number. var strMonth = ['January', 'February', 'March', 'November', 'December']; //return number to string. var intMonth={'January':1, 'February':2, 'March':3, 'April':4, 'May':5, 'June':6, 'July':7, 'August':8, 'September':9, 'October':10, 'November':11, 'December':12}; //Check type and return return (typeof month === "number")? strMonth[month-1]:intMonth[month]}