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.NumberFor
(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.
End Sub
untuk lebih amannya
Private Sub ComboBox1_Change(
If Combobox1.LisIndex >=0 then
TextBox1 = Format(Sheet1.
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.
Private Sub ComboBox1_Change()
TextBox1 = Sheet1.Range("A10:B13").Cells(ComboBox1.ListIndex + 1, 2)
TextBox1 = Format(TextBox1, "\Rp #,###")
End Sub
2009/8/21 andri <prod-dc@shokubai.co.id >
>
> 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
| Selamat menjalankan ibadah puasa... |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Nenhum comentário:
Postar um comentário