Fungsi Pencarian Flexibel

  1. 2 minggu lalu

    Dear Suhu Excel,

    Mohon bantuanya, dan pencerahanya ,yang saya mau tanyakan

    - Bagaimana membuat hasil pencarian lebih flexibel, dari textbox ke listbox yang Bound
    Contoh nya :
    Kehendak saya Apabila saya cari "ABC" semua kalimat yang ada "ABC" nya akan muncul walau di spaci yang ke dua atau ketiga

    di file ini, apa bila saya cari "ABC" maka yang muncul hanya kalimat depanya "ABC" saja yang muncul, mohon di bantu

    • Kemudian kenapa ya textbox yang tampilan dari hasil double click listbox berupa tanggal formatnya bukan tanggal
    • satu lagi coding "Txtcount.Value = ListBox1.ListCount" ko tidak berfungsi ya?

    Atas bantuan dan masukan saya haturkan trimkasih banyak, file terlampir

    Oh, yang itu pakai Array...
    Kalau soal asterisk-nya bisa dimasukkan hasil kodingnya, seperti contoh file yang pertama kan menggunakan advance filter, nah di text filternya tinggal tambahkan (*) di awal dan akhir.

    Private Sub TxtCariData_Change()
    Sheets("DB").Range("CG2").Value = "*" & UserForm1.TxtCariData.Text & "*"
    End Sub

    Jadi penulisan di textbox-nya tidak perlu menggunakan asterisk, seperti pada contoh gambar yang saya upload itu.

  2. Dear All, Mohon bantuanya

  3. Masdad

    Mar 24 Terverifikasi Demak + 1.467 Poin

    Untuk mencari kalimat yang berada di depan, tengah, maupun akhir bisa menggunakan asterisk (*) di awal dan akhir kata yang di cari, misal mencari BC ditulisnya *BC*

    Sedangkan untuk Tanggal, diubah formatnya dulu ke Format Date yang diinginkan, misalnya untuk Akte Pendirian:

    TextBox1.Value = Format(ListBox1.List(ListBox1.ListIndex, 6), "dd-mmm-yy")

    Untuk ListCount-nya:

    Txtcount.Value = ListBox1.ListCount - 1

    HASIL CARI.png

  4. Daer Pak Masdad,

    Trimakasih banyak untuk bantuanya,
    btw pak yang pakai tanda asterik (*), bisa tidak di terapkan di coding nya tidak pak, "nice try kali ajah pak Masdad bisa kasih solusi"

    pasalnya, sebelumnya saya pakai form yang terlampir, saya pakai listbox yang istilah nya unbound (ini diberitahu dari milis sebelah), yang akhirnya saya cari yang menggunakan Bound yang bisa menampilkan banyak kolom,

    Kekurangan di Unbound dari form yang saya dapat, listbox hanya bisa di tampilkan 10 kolom,
    Tetapi coding Carinya nya bisa lebih flexibel

    Sekali lagi trimakasih banyak Pak Masdad

  5. minggu lalu

    Masdad

    Mar 24 Terverifikasi Jawaban Terpilih Demak + 1.467 Poin

    Oh, yang itu pakai Array...
    Kalau soal asterisk-nya bisa dimasukkan hasil kodingnya, seperti contoh file yang pertama kan menggunakan advance filter, nah di text filternya tinggal tambahkan (*) di awal dan akhir.

    Private Sub TxtCariData_Change()
    Sheets("DB").Range("CG2").Value = "*" & UserForm1.TxtCariData.Text & "*"
    End Sub

    Jadi penulisan di textbox-nya tidak perlu menggunakan asterisk, seperti pada contoh gambar yang saya upload itu.

  6. Dear Pak Masdad,

    trimakasih atas bantuanya,
    btw maaf ya pak, ini saya bertanya lagi ini yang count nya tidak menghitung sebegaimana mustinya,

    apa ada pengaruhnya sama "Range Dinamik"

    Karna sebelumnya saya pakai Dinamik range menggunakan "=CARI!$B$3:$BQ$100" dan "=DB!$A$2:$BP$100"

    yang menggunakan "=OFFSET(DB!$A$2;0;0;COUNTA(DB!$E:$E);5" file nya datanya tidak muncul

    Apakah Range Dinamik yang mempengaruhi List count nya tidak berfungsi?
    Mohon di Ajarkan kan bagaimana fungsi Range Dinamik, sebagai catatan data yang saya gunakan copy paste dari excel yang lain

    Atau memang ada masalah yang lainya?

    Atas bantuan dan pembelajaranya saya ucapakan Banyak Trimakasih.

    Bambang

    btw, heheh copy picture ke dalam komentar gimana ya,

  7. 3 hari yang lalu

    Masdad

    Mar 31 Terverifikasi Demak + 1.467 Poin

    ini File yang saya edit kemarin yang menggunakan advanced Filter.

  8. 2 hari yang lalu

    Trimakasih banyak Pak @Masdad

 

atau Mendaftar untuk ikut berdiskusi!