I want to convert Arabic numbers to English from textbox2 to listbox1 vba excel

[mahmoud nasr alhasany]

السلام عليكم ورحمة الله وبركاتة

رجاء مساعدتى اذا سمحتم

يوجد بيانات يتم تحويلها من التكست بوكس الى الليست بوكس بيانات ارقام سيارة وقيمة التفويل وبيان اللتر سولار بالارقام والحروف

اريد فى حدث TEXTBOX2 يتم تحويل الارقام من العربية الى الانجليزية فى شيت 1 فى العمود 3

كمثال

من

لتر سولار 20.13  (للاسف لايمكن كتابة الحروف باللغة العربية )

الى

لتر سولار 20.13 

تحويل الارقام من العربية الى الانجليزية.xlsm

[mahmoud nasr alhasany]

السلام عليكم ورحمة الله وبركاتة

ارجو مساعدتى انى عالق فى هذه المشكلة

[ابو عارف]

وعليكم السلام و رحمة الله و بركاته

ا

في 24‏/12‏/2024 at 23:44, mahmoud nasr alhasany said:

(للاسف لايمكن كتابة الحروف باللغة العربية )

ولكن طلبت تحويل من العربي الى انجليزية، هل هاذا ما تريده ام عكس من انجليزي الى العربي

           

وثانيا هل تريد تنفيذ الكود في حدث بعد تحديث TextBox2 ولا عند ضغط على زر أمر حفظ 

[mahmoud nasr alhasany]

اشكرك على مساعدتى 1 / ابو عارف

اريد تنفيذ الكود في حدث بعد تحديث  TextBox2

بحيث يظهر فى لليست بوكس الحروف عربية والارقام انجليزية

تم تعديل ديسمبر 31, 2024 بواسطه mahmoud nasr alhasany

[ابو عارف]

9 ساعات مضت, mahmoud nasr alhasany said:

بحيث يظهر فى لليست بوكس الحروف عربية والارقام انجليزية

السلام عليكم و رحمة الله و بركاته

أخي محمود بشكل افتراضي الاكسل يكتب ارقام انجليزي عند كتابة لغة العربية الا في حالة تغير اعدادات لغة في ويندوز كما في الصورة

في الحالة هذا لايمكن تغير أرقام الى الانجلزية حسب معلوماتي، و اما اذا غيرت خيارين  الى:

وتريد تحويل ارقام الى عربية هذا ممكن سواء بالكود أو بالتعبير أو بتنسيق.

 

[mahmoud nasr alhasany]

شكرا جزيلا اخى ابو عارف

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

ولاكن كنت اريد تنفيذ الفكرة من خلال اكواد vba من داخل الفورم

لقد وجدت اكواد تفعل ذلك ولاكنى عندى صعوبة فى كتابة الارقام باللغة العربية داخل محرر الاكواد

كمثال هذ الكود 

Private Sub CommandButton1_Click()

    With ListBox1
        .AddItem ComboBox1.value
        .List(.ListCount - 1, 1) = TextBox1.value
        .List(.ListCount - 1, 2) = ConvertArabicToEnglishWithArabicLetters(TextBox2.value)
        Me.ListBox1.ColumnCount = 3
        Me.ListBox1.ColumnWidths = "40;50;50"
    End With
End Sub
Private Function ConvertArabicToEnglishWithArabicLetters(ByVal ArabicText As String) As String
    Dim i As Integer
    Dim EnglishText As String
    Dim ArabicDigits As String
    Dim EnglishDigits As String

    ' Define Arabic and English digits
'المفروض داخل علامة التنصيص تكون الارقام عربية
   
ArabicDigits = "0123456789" 'اريد كتابة الارقام هنا بعد علامة التنصيص"ارقام عربية من صفر الى تسعة"
 
'المفروض داخل علامة التنصيص تكون الارقام انجليزية
   
EnglishDigits = "0123456789"

    For i = 1 To Len(ArabicText)
        ' Check if the character is an Arabic digit
        If InStr(ArabicDigits, Mid(ArabicText, i, 1)) > 0 Then
            ' Replace Arabic digit with English digit
            EnglishText = EnglishText & Mid(EnglishDigits, InStr(ArabicDigits, Mid(ArabicText, i, 1)), 1)
        Else
            ' Keep the character as it is (including Arabic letters)
            EnglishText = EnglishText & Mid(ArabicText, i, 1)
        End If
    Next i

    ConvertArabicToEnglishWithArabicLetters = EnglishText
End Function

 

تم تعديل يناير 1 بواسطه mahmoud nasr alhasany

[ابو عارف]

ArabicDigits =Chrw(1632) & Chrw(1633) & Chrw(1634) & Chrw(1635) & Chrw(1636) & Chrw(1637) & Chrw(1638) & Chrw(1639) & Chrw(1640) & Chrw(1641) 

الصق هذا بدل أرقام عريي

وهذا تعديل على ملف

تحويل الارقام من العربية الى الانجليزية.xlsm

تم تعديل يناير 1 بواسطه ابو عارف

[mahmoud nasr alhasany]

الف شكر استاذنا / ابو عارف

لقد تم عمل المطلوب

[ابو عارف]

الحمد لله والشكر لله