تحويل الورقة بالكامل الى لغة عربية دون تغير لغة الجهاز

[بلانك]

تحويل الورقة بالكامل الى لغة عربية دون تغير لغة الجهاز

تحويل الورقة بالكامل الى لغة عربية دون تغير لغة الجهاز.xlsx

[mennad sofiane]

إليك الطريقة لتغيير لغة Excel 2010 إلى العربية فقط:

1. فتح إعدادات اللغة في Office:

1. افتح Excel.

2. اضغط على:
   File (ملف) ← Options (خيارات) ← Language (اللغة)

2. تعيين اللغة العربية:

في نافذة اللغة، سترى قسمين مهمين:

• Choose Editing Languages (لغات التحرير)

• Choose Display and Help Languages (لغة العرض والمساعدة)

قم بما يلي:

• في قسم Display Language، اختر العربية ثم اضغط Set as Default (تعيين كافتراضي).

• في قسم Help Language أيضًا اختر العربية (اختياري).

• اضغط OK.

إذا لم تجد اللغة العربية ضمن الخيارات، انتقل للخطوة التالية 👇

---

🧩 إذا لم تكن اللغة العربية مثبتة:

عليك تحميل حزمة اللغة العربية لـ Office 2010.

📥 لتحميلها:

1. افتح هذا الرابط (حسب نواة Office 32 أو 64 بت):

   • حزمة اللغة العربية Office 2010 (32 بت)

   • حزمة اللغة العربية Office 2010 (64 بت)

2. بعد التحميل، قم بتثبيت الحزمة.

3. أعد فتح Excel وارجع إلى الخطوات أعلاه لتعيين اللغة العربية كلغة العرض

[mennad sofiane]

Sub تحويل_الورقة_للعربية()
    Dim cell As Range

    ' تغيير اتجاه الورقة من اليمين إلى اليسار
    ActiveSheet.DisplayRightToLeft = True

    ' تغيير اتجاه الخلايا إلى من اليمين لليسار
    ActiveSheet.Cells.ReadingOrder = xlContext ' يمكنك تغييره إلى xlRTL

    ' تغيير المحاذاة إلى اليمين
    ActiveSheet.Cells.HorizontalAlignment = xlRight

    ' تغيير نوع الخط إلى خط عربي
    ActiveSheet.Cells.Font.Name = "Traditional Arabic"

    ' تكبير حجم الخط قليلاً
    ActiveSheet.Cells.Font.Size = 12

    MsgBox "تم تحويل الورقة للعربية بنجاح!", vbInformation
End Sub
 

[بلانك]

واضح اني لم اوصل الفكرة ....  اريد كود لعمل ذلك دون تحويل لغة الجهاز

[محمد هشام.]

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

بعد معاينة الملف لاحظت وجود أرقام بتنسيقات مختلفة  هل تقصد تحويلها الى العربية مثلا 

   ٨-٣ = 3-8       

    ٢/٣ = 2/3      

     ٢٣ = 23      

١٦/٠٤/٢٠٢٥  = 16/04/2025   

[بلانك]

نعم استاذي الفاضل محمد بيك هشام بارك الله فيك

[محمد هشام.]

تفضل جرب هدا  

Option Explicit

Sub Convert_Arabic()
    Dim WS As Worksheet, OnRng As Range, ky As Range
    Dim i As Integer, j As Integer, NumArr As Variant, tmp As Variant
    Dim val As String, c As String, newVal As String, n As Boolean

    NumArr = Array(ChrW(1632), ChrW(1633), ChrW(1634), ChrW(1635), _
    ChrW(1636), ChrW(1637), ChrW(1638), ChrW(1639), ChrW(1640), ChrW(1641))
    
    tmp = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9")

    Set WS = Sheets("Sheet1")
    Set OnRng = WS.UsedRange

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.ErrorCheckingOptions.BackgroundChecking = False

    For Each ky In OnRng
        If Not IsEmpty(ky.Value) And Not ky.HasFormula Then
            val = Trim(ky.Text): newVal = "": n = False
            If val Like "*[" & Join(NumArr, "") & "]*" Then GoTo SubApp
            If Right(val, 1) = "%" Then n = True: val = Left(val, Len(val) - 1)
            For i = 1 To Len(val)
                c = Mid(val, i, 1)
                If c Like "[0-9]" Then
                    newVal = newVal & NumArr(CInt(c))
                Else
                    newVal = newVal & c
                End If
            Next i

            If n Then newVal = newVal & "%"
            ky.NumberFormat = "@": ky.Value = newVal
        End If
SubApp:
    Next ky
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

أو يمكنك التنقل بينها على الشكل التالي 

 

تحويل الورقة بالكامل الى لغة عربية دون تغير لغة الجهاز -v2 .xlsb

[بلانك]

بارك الله فيك هو ده المطلوب