√ Memasukan Data Textbox Ke Listbox Dengan Tombol Pada Userform

Mengentri data atau memasukan data ke listbox melalui data textbox yang kita entri tentu harus melalui CommandButton sebagai tombol perintah untuk memasukan data dari textbok ke listbox. Hal ini dilakukan melalui UserForm yang dirancang hanya memasukan data sementara supaya gampang terlihat oleh User.

Perlu diketahui bahwa tombol perintah memasukan data dari textbox ke listbox ini sifatnya hanya sementara artinya kalau userform di close maka data yang telah ada pada listbox tidak akan tersimpan dan kalau Anda membukanya kembali userform tersebut maka data akan hilang. Baiklah menyerupai apa rujukan tampilannya? Lihatlah gambar berikut ini

Gambar diatas merupakan hasil dari entri Nama anak, daerah lahir, dan tanggal lahir. Prosedurnya saat Anda klik tombol +Tambah maka data yang ada pada ketiga textbox tersebut akan dimasukan ke dalam listbox dan data gres akan dimasukan pada tamat listbox.

Bagaimana langkah untuk menciptakan hal tersebut?
Langkah pertama Anda harus menciptakan satu buah UserFom dan disini dengan 3 buah label, 3 buat textbox, 1 buat listbox, dan 1 buah Combobox. Berikut Properties yang harus Anda lakukan

Label1 ganti Caption menjadi "Nama Anak"
Label2 ganti Caption menjadi "Tempat Lahir"
Label3 ganti Caption menjadi "Tanggal Lahir"
Textbox1, Textbox2, Textbox3 Name biarkan default saja jangan dirubah
Listbox1 Name biarkan juga default saja jangan dirubah
Commanbutton1 ganti Caption menjadi "+Tambah"

Jika Properties sudah dibentuk mari kita menciptakan coding nya.
Buat Codding untuk UserForm_Active

Private Sub UserForm_Activate()
With ListBox1
    .ColumnCount = 3
    .ColumnWidths = 95 & " , " & 90 & "," & 30
End With
End Sub

Artinya Listbox akan diberi jumlah kolom sebanyak 3 dan ukuran per kolom yakni kolom 1 berukuran 95, kolom 2 berukuran 90, dan kolom 3 berukuran 30 Sebenarnya hal ini dapat Anda lakukan dengan memakai atau merubah properties. Untuk ukuran silakan sesuaikan dengan kebutuhan contohnya ada nama yang panjang berarti untuk kolom ke1 dapat Anda rubah menjadi 150.

Langkah Kedua kita akan menciptakan mekanisme untuk CommandButton1 yakni kalau di klik maka data akan dimasukan kedalam listbox dan berikut script VBA nya.

Private Sub CommandButton1_Click()
UserForm_Activate
With ListBox1
    If Trim(Me.TextBox1.Value) = "" Then
        Me.TextBox1.SetFocus
        MsgBox "Masukan Nama Anak"
        Exit Sub
    End If
    If Trim(Me.TextBox2.Value) = "" Then
        Me.TextBox2.SetFocus
        MsgBox "Masukan Tempat Lahir Anak"
        Exit Sub
    End If
    If Trim(Me.TextBox3.Value) = "" Then
        Me.TextBox3.SetFocus
        MsgBox "Masukan Tanggal Lahir Anak"
        Exit Sub
    End If

.AddItem
.List(.ListCount - 1, 0) = TextBox1.Value
.List(.ListCount - 1, 1) = TextBox2.Value
.List(.ListCount - 1, 2) = TextBox3.Value
End With

Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox1.SetFocus
End Sub

Artinya kalau Ada salah satu textbox yang dikosongkan perintah "+Tambah" tidak akan berfungsi atau akan menampilkan pesan untuk memasukan data. dan kalau semua textbox berisi data maka kalau di klik tombol tambah data maka semua data dari masng-masing textbox akan dimasukan kedalam listbox sesuai dengan kolomnya.

