Dear all,
Terima kasih atas saran dari rekan-rekan. Tapi kalo saya lihat hasilnya,
value dari textbox tersebut adalah "text" bukan sebagai "number"
(CMIIW). Padahal saya ingin value dari textbox tersebut adalah "number"
sehingga bisa dilakukan operasi matematik (penjumlahan, perkalian dsb).
Mohon maaf karena mungkin ada yang kurang jelas dari pertanyaan saya.
Jadi ingin saya begitu saya masukkan kode barang maka akan muncul
harganya dengan format Rp. ##,###. Nantinya value dari textbox tersebut
akan saya kalikan dengan quantity pembelian sehingga total pembelian
bisa otomatis.
Regards,
Andri
siti wrote:
> di pc saya (mudah mudahan tidak demikian di pc pak Puthut)
> mengubah code menjadi seperti yg di sarankan
> TextBox1.Value = Format(WorksheetFunction. _
> VLookup(ComboBox1.Value, Sheet1.Range("A10:B13"), 2), "Rp.###,")
>
> penampilan hasilnya : Rp22000
> kayaknya ini bukan yg dikehendaki oleh pe-nanya.
>
> jadi yg diubah *code*nya bukan syntaxnya,
> *sintaks* tidak boleh diubah dia karena berupa peraturan.
>
> Lagi pula, fungsi VLOOKUP tanpa argument ke 4, (berarti argument ke 4 =
> TRUE,
> dalam kondisi khusus, bisa menyesatkan..
>
>
>
>
>
> 2009/8/23 Puthut Wibowo <[email protected]>
>
>> Syntak Macronya dirubah seperti ini :
>> TextBox1.Value = Format(WorksheetFunction.VLookup(ComboBox1.Value,
>>
> Sheet1.Range("A10:B13"), 2), "Rp. ###,")
>
>> Terlampir hasil revisi
>>
>> Thanks
>> Puthut Wibowo
>>
>> --- On Fri, 8/21/09, andri <[email protected]> wrote:
>>
>> From: andri <[email protected]>
>> Subject: ]] XL-mania [[ Format "Rp. ###,###" di Textbox pada Form
>> To: "XL-mania" <[email protected]>
>> Date: Friday, August 21, 2009, 2:46 PM
>>
>> Dear XL-Mania,
>> Saya mau minta tolong ni...
>> Saya punya userform yang berisi Nama Barang dan Harganya. Saya ingin
>> format harga barang pada user form adalah Rp. ##,###. Saya sudah coba
>> dengan NumberFormat ="Rp. ##,###" tapi tetap tidak bisa.
>> Untuk lebih jelas mohon lihat attachment
>> Terima kasih banyak,
>> Andri
>>
>
>
>
> __________ Information from ESET NOD32 Antivirus, version of virus signature
> database 4361 (20090823) __________
>
> The message was checked by ESET NOD32 Antivirus.
>
> http://www.eset.com
>
>
>
