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

 

 

 

---

----- Original Message -----

From: Ahadi Abdul

To: XL-mania@yahoogroups.com

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.

 

__._,_.___

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

Messages in this topic (2)

Recent Activity:

• New Members 108

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

.

__,_._,___