yang dimaksud dlm pertanyaan itu TAMPILNYA DI LISTBOX, cukan di cells. saya ogah menggunakan contoh yg diajukan karena hanya berupa gambar / tidak disertakan sheet berisi data yg terlibat dlm makro tsb
mendingan "mbikin" sendiri deh.... kerjabakti sebentar ndak pa pa lah...
Private Sub UserForm_Initialize()
Dim Tbl As Range, n As Long
Set Tbl = Sheet1.Range("b4").CurrentRegion
ListBox1.Clear
For n = 1 To Tbl.Rows.Count
With ListBox1
.AddItem Tbl(n, 1)
.List(.ListCount - 1, 1) = Format(Tbl(n, 2), "#,##0.00")
.List(.ListCount - 1, 2) = Format(Tbl(n, 2), "_($* #,##0.00_)")
End With
Next
End Sub
pada kolom kedua walaupun tanda pemisah riuan dan pemisah desimal telah tampil
tetapi format rata kanan belum ada
pada kolom ketiga walaupun telah diformat "accountng" hasilnya tidak sesuai
keinginan
(tidak bisa rata kanan) karena LISTBOX ( /combobox, /textbox) bukanlah cell.
kita tunggu, mungkin ada members lain tahu cara merata-kanankan data di kolom
listbox
--------------------------------------------------------------------------------
----- Original Message -----
From: Ahadi Abdul
To: [email protected]
Sent: Wednesday, March 17, 2010 11:03 PM
Subject: ]] XL-mania [[ Tampilkan format currency dalam "ListBox" ?
Dear para XL - Super Heroes......
To the point aja,
Gimana caranya agar data (berupa number) dari sebuah range bisa ditampilkan
dengan format currency?
atau bukan currency jg gak papa, tapi formatnya #,000.00 (ribuan ditandai
koma dan decimal (2 digit) ditandai titik.
ctv_format angka dlm listbox.xls
Description: MS-Excel spreadsheet
