تفقيط الأرقام باللغتين العربية والانجليزية | Convert Numbers To Text

[@tamersalem7542]

جزاك الله خيرا على هذا الموضوع المفيد جدا جدا في شرح حضرتك رائع

[@ForYourInfo]

انا الذي اود ان اشكرك على كلامك الرائع والمحفز لبذل المزيد من الجهد لافادة الاخرين

[@فراسالحداد-ج6م]

رحم الله والديك كان فديو متكامل نجحت الطريقة معي

[@saharmallohi6551]

شكرا عالروابط التحميل كان جدااا سهللل

[@saharmallohi6551]

ألف شكررر

[@ahmedel-taher5081]

جزاك الله كل الخير

[@ForYourInfo]

ولك مثلما قلت نورت القناة

[@alkaaby2015]

شكرا جزيلا

[@MrNabilll1981]

الكلام جميل يا استاذ و التطبيق سليم بس مشكله وحده التفقيط بعد الفاصله بقرا خانتين بس ويقرب اتوماتيكمي

[@simetdokhol]

تم اصلاح مشكلة اللغة العربية تطلع علامات استفهام او رموز بتغيير نوع الخط وليس اللغة المستخدمة في ويندوز الى نوع خط يدعم اللغة العربية والف شكر لحضرتك استفدت منه كثيييير ودعيتلك بالتوفيق 🥰🥰🥰

[@ForYourInfo]

نورت القناة وبالتوفيق

[@NAGDI2006]

شكرا جزيلا علي هذة المعلومات الرائعة تحويل الارقام الي الحروف بالأنجليزية اشتغل بنجاح لكن للاسف في اللغة العربية أجد علامات استفهام فقط. هل يوجد حل لهذة المشكلة؟

[@ForYourInfo]

المشكلة في نسخ الكود جرب النسخ ببرنامج نوت باد او الوورد

[@keronady3270]

لو سمحت انا في حالة التفقيط بالانجليزي بلاقيه عامل تفقيط غبط في القروش اعمل اييه و اييه السبب يعني مثلا لو الرقم كدة 200,444.22 المفروض يقولي بالانجلش 22 قرش لا هو بيقولي 21 قرش اعمل اييه بقي و ارجو الرد

[@ForYourInfo]

اهلا بك راجع الرقم هل هو علامتين عشريتين فقط ام اكثر

[@eetharwanous8514]

عند استيراد ملف او لصق الكود لا يتعرف على الاحرف باللغة العربية ما المشكلة؟ تبقى الاحرف العربية غير مقروءة

[@ForYourInfo]

لحل تلك المشكلة قم بنسخ الكود ولصقة في ملف وورد ثم نسخه من الوورد ولصقه في الاكسيل تحياتي

[@MrNabilll1981]

اذا تكرمت و خدمتنا بتعديل في الموديل

[@ForYourInfo]

*_مرحبا بك اخى الكريم .. لو تم التعديل ان كان متاح فان الكود سيكتب خمسمائة وخمسة قرش مما يعنى خمسة جنيهات وخمسة قروش وهذا غير صحيح لذا ينبغى عدم التعديل وترك الكود كما هو تحياتي لك ونورت القناة_*

[@MrNabilll1981]

@@ForYourInfo شكرا لردك كلامك صح بس احنا العمله 1دينار يتكون من 1000 درهم مش 100 عشان كده عندي مشكله يعني لما بكتب 500 درهم تعتي نص دينار و الكود يكتبلي 50 بس تعني 50 درهم ارجو تكون فهمتني

[@ForYourInfo]

نعم فهمت قصدك ساحاول في ذلك

[@sayfuo20]

شكرا على المجهود المشكلة نتيجة المعادلة لا تظهر بالعربية و الاحرف مبهذلة الانكليزية لا مشكلة فيها ولا اقصد الفايل المنسوخ فهو لا مشكلة فيه كذلك المشكلة فقط عند تطبيق المعادلة تكون النتيجة ليست عربية هل يوجد حلا و شكراااا

[@ForYourInfo]

قم بنسخ الكود في ملف وورد وليس نوت باد

[@muhammedabdlhamed2637]

انا عندي مشكله في ان ال Visual Basic مش بيقرأ العربي - بيقرأهم علامات استفهام .. اعمل ايه ؟

[@ForYourInfo]

