mengambil data pada listbox

  1. 2 minggu lalu

    yg terhormat, All Master BE-Org, mohon bantuannya, script mengambil nilai listbox yang terpilih, terima kasih

  2. Caton

    Nov 25 Terverifikasi Indonesia + 15.164 Poin

    @bejo ...

    Klo tidak salah, pertanyaan yang serupa sudah pernah pernah didiskusikan. Dan kategori diskusi yang tepat untuk hal yang ditanyakan adalah pada kategori ini.

    Untuk pertanyaan bagaimana mengambil nilai dari kontrol ListBox untuk item terpilih :

    cobal.png

    bisa menggunakan script seperti berikut :

    Private Sub CommandButton3_Click()
        If listCari.ListIndex > -1 Then
            Dim lIdx As Long
            
            lIdx = listCari.ListIndex
            With Sheets("nota")
                .Range("A23").Value = listCari.List(lIdx, 0)
                .Range("B23").Value = listCari.List(lIdx, 1)
                .Range("C23").Value = listCari.List(lIdx, 2)
                .Range("D23").Value = listCari.List(lIdx, 3)
                .Range("E23").Value = listCari.List(lIdx, 4)
                .Range("F23").Value = listCari.List(lIdx, 5)
                .Range("G23").Value = listCari.List(lIdx, 6)
            End With
            TextBox1.Value = ""
            listCari.Clear
        End If
    End Sub

    atau yang lebih sederhana lagi seperti berikut :

    Private Sub CommandButton3_Click()
        If listCari.ListIndex > -1 Then
            With Sheets("nota")
                .Range("A23").Value = listCari.Column(0)
                .Range("B23").Value = listCari.Column(1)
                .Range("C23").Value = listCari.Column(2)
                .Range("D23").Value = listCari.Column(3)
                .Range("E23").Value = listCari.Column(4)
                .Range("F23").Value = listCari.Column(5)
                .Range("G23").Value = listCari.Column(6)
            End With
            TextBox1.Value = ""
            listCari.Clear
        End If
    End Sub

    Demikian.

  3. iya Master, terima kasih banyak, mf master sudah merepotkan dgn persoalan yg sama, sekali lagi terima kasih.

  4. slmat siang master, bersambung lg master, timbul lg pengembangan ketika satu data sudah terpilih dengan tombol atau klik pada listbox, , maka textbox1 = data terpilih, kemudian proses berlanjut dengan nama sudah fix, bisa gx ya master????

  5. Caton

    Nov 26 Terverifikasi Indonesia + 15.164 Poin

    @bejo ...

    ... ketika satu data sudah terpilih dengan tombol atau klik pada listbox, , maka textbox1 = data terpilih, kemudian proses berlanjut dengan nama sudah fix ...

    Coba tambahkan salah satu contoh script berikut pada Event Procedure listCari_Click :

    Private Sub listCari_Click()
        If listCari.ListIndex > -1 Then
            Me.TextBox1.Value = listCari.Column(3)
        End If
    End Sub

    Script di atas akan mengisi TextBox dengan nama terpilih pada ListBox. Untuk pencarian berikutnya, klik tombol CARI. Atau script berikut :

    Private Sub listCari_Click()
        If listCari.ListIndex > -1 Then
            Me.TextBox1.Value = listCari.Column(3)
            Call CommandButton1_Click
        End If
    End Sub

    Script di atas akan mengisi TextBox dengan nama terpilih pada ListBox dan kemudian langsung melakukan secara pencarian berikutnya secara langsung. Atau script berikut :

    Private Sub listCari_Click()
        If listCari.ListIndex > -1 Then
            If Me.TextBox1.Value <> listCari.Column(3) Then
                Me.TextBox1.Value = listCari.Column(3)
                Call CommandButton1_Click
            End If
        End If
    End Sub

    Script di atas akan mengisi TextBox dengan nama terpilih pada ListBox dan kemudian langsung melakukan secara pencarian berikutnya secara langsung namun akan mencegah proses berulang jika nama pada TextBox sudah terpilih.

    Demikian.

  6. pasang muka tebel aja master, sebenernya saya malu tanya terus, tp gk papa lah, muka saya gk kelihatan, terima kasih banyak master, terima kasih banyak, semoga anda dan keluarga selalu dlm lindungna Alloh, aamiin,

  7. Caton

    Nov 26 Terverifikasi Indonesia + 15.164 Poin

    @bejo ...

    Jangan malu bertanya mas, tetap semangat... :)

    ... terima kasih banyak, semoga anda dan keluarga selalu dlm lindungna Alloh, aamiin ...

    Sama-sama mas, semoga mas @bejo sekeluarga juga selalu dalam lindungan Allah Ta'ala. Aamiin.

  8. minggu lalu

    master, untuk menampilkan pemisah angka ribuan pada listbox gmana ya, saya sudah pakai
    .Range("F23").Value = listCari.Format(Column(5) * 1, "#,##0"), tp ttp gk ada pemisahnya, terus pada

    Private Sub listCari_change()
    If listCari.ListIndex > -1 Then
    listCari.Column(5) = Format(listCari.Column(5) * 1, "#,##0")
    End If
    End Sub

    masih jg gk ada pemisahnya, mohon bantuannya, terima kasih

  9. Caton

    Des 2 Terverifikasi Indonesia + 15.164 Poin

    @bejo ...

    Script berikut ini :

    Private Sub listCari_change()
    If listCari.ListIndex > -1 Then
    listCari.Column(5) = Format(listCari.Column(5) * 1, "#,##0")
    End If
    End Sub

    sudah saya coba dan hasilnya sesuai... Kalo tidak sesuai juga, coba ubah formatnya menjadi "#.##0" ... tapi saya sih tidak yakin bentuk format tersebut penyebabnya... :)

    Sekedar saran, sebaiknya format datanya diubah sejak awal data akan ditampilkan ke ListBox. Misalkan pada prosedur Sub TampilkanSemua(), cari baris script :

    ...
    .List(.ListCount - 1, 5) = sTampil.Offset(0, 5).Value
    ...

    lalu ubah menjadi seperti ini :

    ...
    .List(.ListCount - 1, 5) = Format(sTampil.Offset(0, 5).Value, "#,##0")
    ...

    Demikian.

  10. terima kasih lagi master, sekarang angkanya sudah ada pemisah ribuan, jadi melihatnya gk perlu ngitung jml digitnya

 

atau Mendaftar untuk ikut berdiskusi!