Format mata uang dan pengurangan sederhana dalam excel macro

 tarohlah anda mempunyai textbox dengan nama Txt9 Txt09 Txt009 dan pada textbox nama Txt009  = bernilai angka 1000000 Jika anda menginginkan nilai 1000000 menjadi Rp 1.000.000 maka hal yang harus anda lakukan adalah menambah kode seperti

Private Sub Txt009_Change()
Txt9.Value = Format(Txt009.Value, "#,##0")
End Sub

Atau

Private Sub Txt009_Change()
Txt009.Value = Format(Txt009.Value, "Rp, #,##0")
End Sub

Penjumlahan pada kedua textbox
Cara penjumlahan antara textbox - Jika anda menginginkan Txt009 Adalah hasil dari pengurangan atau penjumlahn dari Txt9 Txt09 maka anda tambahkan kode sederhana ini

Private Sub Txt9_Change()
Txt009.Value = Cdbl(Txt9.Value) - Cdbl(Txt09.Value)
End Sub

Atau

Private Sub Txt09_Change()
Txt009.Value = Cdbl(Txt9.Value) - Cdbl(Txt09.Value)
End Sub

Untuk menghindari error anda bisa menambahkan On errro resume next

Private Sub Txt09_Change()
On errro resume next
Txt009.Value = Cdbl(Txt9.Value) - Cdbl(Txt09.Value)
End Sub