Mungkin bisa menggunakan procedure sbb Pak :
Private Sub CommandButton1_Click()
Dim SaatIni As Date
Dim uFileName As String, Idate As String, Itime As String
Idate = Format(Now, "dd-mmm-yy")
SaatIni = Format(Now, "Short Time")
If SaatIni >= #12:00:00 AM# And SaatIni <= #11:59:00 AM# Then
Itime = "A"
Else
Itime = "B"
End If
DfltFname = Idate & " - " & Itime
uFileName = Application.InputBox(Prompt:="Masukan nama file baru :", _
Title:="Simpan Data ke File Lain..", Default:=DfltFname)
End Sub
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb.com/
----- 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
