atau...
Dim Tbl As Range, n As Long
Set Tbl = Sheet1.Range("b4").CurrentRegion
With ListBox1
.ColumnCount = 3
.ColumnWidths = "60; 80; 80"
.ListStyle = 1
.Clear
For n = 2 To Tbl.Rows.Count
.AddItem Tbl(n, 1)
.List(.ListCount - 1, 1) = FormatNumber(Tbl(n, 2), 2)
.List(.ListCount - 1, 2) = FormatNumber(Tbl(n, 2), 0)
Next
End With-------------------------------------------------------------------------------- ----- Original Message ----- From: siti Vi To: [email protected] Sent: Thursday, March 18, 2010 12:09 PM Subject: Re: ]] XL-mania [[ Tampilkan format currency dalam "ListBox" ? 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
ctv_format angka dlm listbox_2.xls
Description: MS-Excel spreadsheet
