هذ الميكرو يقوم يتحويل الاقارم التى تقوم بإختيارها الى ارقم متبوعه بعمله التى تختارها فقط اختار الخليه او مجموعه خلايا ثم قم بتشغيل الميكرو alt+f8
الكود :
Sub Format_Cell_Accounting()
Selection.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
End Sub