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

[قصي]

شكرا لكم .. وجزاكم الله خيرا

هل يوجد كود يحعل الاعداد دائما بالعربي في صفحة الاكسيل ؟

[عبدالله المجرب]

السلام عليكم

تم فتح موضوع مستقل للفائدة

اخي يمكن ذلك بوضع هذا الكود في حدث التفعيل لورقة العمل التي نريد

Private Sub Worksheet_Activate()

    Cells.Select

    With Selection

	    .ReadingOrder = xlRTL

    End With

    Range("A1").Select

End Sub

[saad abed]

اخى عبدالله المجرب

شكرا جزيلا وجزاك الله خيرا

سعد عابد

[احمد حمور-ابوعبدالله]

اخي ابو احمد

جزاك الله خيرا على هذا الكود

ولو انني فهمته ولكنه لم يظهر الارقام بالعربي

فارجوك ان كان هناك تقصير من عندي ان تدلني عليه

وان كان موجود جزء ناقص في الكود ان تضعه حتى تكتمل الصوره لدي

ولو انه في نظير ابداعاتك المتواصله في منتدانا الغالي اعتقد ان التقصير عندي ولكني ربما لم افهم تطبيق الكود جيدا

[الحسامي]

يمكن استخدام الكود التالي

Cells.NumberFormat = "[$-2000000]0"

[قصي]

حفظكم الله ورعاكم

[عبدالله المجرب]

اخي احمد حمور

الكود (وانا اعلم انك فاهمه) يعمل عند تفعيل الصفحة اي لو وضعت الكود في حدث ورقة العمل ثم جربت لن يعمل الكود ولكن اذهب الى صفحة اخرى ثن عد للصفحة المطلوب بإذن الله سيعمل الكود

ابواحمد

[احمد حمور-ابوعبدالله]

اخي ابو احمد

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

ولكن هذا لم يفلح ابدا ( لا عليك يا اخي ) بارك الله فيك يا زينة شباب البحرين

اخي الحسامي كودك يعمل 100% دون عناء

[عبدالله المجرب]

اخي أحمد شاهد المرفق

احمد.rar

[احمد حمور-ابوعبدالله]

اخي احمد

جرب المرفق التالي لا نتيجه عندي

يبدو ان الموضوع متعلق بفورمات الجهاز

او ان الكود لا يعمل مع اوفيس 2003

فيديو1.rar