yg terhormat, All Master BE-Org, mohon bantuannya, script mengambil nilai listbox yang terpilih, terima kasih
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,
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