Menampilkan data dari listbox ke textbox vba excel

3 tahun lalu

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

@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 :

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.

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

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????

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

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,

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

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

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

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