Hello All, I have typed a code that spells numbers in Arabic and the code is still not working properly.I could read it fine in the VBA at first, then when its in the formula cell, it shows strange characters not related to Arabic or question marks "??????????"

JoeChbatالمشكلة قابلتني في الscriptingولكن في برنامج الاكسيلVBA Excelالمشكلة كانت مقبلاني في ويندوز 10والمشكلة ليها علاقة بالويندوز اوتحديد باصدارهالحل الي اشتغل معايا انك تعدل وضع الregionولكن من اعدادات الويندوز الجديدةمش من الcontrol panelبالترتيب كدةstart menuSetting (Gear icon)Time & LanguageRegionChane Regional Format to Arabicبعد كدة هتعمل نفس القصة بس من الكنترول بانلControl panelsearch box (region)select first resultselect "Administrative" Tabclick "Change System Local button"choose Arabic languagethen check the "Check box" beneath it which is labeled as "Beta : Use Unicode UTF-8 for worldwide language support"then click "Ok" button and restart PCبعد ما تفتح هتعمل الاتي Start menusetting (Gear icon)time and languagelanguageclick on the arabic language and move it up to be the firstthen restart the PC againبعدها هتجرب برنامج الVBAالملحق بالاوفيس سواء بقي في الاكسيل او الاكسسهتجرب بس انك تعمل ماكرو صغير كدة يعرض كلام عربي فيmsg boxزي التالي كدةpublic trial () msgbox "بسم الله الرحمن الرحيم" end sub وده مثال للتجربة فيExcel VBAوبكدة يكون الدنا تمام واتحلت المشكلة الحمد للهجرب في ملفك الاساسي الي انت شغال فيه وعدل في الكود واحفظه وعدل في النص العربي واحفظه واقفل الملف وافتحه تاني وبعدها جرب ان شاء الله يشتغلولو مشتغلتشانقل الاسكربت في ملف جديد وجربه..

Thank you Faraz for the support.Here is the solution and how i fixed it. Region Settings > Additional Data, Time & Regional Settings > Change Date, Time, or Number Formats > Administrative > Change System Locale > Current System Locale > Arabic (Lebanon) I then typed the code on a new workbook and then COPY then PASTE on the existing workbook.(earlier, it did not work when i directly typed it on an existing workbook) attached is the code and workbook ExcelExciting

msamyGawad اشكرك جزيلا على الحل الذى اوجدتة - ادام الله عليك علمك وزادك منة وجزاك عنا خيرا

HI JoeChbat Thanks for your feedback, could you please share what changes have you made.. it will be helpful for the community to learn from your experience Regards, Faraz Shaikh | MCT, MIE, MOS Master, Excel ExpertIf you find the above solution resolved your query don't forget mark as Official Answer.

msamyGawad انا غيرت ال settingsعندى زى الcommentالى حضرتك كتبته و ال excelبقى بيقرا العربى فعلا شكرا. المشكله بقى ان ال vbaبيعمل output للعربى بعلامات استفهام مع انى عيرت الfontيبقى مكتوب جنبه عربى و ده الحل الى لقيته لما عملت search ده outputعربى ال excel و ده output ال vba

Arabic VBA code not working - even after changing Unicode

msamyGawad
Copper Contributor
Nov 25, 2021
JoeChbat
المشكلة قابلتني في الscripting
ولكن في برنامج الاكسيل
VBA Excel
المشكلة كانت مقبلاني في ويندوز 10
والمشكلة ليها علاقة بالويندوز اوتحديد باصداره
الحل الي اشتغل معايا انك تعدل وضع ال
region
ولكن من اعدادات الويندوز الجديدة
مش من ال
control panel
بالترتيب كدة
start menu
Setting (Gear icon)
Time & Language
Region
Chane Regional Format to Arabic
بعد كدة هتعمل نفس القصة بس من الكنترول بانل
Control panel
search box (region)
select first result
select "Administrative" Tab
click "Change System Local button"
choose Arabic language
then check the "Check box" beneath it which is labeled as "Beta : Use Unicode UTF-8 for worldwide language support"
then click "Ok" button and restart PC
بعد ما تفتح هتعمل الاتي
Start menu
setting (Gear icon)
time and language
language
click on the arabic language and move it up to be the first
then restart the PC again
بعدها هتجرب برنامج ال
VBA
الملحق بالاوفيس سواء بقي في الاكسيل او الاكسس
هتجرب بس انك تعمل ماكرو صغير كدة يعرض كلام عربي في
msg box
زي التالي كدة
public trial () msgbox "بسم الله الرحمن الرحيم" end sub

