Mengubah Format Angka seperti mata uang dengan VBA Excel (macro)

Dalam membuat laporan diperlukan format "nominal" agar cepat dimengerti.

Misal untuk nominal 1000000 (satu juta), tidak memerlukan waktu lama untuk menghitung berapa 0 nya.

Kalau seperti ini >>> 1,000,000.00 kan enak

Berikut kode VBA untuk beberapa format nominal/angka/number

1. FORMAT "NUMBER"

     

     Contoh Nilai Positif : 125,000.00 , silahkan pakai yang mana codingnya

 
   - Negatif : pake tanda "-"

     Range("I7").NumberFormat = "#,##0.00"     'Codingnya  

     Contoh : -125,000.00

   - Negatif : Berwarna Merah
     Range("I7").NumberFormat =  "#,##0.00;[Red]#,##0.00"     'Codingnya  

     Contoh : 125,000.00

 
   - Negatif : Negatif : Pake tanda "()"

     Range("I7").NumberFormat = "#,##0.00_);(#,##0.00)"     'Codingnya

     Contoh : (125,000.00)

   - Negatif : Pake tanda "()" dan Merah
     Range("I7").NumberFormat = "#,##0.00_);[Red](#,##0.00)"    'Codingnya  

     Contoh : (125,000.00)

2. FORMAT "ACCOUNTING"

     

   - Tidak Pakai Simbol  

     Range("I7").NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)"

     Contoh : 125,000.00 dan (125,000.00)

   - Pakai Simbol Rupiah (Rp) 

     Range("I7").NumberFormat =  "_([$Rp-421]* #,##0.00_);_([$Rp-421]* (#,##0.00);_([$Rp-421]* ""-""??_);_(@_)"

     Contoh : Rp.  125,000.00 dan Rp.  (125,000.00)

Demikian, Semoga Bermanfaat

.