بواسطة نسخ البيانات والنقر بزر الماوس الأيمن إلى حيث تريد نسخ البيانات ثم بعدها حدد values
تحويل الأرقام إلى حروف باللغة الانجليزية في برنامج مايكروسفت Excel في هذه التدوينة سنتعلم كيفية تحويل الأرقام إلى حروف أو ما يسميها البعض تفقيط الأرقام باللغة الانجليزية وذالك بإستعمال VBA في الاكسيل. لا يوجد د وال في برنامج مايكروسفت Excel تقوم بتحويل الأرقام إلى حروف, في هذه التدوين سنقوم ببرمجة دالة بشكل خاص من خلال لغة VBA في الاكسيل. نقوم بملف جديد, ثم نذهب إلى التبويب Developer واضغط على Visual Basic. في حالة لم نجد علامة التبويب Developer ظاهرة عندنا كل ما علينا فعله هو توجيه سهم الماوس الى علامات التبويب في الاعلى ثم الضغط على الزر الأيمن في الماوس بعد ذالك نضغط على customize ribbon ونقوم بوضع علامة على Developer. سيتم فتح نافذة Microsoft Visual Basic for Applications ومن القائمة المختصرة نضغط على Insert ثم Module تم اضافة وحدة ماكرو أو برمجية جديدة اسمها Module1 يمكنك تغيير اسمها إذا أردت, للمزيد من دروس البرمجة في الاكسيل, اضغط هنا. في الوحدة البرمجية الجديدة Module1 نقوم بنسخ ولصق الكود التالي داخلها. Function NumberToTextEN(ByVal MyNumber, MainCurrency As String, SubCurrency As String) Dim Number1, Number2, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, ". ")
ذكرنا العديد من الطرق المتعددة لمعرفة تحويل الأرقام إلى حروف. تعرفنا على أفضل برامج الأندرويد التي توفر هذه العملية بشكل سهل وبسيط. ذكرنا معلومات عن برنامج ماكرو لتحويل الأرقام إلى حروف.
تفترض هذه المقاله كنت معتادا علي لغه البرمجه VBA، و# الادوات التي يتم استخدامها ل# انشاء الاجراءات و# تصحيحها. يمكنك مساعده المهندسين دعم Microsoft شرح وظيفه اجراء محدد. و# مع ذلك، لن يقوموا ب# تعديل هذه الامثله ل# تقديم وظيفه اضافيه، او انشاء اجراءات ل# تلبيه متطلبات محدده. إنشاء الدالة SpellNumber لتحويل أرقام إلى كلمات استخدم مفتاح الاختصار، Alt + F11 ل# فتح محرر Visual Basic (VBE). انقر فوق علامة التبويب إدراج ، ثم انقر فوق الوحدة النمطية. انسخ أسطر التعليمات البرمجية التالية. 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. MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none. DecimalPlace = InStr(MyNumber, ". ") ' Convert cents and set MyNumber to dollar amount.
في الشكل التالي استخدمنا دالة ConvertNumberToWords2 في الشكل التالي استخدمنا دالة ConvertNumberToWords3 ملحوظة هامة: قم بحفظ الملف على صيغة Excel Macro-Enabled Workbook لأنه يحتوى على كود مكتوب بلغة VBA