تفقيط الأرقام باللغتين العربية والانجليزية | Convert Numbers To Text
HTML-код
- Опубликовано: 5 сен 2024
- khamsat.com/us...
#تفقيط_الأرقام_باللغتين_العربية_والانجليزية_بطريقة_سهلة #Excel #ConverNumbersToText #تفقيط الأرقام باللغتين العربية والانجليزية | Convert Numbers To Text
تفقيط الأرقام باللغتين العربية والانجليزية | Convert Numbers To Text
نتعرف على طريقة تفقيط الارقام باللغة العربية وباللغة الانجليزية من خلال ادراج كود بطريقة سهلة ومبسطة لكي يتم تحويل الارقام الى
حروف ويمكننا اختيار العملة التى نرغب في التفقيط بها
رابط ملف الشرح
bit.ly/38SgtkF
رابط موديول التفقيط باللغة العربية
bit.ly/38UGBLP
رابط موديول التفقيط باللغة الانجليزية
bit.ly/39zdGfc
طريقة مشاهدة الفيديو داخل تطبيق اليوتيبوب بالموبايل مباشرة
bit.ly/2LxPpOr
Access PlayList: bit.ly/2LM8Ini
Excel PlayList:bit.ly/2LEODzc
PowerPoint PlayList: bit.ly/3sklo5E
IT PlayList: bit.ly/39rKVkD
WordPress PlayList: bit.ly/3oB5GRj
Blogger PlayList: bit.ly/2LFkmA7
Sat PlayList: bit.ly/35wmPEc
Payroll_Personnel PlayList : bit.ly/39oOdoD
For Your Info PlayList: bit.ly/35utrTC
جزاك الله خيرا على هذا الموضوع المفيد جدا جدا في شرح حضرتك رائع
انا الذي اود ان اشكرك على كلامك الرائع والمحفز لبذل المزيد من الجهد لافادة الاخرين
رحم الله والديك كان فديو متكامل نجحت الطريقة معي
شكرا عالروابط
التحميل كان جدااا سهللل
ألف شكررر
شكرا جزيلا
جزاك الله كل الخير
ولك مثلما قلت
نورت القناة
الكلام جميل يا استاذ و التطبيق سليم بس مشكله وحده التفقيط بعد الفاصله بقرا خانتين بس ويقرب اتوماتيكمي
تم اصلاح مشكلة اللغة العربية تطلع علامات استفهام او رموز بتغيير نوع الخط وليس اللغة المستخدمة في ويندوز الى نوع خط يدعم اللغة العربية والف شكر لحضرتك استفدت منه كثيييير ودعيتلك بالتوفيق 🥰🥰🥰
نورت القناة وبالتوفيق
اذا تكرمت و خدمتنا بتعديل في الموديل
*_مرحبا بك اخى الكريم .. لو تم التعديل ان كان متاح فان الكود سيكتب خمسمائة وخمسة قرش مما يعنى خمسة جنيهات وخمسة قروش وهذا غير صحيح لذا ينبغى عدم التعديل وترك الكود كما هو
تحياتي لك ونورت القناة_*
@@ForYourInfo
شكرا لردك كلامك صح بس احنا العمله 1دينار يتكون من 1000 درهم مش 100 عشان كده عندي مشكله يعني لما بكتب 500 درهم تعتي نص دينار و الكود يكتبلي 50 بس تعني 50 درهم ارجو تكون فهمتني
نعم فهمت قصدك ساحاول في ذلك
شكرا جزيلا علي هذة المعلومات الرائعة تحويل الارقام الي الحروف بالأنجليزية اشتغل بنجاح لكن للاسف في اللغة العربية أجد علامات استفهام فقط. هل يوجد حل لهذة المشكلة؟
المشكلة في نسخ الكود جرب النسخ ببرنامج نوت باد او الوورد
شكرا على المجهود
المشكلة نتيجة المعادلة لا تظهر بالعربية و الاحرف مبهذلة الانكليزية لا مشكلة فيها
ولا اقصد الفايل المنسوخ فهو لا مشكلة فيه كذلك
المشكلة فقط عند تطبيق المعادلة تكون النتيجة ليست عربية
هل يوجد حلا و شكراااا
قم بنسخ الكود في ملف وورد وليس نوت باد
عند استيراد ملف او لصق الكود لا يتعرف على الاحرف باللغة العربية ما المشكلة؟
تبقى الاحرف العربية غير مقروءة
لحل تلك المشكلة قم بنسخ الكود ولصقة في ملف وورد ثم نسخه من الوورد ولصقه في الاكسيل
تحياتي
لو سمحت انا في حالة التفقيط بالانجليزي بلاقيه عامل تفقيط غبط في القروش اعمل اييه و اييه السبب يعني مثلا لو الرقم كدة 200,444.22 المفروض يقولي بالانجلش 22 قرش لا هو بيقولي 21 قرش اعمل اييه بقي و ارجو الرد
اهلا بك
راجع الرقم هل هو علامتين عشريتين فقط ام اكثر
انا عندي مشكله في ان ال Visual Basic مش بيقرأ العربي - بيقرأهم علامات استفهام .. اعمل ايه ؟
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
copy --> paste special --> Text