وده مثال للتجربة في
Excel VBA
وبكدة يكون الدنا تمام واتحلت المشكلة الحمد لله
جرب في ملفك الاساسي الي انت شغال فيه وعدل في الكود واحفظه وعدل في النص العربي واحفظه واقفل الملف وافتحه تاني وبعدها جرب ان شاء الله يشتغل
ولو مشتغلتش
انقل الاسكربت في ملف جديد وجربه..
- khaledthabet
  Copper Contributor
  Jun 04, 2022
  msamyGawad اشكرك جزيلا على الحل الذى اوجدتة - ادام الله عليك علمك وزادك منة وجزاك عنا خيرا
- SarahIhab
  Copper Contributor
  Jul 07, 2022
  msamyGawad
  انا غيرت ال settings
  عندى زى الcomment
  الى حضرتك كتبته و ال excel
  بقى بيقرا العربى فعلا شكرا.
  
  المشكله بقى ان ال vba
  بيعمل output للعربى
  بعلامات استفهام مع انى عيرت الfont
  يبقى مكتوب جنبه عربى و ده الحل الى لقيته لما عملت search
  
  ده output
  عربى ال excel
  
  و ده output
  ال vba
  - msamyGawad
    Copper Contributor
    Oct 07, 2022
    SarahIhab
    الموضوع كدة غريب فعلا
    مش عارف كدة بسبب ايه الحقيقة
    بس لو قفلت خالص ممكن تكتبي ال
    Unicode
    بتاع الكلمة نفسها
    بتحولي النص علي اي موقع اونلاين زي ده مثلا
    http://mylanguages.org/converter.php
    كمثال
    بسم الله الرحمن الرحيم
    هتبقي
    بسم الله الرحمن الرحيم
- asherif635
  Copper Contributor
  Mar 06, 2022
  الأخ الكريم حاولت بكافة الاشكال و لا المعادلة لا تعمل و يعطي ؟؟؟msamyGawad
  - msamyGawad
    Copper Contributor
    Oct 07, 2022
    asherif635
    كدة ممكن يكون مشكلة مختلفة بسبب اثدار ويندوز تاني خالص
    مش هقدر افيدك، بعتذر
Diaabbsf
Copper Contributor
Nov 15, 2022
Beta: Use Unicode UTF-8 for worldwide language support (UNCHECK)
in the Administrative Region Sitting
- raidmahbouba
  Copper Contributor
  Nov 15, 2022
  Diaabbsf
  Thank you Diaab,
  It is checked already!
  
  The problem is with MS Office 365, because the VB code is still running in my old computer that has MS Office 10!
ExcelExciting
MVP
Mar 31, 2020
JoeChbat

Could you please attached the sample file

Regards, Faraz Shaikh | MCT, MIE, MOS Master, Excel Expert
If you find the above solution resolved your query don't forget mark as Official Answer.
- JoeChbat
  Copper Contributor
  Mar 31, 2020
  ExcelExciting
  I just did some minor change in the Unicode and it worked.
  - ExcelExciting
    MVP
    Mar 31, 2020
    HI JoeChbat
    
    Thanks for your feedback, could you please share what changes have you made.. it will be helpful for the community to learn from your experience
    
    Regards, Faraz Shaikh | MCT, MIE, MOS Master, Excel Expert
    If you find the above solution resolved your query don't forget mark as Official Answer.