Silakan Anda belajar menciptakan UserForm untuk menambah wawasan

[23] Pengenalan Dasar Membuat UserForm VBA Excel





Sumber http://www.excel-id.com/

√ Input Data Dari Listbox Ke Worksheet

Kali ini aku akan membahas bagaimana carai input data dari ListBox ke Worksheet dengan memakai tombol. Memasukan data atau input data dari listbox ke worksheet biasanya data sudah ada dan tersedia di listbox kemudian di pilih dan data yang terpilih dimasukan kedalam worksheet yang telah ditentukan. Tentunya pilihan data ini dapat satu data atau beberapa data dengan cara mendrag kemudian bari klik tombol nya.

Ok, pribadi saja ini beliau tutorial bagaimana cara input data dari listbox ke worksheet.
Langkah pertama silakan Anda buat data pada worksheet yang nantinya akan ditampillkan di list pada userform menyerupai tambel berikut ini. Oia tabel yang dientrikan berada pada Sheet1

Langkah berikutnya kita akan menciptakan Nama Range / Name Range dengan rujukan rumus Offsetsilakan klik sajian Formula kemudian klik Manager dan silakan tulis Name dengan nama "MyRange" kemudian silakan ketikkan rumus berikut ini pada refer to

=OFFSET(Sheet1!$A$2;0;0;COUNTA(Sheet1!$A$2:$A$100);COUNTA(Sheet1!$A$1:$J$1))

Klik OK kemudian klik Close

Langkah berikutnya silakan kita masuk ke VBA editor dengan menekan tombol ALT+F11 dan hal ini sudah aku bahas bagaimana cara menampilkan editor VBA.
Setelah Anda masuk silakan Insert 1 buah UserForm, 1 buah Listbox, dan 1 buah Commandbutton. untuk properties nya jangan diapa apain biarkan saja seadanya.

Setelah itu kita akan menciptakan script VBA untuk menciptakan coding nya. Silakan Anda double click pada Commandbutton1 kemudian tuliskan coding VBA berikut ini

Private Sub CommandButton1_Click()
Dim iListCount As Integer, iColCount As Integer
Dim iRow As Integer
Dim rStartCell As Range

Private Sub CommandButton1_Click()
Dim iListCount As Integer, iColCount As Integer
Dim iRow As Integer
Dim rStartCell As Range
Set rStartCell = Sheet2.Range("A65536").End(xlUp).Offset(1, 0)
  For iListCount = 0 To ListBox1.ListCount - 1
   If ListBox1.Selected(iListCount) = True Then
      ListBox1.Selected(iListCount) = False
      iRow = iRow + 1
      For iColCount = 0 To Range("MyRange").Columns.Count - 1
       rStartCell.Cells(iRow, iColCount + 1).Value = _
       ListBox1.List(iListCount, iColCount)
      Next iColCount
   End If
Next iListCount
Set rStartCell = Nothing
End Sub

Untuk menambahkan perintah menampilkan UserForm kita akan menciptakan satu buah Module dengan cara klik sajian Insert kemudian pilik Module dan ketikkan coding berikut ini

Sub ShowTheForm()
UserForm1.Show
End Sub

Langkah selanjutnya silakan kembali ke worksheet dan buat satu buat tombol untuk memanggil Module yang telah dibentuk tersebut

Langkah selanjutnya silakan buat tabel dengan hanya mengetikkan judul kolom nya saja pada sheet2 dan sheet2 ini nantinya akan dijadikan database hasil input data dari listbox.

Selesai.
Mari kita coba hasil coding VBA tadi dengan cara menekan tombol yang ada pada sheet1 bekerjsama kita dapat pindahkan tombol yang telah dibentuk ke sheet 2 dan hal ini tidak akan kuat terhadap coding tersebut.

 Jika kita pilih salah satu data pada listbox contohnya Farhan kemudian klik tombol simpan maka data akan secara otomatis dimasukan kedalam database hasil input.

