Bapak bisa menggunakan fungsi Format. Misal: MsgBox Format(1000, "Currency")
----- Original Message ----- From: Slamet Harto To: belajar-excel@yahoogroups.com Sent: Friday, October 26, 2007 6:09 PM Subject: [belajar-excel] Format Currency di Message Box Hallo teman, Saya ada pertanyaan mengenai format curency di msgbox mohon bantuan kiranya cara untuk memformatnya Berikut ini adalah penggalam macronya dan terima kasih banyak sebelum dan sesudahnya Dim Harga1 As String, Harga2 As String ' Harga1 dan harga2 sebenarnya bukan konstanta tetapi dalam contoh ' ini saya menggunakan konstanta Private Sub CommandButton1_Click() Harga1 = 10200000 Harga2 = 500000 MsgBox " minta tolong tampilan format dibawah ini gimana sih?" & _ vbNewLine & " Inginnya Harga yang tampil adalah 10,200,000 dan 500,000" & _ vbNewLine & " Kalo bisa tampilann dengan format Currency akan lebih baik spt Rp. 10,200,000.- dan Rp. 500,000.-" & _ vbNewLine & " sementara yang tampil hasilnya seperti ini: " & _ vbNewLine & " Harga 1 = " & Harga1 & _ vbNewLine & " Harga 2 = " & Harga2 End Sub
