تحويل الارقام العربي الي ارقام انجليزي اوفيس 2016 او 2010

[شريف خفاجي]

السلام عليكم 

 

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

 

 

 

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

[ياسر خليل أبو البراء]

الأخ الكريم شريف

أهلاً بك في المنتدى ونورت المنتدى

يرجى تغيير اسم الظهور للغة العربية والإطلاع على التوجيهات في الموضوعات المثبتة في المنتدى

 

بالنسبة لتحويل الأرقام من اللغة العربية للإنجليزية أو العكس هل جربت استخدام خاصية Left To Right Text Dirsection

 

هل جربت ضبط الإعدادات الإقليمية من خلال لوحة التحكم في الويندوز؟

 

احتمال آخر : حدد الخلايا التي بها الأرقام المراد تحويلها واعمل كليك يمين ثم Format Cells وشوف تنسيق الخلايا وجرب تخليها General

[شريف خفاجي]

مرحبا اخي ياسر وتم تغيير المسمي واسف علي هذا الخطأ

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

انا استملت الملف الجديد وبغيير عادي بالطرق المعروفه الا هذ الملف 

انا ارفقت كل مثال اخي ياسر اتمني تجرب عليه لانها فعلا شي غرررريب

 

واشكرك علي الرد وربنا يحفظك ويبارك بعمرك

e1a96720663.rar

[ياسر خليل أبو البراء]

أخي الكريم شريف

حدد الخلايا التي بها الأرقام وطبق الخطوة الموجودة في الصورة في المشاركة السابقة لي .. تم تغيير الأرقام ببساطة لدي ..

إذا لم تفلح الطريقة فاعلم أنه يجب ضبط الإعدادات الإقليمية من لوحة التحكم

تقبل تحياتي

 

[شريف خفاجي]

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

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

 

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

 

وايضا ارفقت  لك اعدادات الاقليميه للغه لكي تطلع عليها

 

املي في ربنا ثم فيك اخي ياسر ربنا يعطيك الصحه والستر ويرزقك من نعيمه

[ياسر خليل أبو البراء]

مشكلة غريبة بالفعل .. لم ألاحظ طلبك بشكل جيد

هل المصنف محمي ؟؟؟ !!! المصنف في التبويب Review يشير إلى أن المصنف محمي بكلمة سر ..!!

ما هي كلمة السر؟ لأني أجرب عدة طرق .. فصادفني أن المصنف محمي

[شريف خفاجي]

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

[ياسر خليل أبو البراء]

ملف الإكسيل يطلق عليه مصنف .. وكل مصنف Workbook به أوراق عمل Sheets

يبدو أن الأرقام تم نسخها من مكان ما ..

ما هو مصدر هذه الأرقام أخي الكريم لأنني جربت معها أكثر من 10 طرق للآن ولم تفلح المحاولات .. ولكني لن أيأس بإذن الله

... وما زالت المحاولات مستمرة

[شريف خفاجي]

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

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

واشكرك اخي ياسر علي المحاوله وفي انتظار ان كان هناك اي جديد

[شريف خفاجي]

اتمني ان تكون وجد حل اخي ياسر 

[ياسر خليل أبو البراء]

أخي الكريم شريف جرب الحل التالي

Sub ConvertTextToNumberUsingArrays()
    Dim Arr, Temp, C, Str As String, I As Long, P As Integer
    
    Arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    ReDim Temp(1 To UBound(Arr, 1))
    
    For I = LBound(Arr) To UBound(Arr)
        Temp(I) = AscWConvert(Arr(I, 1))
    Next I
    
    Range("B1").Resize(UBound(Temp)).Value = Application.Transpose(Temp)
End Sub

Function AscWConvert(Rng As Variant)
    Dim C, P, Str
    
    If IsNumeric(Rng) Then
        AscWConvert = Val(Rng)
    ElseIf Not IsEmpty(Rng) Then
        For P = 1 To Len(Rng)
            C = AscW(Mid(Rng, P, 1))
            
            If C - 1632 >= 0 And C - 1632 < 10 Then
                Str = Str & (C - 1632)
            Else
                Select Case C
                    Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57
                    Str = Str & ChrW(C)
                End Select
            End If
        Next P
        
        If Len(Str) = 0 Then
            AscWConvert = ""
        Else
            AscWConvert = Val(Str)
        End If
    End If
End Function

الموضوع استغرق مني يومين بحث ومناقشات في منتديات للوصول لحل ، فلا تنسانا بدعوة بظهر الغيب

تقبل تحياتي

[شريف خفاجي]

انا اشكرك بالبدايه علي تعبك معي 

ولكن كيف استخدم هذه المعادله او الداله 

[محمد حسن المحمد]

السلام عليكم أخي الحبيب أبو البراء شكراً على اهتمامكم

جزاكم الله خيراً على كل ماتقدمونه لصالح رواد هذا المنتدى الكريم..

ليس لدي أوفيس 2010 أو 2013 ولكنني أحببت أن أشكرك على عملك المضني

والسلام عليكم.

[ياسر خليل أبو البراء]

أخي الحبيب أبو يوسف

مشكور على مرورك العطر بالموضوع .. بارك الله فيك .. وحاول تنصب نسخة أحدث ، كن مع التطور دائماً فالعالم لا يتوقف من حولنا .. نحن الآن بصدد نسخة 2016 (والحمد لله بداية عملي عليها اليوم ، وبصراحة نسخة رائعة رائعة أنصح بها الجميع)

أخي الكريم شريف

هذه ليست معادلة أو دالة إنما هو كود يوضع في موديول في محرر الأكواد ..

قم بالإطلاع على الموضوع التالي لمعرفة المزيد

من هنا

[شريف خفاجي]

الف الف شكر لك اخي ياسر او البراء فعلا انت رجل محترم ومحترف ربنا يجزيك خير ويرزقك من نعيمه ويحفظك ويبارك فيك

 

تم الحل فعلا

[ياسر خليل أبو البراء]

الأخ الكريم شريف

الموضوع ليس له علاقة بالاحتراف إنما هو بالبحث والمثابرة .. فقد استغرق مني الموضوع نظراً لأنه أول مرة يمر على مثل هذه المشكلة استغرق أكثر من 4 ساعات بحث ومناقشات ومداولات ..

كل ما اريد معرفته من أين حصلت على هذه الأرقام بهذا الشكل ؟ ما هو البرنامج الذي تم تصدير الأرقام منه ؟ حيث أن الأرقام ليست أرقام في ملفك إنما هي شكل أرقام ولكنها في حقيقة الأمر عبارة عن علامات خاصة بتكويد معين .. يتخللها علامات خاصة أخرى ليست أرقام داخلها مما عقد الموضوع بعض الشيء ..

أرجو ان تكون المشكلة قد تم حلها تماماً

تقبل تحياتي