الارقام العربية و الارقام الهندية

[فيصل الحربي]

السلام عليكم

لدي مصنف أكسل وبه 12 ورقة وكل ورقة بها 300 خليه تقريبا

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

بارك الله فيكم مسبقا

[الشهابي]

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

وتختار تنسيق الخلايا ثم تختار من محاذة اتجاه النص : من اليمين لليسار للتحويل إلى الأرقام الهندية

أو تختار من اليسار لليمين للتحويل إلى الأرقام العربية .

هذا والله أعلم وإذا ترى أن الكود سوف يكو أفضل وأسهل فانتظر رد الخبراء إن شاء الله والعفو منكم .

هذا لقطة فديو توضح الطريقة

تنسيق خلايا.rar

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

ايضاً يمكنك تسجيل ميكر بهذه العملية

ثم استخدام كود لتعميمه على جميع اوراق العمل

[فيصل الحربي]

بارك الله فيكم

لكن المطلوب برمجيا عبر VBA أو الماكرو التلقائي عند فتح المصنف

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

السلام عليكم

جرب هذا الكود ضعه في زر أمر

او اجعل تفعيله يتم في حدث الفتح

Sub Abu_Ahmed()

For i = 1 To Sheets.Count

    With Sheets(i)

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

    End With

Next

End Sub

[الشهابي]

الأستاذ القدير أبو أحمد عبد الله المجرب

عغواً الكود يقو م بتعين الخلايا إلى مخصص وهذا التخصيص لا يغير الأرقام العربية إلى هندية أو العكس

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

فضلا يرجى التوضيح جزاكم الله خير

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

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

وهذا الكود لعكس العملية

1Sub Abu_Ahmed()

For i = 1 To Sheets.Count

	With Sheets(i)

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

	End With

Next

End Sub

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

[الشهابي]

الأستاذ القدير أبو أحمد عبد الله المجرب

لا أدري لماذا في البداية لم يعمل معي الكود

ولكن عند إرفاق الكود العكسي عمل معي بس عكسياً

الكود الأول يحول الأرقام الهندية إلى عربية والثاني يحول العربية إلى هندية

جزاك الله خير أستذنا القدير والعفو منكم