Re: [belajar-excel] Mohon bantuanya, Bagaimana memunculkan informasi di listbox lebih dari sepuluh kolom

 

Dear Mr. Kid dan Milis Belajar Excel,

Trimakasih atas masukan dan pembelajaranya, setelah mencari apa yang di ajari oleh Mr. Kid saya mendapatkan coding untuk Listbox yang sesuai dengan keinginan saya, yang saya mau tanyakan bagaimana membuat hasil pencarian lebih flexibel, karana coding sebelumnya hasil pencarian sangat flexibel, 

kemudian kenapa ya textbox yang tampilan dari hasil listbox berupa tanggal, berubah formatnya

berikut codingnya, mohon bantuan untuk modifikasi coding di bawah ini, file terlampir

Private Sub LbCariData_Click()

Dim Ws As Worksheet

Set Ws = Sheets("DB")

Dim wsrekap As Worksheet

Set wsrekap = Sheets("CARI")

Dim R As Range

Set R = Ws.Range("ListDBA")

Dim RFilter As Range

Set RFilter = Ws.Range("CG1:CG2")

Dim RCari As Range

Set RCari = Ws.Range("CG2")

Dim C As Variant

If Ws.FilterMode Then Ws.ShowAllData

If UserForm1.TxtCariData.Text = "" Then

    MsgBox "Maaf...!! Anda Belum Memasukkan Data ..!!", 16, "Aplikasi Data"

    Exit Sub

End If

        UserForm1.TxtCariData.Text = RCari

        R.AdvancedFilter Action:=xlFilterCopy, _

        CriteriaRange:=RFilter, CopyToRange:=wsrekap.Range("B3:BQ3"), Unique:=False

        ListBox1.RowSource = "REKAPCARI"

End Sub

Trimakasih

Pada Senin, 16 Maret 2020 22.04.35 GMT+7, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

 

ini mesti listbox yang unbound, yang ngisi listbox nya pakai additem trus isi kolom berikutnya pakai properti List. Kalau pakai ini, maksimal hanya 10 kolom.

mbok ya pakai listbox yang bound, ngisi listboxnya pakai ngeset area range worksheet di properti ListFillRange (kalau listbox di worksheet) atau RowSource (kalau listbox di userform)..

Kalau pakai bound listbox seperti ini, kalau mau nampilin header, set properti ColumnHeads bernilai true. Ingat, area range yang di-set hanya record data. baris header tidak ikut disebut tapi harus tepat hanya di 1 baris sebelum baris pertama data.

Kalau mau hide kolom, set di columnwidths, supaya lebar kolom itu adalah 0.

Kalau mau sort listbox, cukup sort sumber datanya, lalu set ulang listfillrange atau rowsource

Contoh :

regional setting : EN-us

sheet bernama 'datanya kid'

header di A1:Z1  (26 kolom)

data di A2:Z37 (36 baris)

header ditampilkan

kolom B (kolom ke-2) dan kolom E (kolom ke-5) di-hide, selainnya ditampilkan

set di listbox (pakai script atau sejak design)

1. ColumnCount : diset bernilai 26

2. ColumnHeads : diset true

3. ListFillRange (kalau listbox di worksheet) atau RowSource (kalau di userform) : diset berisi string berbunyi   'datanya kid'!A2:Z37

4. ColumnWidths : diset 50;0;50;50;0     -> angka 50 adalah contoh untuk kolom yang di-set dengan lebar 50 pt

jika ada opsi sort isi listbox : 

- lakukan sort di A1:Z37

- kemudian set nomor 3 dengan vbnullstring   -> di clear

- lalu set lagi nomor 3 dengan  'datanya kid'!A2:Z37  -> reset

mau clear listbox ? set nomor 3 dengan vbnullstring

properrti fillcolor untuk control namanya BackColor

kondisi 'jika kosong' berarti panjang karakter isinya adalah 0

if len(textboxnya.text)=0 then textboxnya.backcolor=vbwhite else textboxtnya.backcolor=vbyellow

On Mon, Mar 16, 2020 at 11:48 AM Gobang Gocir gobang13910@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

Dear Para Suhu Milis belajar Excel,

Mohon bantuanya untuk kasus saya, saya sudah mencoba "menyontek" code2 vba dari internet termasuk dari milis excel, 

saya mempunyai data dengan banyak kolom, dan saya ingin memunculkanya di form untuk sebagian informasi yang dianggap penting, 

permasalahanya ketika saya mau tampilkan 12 dari kolom yang ada di listbox ke textbox itu terjadi error, 

di listbox ke textbox yang ada hanya bisa menampilkan 10 item.

Kemudian saya juga mencoba untuk membuat textbox berubah warna apa bila di textbox tersebut kosong

Trimakasih sebelum nya dan mohon Bantuanya, file terlampir

Best Regards

Bambang

__._,_.___

---

Posted by: Gobang Gocir <gobang13910@yahoo.com>

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (3)

============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Visit Your Group

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___