معرفة المزيد عن برنامج سيلز اب المحاسبي تحميل برنامج سيلز اب المحاسبي ثانياً استخدام دالة التفقيط دالة التفقيط هي دالة لا غني عنها لدي مستخدمين الأكسيل، فمن خلالها يستطيعون تلقائياً تحويل اي رقم الي نص مكتوب (التفقيط). دالة تفقيط الاعداد على برنامج اكسل كيفية تفقيط الارقام باللغة الانجليزية في الاكسيل 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.
عملية تحويل الأرقام إلى حروف أو ما يسميها البعض عملية التفقيط نحتاجها فى عملنا فى الكثير من المواقف مثل: – عند عمل فاتورة وكتابة اجمالى مبلغ الفاتورة بالأرقام والحروف. – عند عمل شيك وكتابة مبلغ الشيك بالأرقام والحروف. برنامج Excel يحتوى على الكثير من الدوال التى تسهل عليك العمل, مثلا دالة SUM لحساب المجموع, و دالة COUNT لحساب عدد الخلايا التى تحتوى على أرقام, و دالة MAX لحساب أكبر قيمة …. وهكذا لكن للأسف لا يوجد دالة جاهزة فى برنامج Excel تقوم بتحويل الأرقام إلى حروف, لذا عليك بعمل هذه الدالة بنفسك, ولعمل دالة مخصصة لابد من كتابة كود VBA وهذا ما سنقوم بتعلمه فى هذا الدرس. افتح ملف Excel جديد ثم اذهب إلى التبويب Developer واضغط على Visual Basic سيتم فتح نافذة Microsoft Visual Basic قم الأن بالضغط بزر الماوس الأيمن على اسم المشروع, ستظهر قائمة مختصرة قم بالوقوف على الاختيار Insert ومن القائمة الفرعية قم بالضغط على Module لاضافة وحدة برمجية جديدة.
مثال 1 مثال 2 مثال 3 مثال 4 مثال 5 ملحوظة: قم بحفظ الملف على صيغة Excel Macro-Enabled Workbook لأنه يحتوى على كود VBA
var month = ['January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December'][mm-1] || ''; بناء على الجواب Cupawn تاي السابق كنت تقصير إلى: var months = ['January', 'February',... ]; var month = (mm >= 1 && mm <= 12)? months[mm - 1]: ''; بدلاً من ذلك ، نعم ، أقدر ذلك ، وأقل قابلية للقراءة: var month = months[mm - 1] || ''; // as mentioned further up جرب هذا: var months = {'1': 'January', '2': 'February'}; //etc var month = months[mm]; لاحظ أن mm يمكن أن تكون عددًا صحيحًا أو سلسلة وستظل تعمل. إذا كنت تريد أن تؤدي المفاتيح غير الموجودة إلى سلسلة فارغة '' (بدلاً من undefined) ، فقم بإضافة هذا السطر: month = (month == undefined)? '': month; JSFiddle. سأذهب لحل ، ولكن تعديله على هذا: var month = [ 'January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December'][mm-1] || ''; هذا هو نفس الكود بالضبط ، ولكن بشكل مختلف ، والذي يجعله IMO أكثر قابلية للقراءة. للتأكد من اكتمالها ، أود أن أكمل الإجابات الحالية.