Berhasil kan? kemudian bagaimana jikalau data yang kita pilih lebih dari 1? Silakan anda grag listbox tersebut kemudian klik tombol simpan kesudahannya akan sama listbox yang terpilih akan dimasukan juga ke database sesudah tombol simpan di klik.

Ok, segitu saja tutorial singkat perihal Input data dari listbox ke worksheet, semoga bermanfaat dan selamat belajar.
Sumber http://www.excel-id.com/

√ 2 Cara Menciptakan Header Pada Listbox

Menampilkan header pada listbox memang terkadang diperlukan untuk melihat atau memperjelas kolom per field. Ada dua cara menampilkan header yang pertama dengan properties dan yang kedua dengan coding VBA. Kedua cara tersebut sanggup berfungsi sama Anda tinggal menentukan cara mana yang terbaik.

Cara Menampilkan Header pada Listbox dengan Properties

Maksudnya ialah Anda tidak perlu menciptakan coding atau menuliskan script VBA namun cukup pilih listbox kemudian rubah properties Header menjadi TRUE. Lalu caranya bagaimana lihat gambar berikut

Data listbox diatas merupakan database yang diambil dari range yang sudah diberi nama "ListData" dan belum mempunyai header kemudian bagaimana cara menampilkan header pada listbox database tersebut? Untuk cara pertama ini silakan lihat pada properties dan jangan lupa klik terlebih dahulu listbox nya kemudian cari Header dan ganti yang tadinya False menjadi True

Lihat ColumHeads yang tadinya False silakan rubah menjadi True dan risikonya akan listbox akan terlihat menjadi menyerupai berikut

Cara Kedua menampilkan Header dengan Coding VBA

Cara kedua ini tentu Anda harus mengetikkan sedikit coding yaitu dengan object userform dan prosedure UserForm_Initialize dan berikut tampilan codingnya

atau Anda silakan copy paste dibawah ini

Private Sub UserForm_Initialize()
ListBox1.ColumnHeads = True
End Sub

Lalu apa bedanya dari kedua cara tersebut? untuk bicara persoalan hasil keduanya sama saja tetapi kalau Anda gunakan cara pertama header pada desain Userform sanggup terlihat tetapi kalau memakai cara kedua untuk melihat risikonya Anda harus Run terlebih dahulu gres akan terlihat heading nya.

Oke, segitu saja tutorial singkat bagaimana cara menampilkan header pada listbox biar bermanfaat.
Sumber http://www.excel-id.com/

√ Cara Lain Menciptakan Header Atau Judul Kolom Pada Listbox

Kenapa ada cara lain untuk menciptakan atau menampilkan header/judul kolom pada listbox? Pernah aku bahas bahwa ada dua cara yang aku tahu untuk menciptakan header silakan cek

Dua Cara Membuat Header Pada Listbox

Cara diatas memang banyak dipakai oleh pengguna VBA excel namun bahu-membahu ada cara lain untuk menampilkan header atau judul kolom pada listbox dan cara ini tentunya judul kolom atau header dibentuk sendiri tanpa mengambil data yang sesuai pada worksheet. Misalnya aku mempunyai data di excel sebagai berikut

Data diatas merupakan tabel dari worksheet dan gambar yang ditunjukan oleh anak panah warna hijau tersebut merupakan header atau judul kolom jikalau ingin ditampilkan semua silakan list tutorial aku sebelumnya pada lik diatas.

Cara lain yang aku maksud disini ialah bagaimana mengganti "Nama" menjadi "Nama Pegawai" lalu "Tempat Lahir" menjadi "Tempat Lahir" dan "Tanggal Lahir" menjadi "Tgl.Lahir". perhatikan hasil dari listbox berikut ini

Lihat perubahan pada userform listbox tersebut judul kolom untuk setiap item atau header berbeda dengan yang ada pada worksheet.

Lihat Cara Input Data dari Listbox ke Workshet dengan VBA

Demikian tutorial singkat ini agar bermanfaat dan selamat mencoba.


Sumber http://www.excel-id.com/