- raidmahbouba
  Copper Contributor
  Oct 20, 2022
  Me too the text appears like question mark(?) inside a blackbox stands on its corner!
  I tried changing the settings inside the developer and the settings of controlpanel!
  The code was perfectly working in the 2013 MS office, but the latest version of MS office does not support the conversion of number to texts.
  using this code:
  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, ".")
  
  If DecimalPlace > 0 Then
  
  Number2 = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
  
  MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
  
  End If
  
  Count = 1
  
  Do While MyNumber <> ""
  
  Temp = GetHundreds(Right(MyNumber, 3))
  
  If Temp <> "" Then Number1 = Temp & Place(Count) & Number1
  
  If Len(MyNumber) > 3 Then
  
  MyNumber = Left(MyNumber, Len(MyNumber) - 3)
  
  Else
  
  MyNumber = ""
  
  End If
  
  Count = Count + 1
  
  Loop
  
  Select Case Number1
  
  Case ""
  
  Number1 = "Zero " & MainCurrency
  
  Case Else
  
  Number1 = Number1 & " " & MainCurrency
  
  End Select
  
  Select Case Number2
  
  Case ""
  
  Number2 = ""
  
  Case Else
  
  Number2 = " and " & Number2 & " " & SubCurrency
  
  End Select
  
  NumberToTextEN = Number1 & Number2
  
  End Function
  
  Function GetHundreds(ByVal MyNumber)
  
  Dim Result As String
  
  If Val(MyNumber) = 0 Then Exit Function
  
  MyNumber = Right("000" & MyNumber, 3)
  
  If Mid(MyNumber, 1, 1) <> "0" Then
  
  Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
  
  End If
  
  If Mid(MyNumber, 2, 1) <> "0" Then
  
  Result = Result & GetTens(Mid(MyNumber, 2))
  
  Else
  
  Result = Result & GetDigit(Mid(MyNumber, 3))
  
  End If
  
  GetHundreds = Result
  
  End Function
  
  Function GetTens(TensText)
  
  Dim Result As String
  Result = ""
  
  If Val(Left(TensText, 1)) = 1 Then
  
  Select Case Val(TensText)
  
  Case 10: Result = "Ten"
  
  Case 11: Result = "Eleven"
  
  Case 12: Result = "Twelve"
  
  Case 13: Result = "Thirteen"
  
  Case 14: Result = "Fourteen"
  
  Case 15: Result = "Fifteen"
  
  Case 16: Result = "Sixteen"
  
  Case 17: Result = "Seventeen"
  
  Case 18: Result = "Eighteen"
  
  Case 19: Result = "Nineteen"
  
  Case Else
  
  End Select
  
  Else
  
  Select Case Val(Left(TensText, 1))
  
  Case 2: Result = "Twenty "
  
  Case 3: Result = "Thirty "
  
  Case 4: Result = "Forty "
  
  Case 5: Result = "Fifty "
  
  Case 6: Result = "Sixty "
  
  Case 7: Result = "Seventy "
  
  Case 8: Result = "Eighty "
  
  Case 9: Result = "Ninety "
  
  Case Else
  
  End Select
  
  Result = Result & GetDigit(Right(TensText, 1))
  
  End If
  
  GetTens = Result
  
  End Function
  
  Function GetDigit(Digit)
  
  Select Case Val(Digit)
  
  Case 1: GetDigit = "One"
  
  Case 2: GetDigit = "Two"
  
  Case 3: GetDigit = "Three"
  
  Case 4: GetDigit = "Four"
  
  Case 5: GetDigit = "Five"
  
  Case 6: GetDigit = "Six"
  
  Case 7: GetDigit = "Seven"
  
  Case 8: GetDigit = "Eight"
  
  Case 9: GetDigit = "Nine"
  
  Case Else: GetDigit = ""
  
  End Select
  
  End Function

Forum Discussion

Arabic VBA code not working - even after changing Unicode