Re: ]] XL-mania [[ Tampilkan format currency dalam "ListBox" ?

 

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: XL-mania@yahoogroups.com

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

 

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 97

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| momods pecas ndaheeee... :( :( :(                                 | 
| 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              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___