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

.

Buka Website dengan VBA Excel

Ketika anda membuat Aplikasi dari excel, ada masanya diperlukan perintah otomatis untuk membuka website anda.

Berikut dibawah ini coding untuk membuka situs website

Sub bukasitus()

   Const namasitus As String = "http://www.sua-soft.com"
   ThisWorkbook.FollowHyperlink Address:=namasitus, NewWindow:=True

End Sub

Semoga Bermanfaat!




_