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

[مصطفى محمود مصطفى]

السلام عليكم

هل يمكن تحويل الارقام من 1 - 10 في اي عمود نختاره الى كتابة في نفس الخلية مثلا 1 يكتب الكود محله الاولى و2 الثانية 3 الثالثة وهكذا 

جزاكم الله خيرا

 تحويل الارقام.rar

 

تم تعديل أكتوبر 19, 2015 بواسطه مصطفى محمود مصطفى

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

أخي الكريم مصطفى

بدون أكواد جرب الملف التالي ..

 

تحويل الارقام.rar

[مصطفى محمود مصطفى]

شكرا لكم اخي ابو البراء

معادلة روعة جزاكم الله خيرا

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

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

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

أخي الكريم مصطفى

كان من الممكن بعد أن تضع المعادلة أن تنسخ النتائج ثم تقوم بلصق خاص في العمود F ثم لصق القيم

عموماً تفضل الكود التالي عله يفي بالغرض

Option Explicit

Sub ConvertAll()
    Dim I As Long
    For I = 7 To Cells(Rows.Count, "F").End(xlUp).Row
        If Cells(I, "F") = 1 Then
            Cells(I, "F") = "الأولى"
        ElseIf Cells(I, "F") = 2 Then
            Cells(I, "F") = "الثانية"
        ElseIf Cells(I, "F") = 3 Then
            Cells(I, "F") = "الثالثة"
        ElseIf Cells(I, "F") = 4 Then
            Cells(I, "F") = "الرابعة"
        ElseIf Cells(I, "F") = 5 Then
            Cells(I, "F") = "الخامسة"
        ElseIf Cells(I, "F") = 6 Then
            Cells(I, "F") = "السادسة"
        ElseIf Cells(I, "F") = 7 Then
            Cells(I, "F") = "السابعة"
        ElseIf Cells(I, "F") = 8 Then
            Cells(I, "F") = "الثامنة"
        ElseIf Cells(I, "F") = 9 Then
            Cells(I, "F") = "التاسعة"
        ElseIf Cells(I, "F") = 10 Then
            Cells(I, "F") = "العاشرة"
        Else
            Cells(I, "F") = Cells(I, "F")
        End If
    Next I
End Sub

 

Convert Numbers YasserKhalil.rar

[محمد الورفلي1]

السلام عليكم

استاذ محمود هذا كود انا استخدمة في عملي من اكواد الاستاذ " سليم حاصبيا "

ادخال رقم.  .

 

استاذ ياسر  كود جميل

اضفته لمكتبتي

Option Explicit

Sub ConvertAll()
    Dim I As Long
    For I = 7 To Cells(Rows.Count, "F").End(xlUp).Row
        If Cells(I, "F") = 1 Then
            Cells(I, "F") = "الأولى"
        ElseIf Cells(I, "F") = 2 Then
            Cells(I, "F") = "الثانية"
        ElseIf Cells(I, "F") = 3 Then
            Cells(I, "F") = "الثالثة"
        ElseIf Cells(I, "F") = 4 Then
            Cells(I, "F") = "الرابعة"
        ElseIf Cells(I, "F") = 5 Then
            Cells(I, "F") = "الخامسة"
        ElseIf Cells(I, "F") = 6 Then
            Cells(I, "F") = "السادسة"
        ElseIf Cells(I, "F") = 7 Then
            Cells(I, "F") = "السابعة"
        ElseIf Cells(I, "F") = 8 Then
            Cells(I, "F") = "الثامنة"
        ElseIf Cells(I, "F") = 9 Then
            Cells(I, "F") = "التاسعة"
        ElseIf Cells(I, "F") = 10 Then
            Cells(I, "F") = "العاشرة"
        Else
            Cells(I, "F") = Cells(I, "F")
        End If
    Next I
End Sub

 

تم تعديل أكتوبر 19, 2015 بواسطه محمد الخازمي

[مصطفى محمود مصطفى]

السلام عليكم 

اخي ابو البراء كود جميل ورائع اختصر لي كثيرا من الجهد

جعله الله في ميزان حسناتكم وفقكم الله

السلام عليكم

اخي محمد الخازمي كود اخر هورائع كذلك ينفعني عند البدء بتنزيل المعلومات

جعله الله في ميزان حسناتكم وفقكم الله