SALAM PEMBUKA

  • ASSALAMU 'ALAIKUM WAROHMATULLAHI WABAROKATUH

Jumat, 31 Maret 2017

Cara memasukkan isi listbox ke textbox beda userform

Untuk menampilkan userform3 dan mengisi textbox dari listbox yg di userform1
Di tulis dalam event doble clik listbox

Privat sub listCaridblclik
if listCari.listindex < 0 then exit sub
Userform3.Textbox1 = listCari. List (listCari. Listindex, 0)
Userform3.show
End sub

Jumat, 24 Maret 2017

Menghapus data terpilih dalam listbox

Private Sub CommandButton2_Click()
'perintah untuk menghapus data Terpilih dari dalam ListBox2

Dim counter As Integer
counter = 0
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i - counter) Then
ListBox2.RemoveItem (i - counter)
counter = counter + 1
End If
Next i
End Sub

Jumat, 17 Maret 2017

cara menggunakan kode Penjumlahan pada listbox

cara menggunakan kode Penjumlahan pada listbox

Private Sub totalharga()
Dim i As Integer
Dim harga As Long
harga = 0
For i = 0 To ListBox1.ListCount - 1
harga = harga + Val(ListBox1.List(i, 2))
Next
Me.txtotal.Text = harga
End Sub
 
Penjumlahan list box2
Sub hitung ()
With listbox1
Me.TxtTotal=0
For i =1 to. ListCount - 1
Me.TxtTotal = csng (me.txtTotal) + csng (. List (i, 4))
Next
End with
End sub

Jumat, 10 Maret 2017

Cara Memberi Nama Header / Kepala Kolom

Cara Memberi Nama Header / Kepala Kolom
Sub Headerlist()
With ListBox1
.AddItem
.List(.ListCount - 1, 0) = "Nomor"
.List(.ListCount - 1, 1) = "Nama Siswa"
.List(.ListCount - 1, 2) = "Kelas"
.List(.ListCount - 1, 3) = "Wali murid"
.ColumnWidths = 35 & ";" & 70 & ";" & 45 & ";" & 80
End With
End Sub

Jumat, 03 Maret 2017

Macam Macam fungsi Listview

macam macam fungsi listview

1. Menampilkan Data pada TextBox saat data diKlik pada
ListView
Private Sub ListView1_ItemClick(ByVal Item As
MSComctlLib.ListItem)
TextBox1 = ListView1.SelectedItem
TextBox2 = ListView1.SelectedItem.SubItems(1)
TextBox3 = ListView1.SelectedItem.SubItems(2)
TextBox4 = ListView1.SelectedItem.SubItems(3)
TextBox5 = ListView1.SelectedItem.SubItems(4)
End Sub


2. Memberikan Judul pada ListView
Private Sub UserForm_Initialize()
With ListView1
.Gridlines = True
.View = lvwReport
.FullRowSelect = True
.ColumnHeaders.Add Text:="Tanggal Transaksi", Width:=100
.ColumnHeaders.Add Text:="Nama Produk", Width:=170
.ColumnHeaders.Add Text:="Satuan", Width:=60
.ColumnHeaders.Add Text:="Jumlah", Width:=40
.ColumnHeaders.Add Text:="Total Harga", Width:=100
End With
Call Tampil
End Sub


3. Menampilkan data dari Worksheet Excell ke dalam
ListView
Sub Tampil()
Dim Item As ListItem
Dim rekamandata As Integer
Dim i As Integer
ListView1.ListItems.Clear
rekamandata = Sheet1.Cells(Rows.Count, 1).End
(xlUp).Row
For i = 4 To rekamandata
Set Item = ListView1.ListItems.Add(Text:=Sheet1.Cells(i,
1))
Item.SubItems(1) = Sheet1.Cells(i, 2)
Item.SubItems(2) = Sheet1.Cells(i, 3)
Item.SubItems(3) = Sheet1.Cells(i, 4)
Item.SubItems(4) = Sheet1.Cells(i, 5)
Next
Label1.Caption = ListView1.ListItems.Count 'Menghitung
Data Dalam ListView
End Sub

CARA Memasukkan isi ListBox Ke dalam Worksheet

CARA Memasukkan isi ListBox Ke dalam Worksheet

Private Sub CommandButton3_Click()
Set ws = Worksheets("Sheet1")
Dim Baris As Long
Dim Jumlah As Long
Jumlah = ListBox1.ListCount - 1
With ws
Baris = .Cells(.Rows.Count, "A").End(xlUp).Offset(0,
0).Row
For i = 1 To Jumlah
With .Cells(Baris + i, "A")
.Value = DTPicker1.Value
End With
.Cells(Baris + i, 2).Value = TextBox1.Value
.Cells(Baris + i, 3).Value = ListBox1.List(i, 0)
.Cells(Baris + i, 4).Value = ListBox1.List(i, 1)
.Cells(Baris + i, 5).Value = ListBox1.List(i, 2)
Next i
End With
UserForm_Activate
End Sub