Ada yg ketinggalan ...
*.NumberFormat* adalah property yg dimiliki oleh *object range*
jika dberlakukan, efeknya seperti anda memformat range dengan format
tampilan angka tertentu
TextBox tidak punya property NumberFormat
Di makro anda malah tertulis: *Selection.NumberFormat*
(saat itu terjadi event ComboBox_Change)
sedangkan object yg sedang menjadi *selection *itu tidak jelas, object apa
bisa range di sheet bisa object di dalam user form.
Agar bilangan / data angka (di TextBox atau pada controls lain) menjadi
berformat
tampilan tertentu, kita menggunakan* FUNGSI *Format(Bilangan, BentukFormat)
Fungsi ini peris sama kerjanya dengan fungsi TEXT yg ada di worksheet.
Jadi makro tsb dpt ditulis dengan lebih ringkas sbb
Private Sub ComboBox1_Change()
TextBox1 = Format(Sheet1.Range("A10:B13").Cells(ComboBox1.ListIndex + 1, 2)*,
"\Rp #,###"))*
End Sub
untuk lebih amannya
Private Sub ComboBox1_Change()
If Combobox1.LisIndex >=0 then
TextBox1 = Format(Sheet1.Range("A10:B13").Cells(ComboBox1.ListIndex + 1, 2)*,
"\Rp #,###"))
End If
* End Sub
ListIndex adalah property "N0MOR" Items yg tersimpan di Combobox,
tetapi dimulainya dari 0.
Misal jika Combobox Item ke 1 dipilih, maka ListInded bernilai 0,
jika Combobox Item ke 4 dipilih, maka ListInded bernilai 3
Nilai ListIndex itu kita manfaatkan untuk memanggil Data lain di Sheet Range
dimana Index Row dlm Range dimulainya dari hitungan 1,
Maka, agar sesuai ListIndex perlu di tambah +1
Range("A10:B13").Cells(ComboBox1.ListIndex + 1, 2)
angka 2 adalah index kolom bagi range, maksudnya ingin mengambil data
di A10:B13 pada baris ke ListIndex+1 kolom 2
Dengan ada cara spt ini, kalau sudah punya combobox, lupakan saja
worksheet function.VLOOKUP - mu.
2009/8/21 siti <[email protected]>
> Private Sub ComboBox1_Change()
> TextBox1 = Sheet1.Range("A10:B13").Cells(ComboBox1.ListIndex + 1, 2)
> TextBox1 = *Format(TextBox1, "\Rp #,###")*
> End Sub
>
>
> 2009/8/21 andri <[email protected]>
>
> >
> > 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
>
>