Function NumberToText(Number As Double, MainCurrency As String, SubCurrency As String) Dim Array1(0 To 9) As String Dim Array2(0 To 9) As String Dim Array3(0 To 9) As String Dim MyNumber As String Dim GetNumber As String Dim ReadNumber As String Dim My100 As String Dim My10 As String Dim My1 As String Dim My11 As String Dim My12 As String Dim GetText As String Dim Billion As String Dim Million As String Dim Thousand As String Dim Hundred As String Dim Fraction As String Dim MyAnd As String Dim I As Integer Dim ReMark As String If Number > 999999999999.99 Then Exit Function If Number < 0 Then Number = Number * -1 ReMark = "سالب " End If If Number = 0 Then NumberToText = "صفر" Exit Function End If MyAnd = " و" Array1(0) = "" Array1(1) = "مائة" Array1(2) = "مائتان" Array1(3) = "ثلاثمائة" Array1(4) = "أربعمائة" Array1(5) = "خمسمائة" Array1(6) = "ستمائة" Array1(7) = "سبعمائة" Array1(8) = "ثمانمائة" Array1(9) = "تسعمائة" Array2(0) = "" Array2(1) = " عشر" Array2(2) = "عشرون" Array2(3) = "ثلاثون" Array2(4) = "أربعون" Array2(5) = "خمسون" Array2(6) = "ستون" Array2(7) = "سبعون" Array2(8) = "ثمانون" Array2(9) = "تسعون" Array3(0) = "" Array3(1) = "واحد" Array3(2) = "اثنان" Array3(3) = "ثلاثة" Array3(4) = "أربعة" Array3(5) = "خمسة" Array3(6) = "ستة" Array3(7) = "سبعة" Array3(8) = "ثمانية" Array3(9) = "تسعة" GetNumber = Format(Number, "000000000000.00") I = 0 Do While I < 15 If I < 12 Then MyNumber = Mid$(GetNumber, I + 1, 3) Else MyNumber = "0" + Mid$(GetNumber, I + 2, 2) End If If (Mid$(MyNumber, 1, 3)) > 0 Then ReadNumber = Mid$(MyNumber, 1, 1) My100 = Array1(ReadNumber) ReadNumber = Mid$(MyNumber, 3, 1) My1 = Array3(ReadNumber) ReadNumber = Mid$(MyNumber, 2, 1) My10 = Array2(ReadNumber) If Mid$(MyNumber, 2, 2) = 11 Then My11 = "إحدى عشرة" If Mid$(MyNumber, 2, 2) = 12 Then My12 = "إثنى عشرة" If Mid$(MyNumber, 2, 2) = 10 Then My10 = "عشرة" If ((Mid$(MyNumber, 1, 1)) > 0) And ((Mid$(MyNumber, 2, 2)) > 0) Then My100 = My100 + MyAnd If ((Mid$(MyNumber, 3, 1)) > 0) And ((Mid$(MyNumber, 2, 1)) > 1) Then My1 = My1 + MyAnd GetText = My100 + My1 + My10 If ((Mid$(MyNumber, 3, 1)) = 1) And ((Mid$(MyNumber, 2, 1)) = 1) Then GetText = My100 + My11 If ((Mid$(MyNumber, 1, 1)) = 0) Then GetText = My11 End If If ((Mid$(MyNumber, 3, 1)) = 2) And ((Mid$(MyNumber, 2, 1)) = 1) Then GetText = My100 + My12 If ((Mid$(MyNumber, 1, 1)) = 0) Then GetText = My12 End If If (I = 0) And (GetText "") Then If ((Mid$(MyNumber, 1, 3)) > 10) Then Billion = GetText + " مليار" Else Billion = GetText + " مليارات" If ((Mid$(MyNumber, 1, 3)) = 2) Then Billion = " مليار" If ((Mid$(MyNumber, 1, 3)) = 2) Then Billion = " مليارن" End If End If If (I = 3) And (GetText "") Then If ((Mid$(MyNumber, 1, 3)) > 10) Then Million = GetText + " مليون" Else Million = GetText + " ملايين" If ((Mid$(MyNumber, 1, 3)) = 1) Then Million = " مليون" If ((Mid$(MyNumber, 1, 3)) = 2) Then Million = " مليونان" End If End If If (I = 6) And (GetText "") Then If ((Mid$(MyNumber, 1, 3)) > 10) Then Thousand = GetText + " ألف" Else Thousand = GetText + " ألاف" If ((Mid$(MyNumber, 3, 1)) = 1) Then Thousand = " ألف" If ((Mid$(MyNumber, 3, 1)) = 2) Then Thousand = " ألفان" End If End If If (I = 9) And (GetText "") Then Hundred = GetText If (I = 12) And (GetText "") Then Fraction = GetText End If I = I + 3 Loop If (Billion "") Then If (Million "") Or (Thousand "") Or (Hundred "") Then Billion = Billion + MyAnd End If If (Million "") Then If (Thousand "") Or (Hundred "") Then Million = Million + MyAnd End If If (Thousand "") Then If (Hundred "") Then Thousand = Thousand + MyAnd End If If Fraction "" Then If (Billion "") Or (Million "") Or (Thousand "") Or (Hundred "") Then NumberToText = ReMark + Billion + Million + Thousand + Hundred + " " + MainCurrency + MyAnd + Fraction + " " + SubCurrency Else NumberToText = ReMark + Fraction + " " + SubCurrency End If Else NumberToText = ReMark + Billion + Million + Thousand + Hundred + " " + MainCurrency End If End Function

[@ForYourInfo]

copy --> paste special --> Text