]] 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.

terlampir adalah tampilan/screenshot dari hasil code di bawah ini (di lampiran ada codenya juga)

ini potongan VBA Codenya :

'Sub Procedure untuk menampilkan hasil pencarian dalam ListBox
Sub TampilkanSemua()

'wsDtbsBrg adalah worksheet DatabaseBarang
Set wsDtbsBrg = Sheets("DatabaseBarang")

'Menghapus ListBox
listCari.Clear

'Menambahkan judul kolom ListBox
With listCari
    .AddItem
    'Judul ListBox kolom pertama
    .List(.ListCount - 1, 0) = "Record"
    'Judul ListBox kolom kedua
    .List(.ListCount - 1, 1) = "Kode"
    'Judul ListBox kolom ketiga
    .List(.ListCount - 1, 2) = "Deskripsi"
    'Judul ListBox kolom ke-4
    .List(.ListCount - 1, 3) = "Satuan"
    'Judul ListBox kolom kelima
    .List(.ListCount - 1, 4) = "Harga"
    'Lebar masing-masing kolom dalam ListBox
    .ColumnWidths = 33 & ";" & 42 & ";" & 140 & ";" & 40 & ";" & 50
End With

With wsDtbsBrg
    'rgTampil adalah range kode barang yang ditampilkan AutoFilter
    Set rgTampil = wsDtbsBrg.Range("KodeBarang"). _
        SpecialCells(xlCellTypeVisible)
    'sTampil merupakan pengulangan setiap sel dalam rgTampil
    For Each sTampil In rgTampil
        With listCari
            .AddItem sTampil.Value
            'Nomor record berdasarkan baris sTampil dikurangi 2
            .List(.ListCount - 1, 0) = sTampil.Row - 2
            'Kode barang berdasarkan nilai dalam sTampil
            .List(.ListCount - 1, 1) = sTampil.Offset(0, 0).Value
            'Nama barang 1 kolom di sebelah kanan sTampil
            .List(.ListCount - 1, 2) = sTampil.Offset(0, 1).Value
            'satuan 2 kolom di sebelah kanan sTampil
            .List(.ListCount - 1, 3) = sTampil.Offset(0, 2).Value
            'Harga 3 kolom di sebelah kanan sTampil
            .List(.ListCount - 1, 4) = sTampil.Offset(0, 3).Value
                   
        End With
    Next sTampil
End With

'ListBox menjadi fokus
listCari.SetFocus

End Sub

Sekali lagi pertanyaannya : Dimanakah code/script utk currency format harus disisipkan?

Berjuta terima kasih dihaturkan untuk para XL-Super Heroes.... :)

__._,_.___

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

Messages in this topic (1)

Recent Activity:

• New Members 106

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

.

__,_._,___