Tutorial ToolBox Pada Ms. Excel

Command Button Box pada Excel yaitu tombol perintah yang digunakan untuk menjalankan sebuah event atau perintah tertentu yang bisa kita buat coddingnya sesuai kebutuhan dan keinginan masing-masing. Misalnya untuk melakukan operasi hitung, hapus data, input data, membuat form, membuka message box dan sebagainya.

1. Langkah pertama buka Ms.Excel. kemudian klik seperti gambar dibawah ini kemudian buka Excel Options

2. Pada Excel Options beri tanda centang pada menu “Show Developer tab in the Ribbon”. Kemudian klik OK.

3. Maka akan muncul tab Developer pada Ribbon.

4. Buatlah table 5x6 pada Excel.

5. Kemudian masukkan format Nama, Kelas, NPM, Alamat dan TTL pada Tabel.

6. Kemudian beri warna pada table agar lebih menarik.

7. Langkah selanjutnya masuk ke tab Developer dan klik pilihan Command Button (ActiveX Control pada menu Insert.

8. Kemudian klik kanan pada Command Button yang telah dibuat dan edit CommandButton Object untuk merubah tulisan pada CommandButton. Ubah namanya menjadi INPUT.

9. Sekarang buka Visual Basic dengan cara mengklik menu Visual Basic dipojok kiri atas menu developer.

10. Lalu buat form dengan cara mengklik menu UseForm pada Visual Basic.

11. Setelah mengklik form, buatlah sebuah form biodata seperti berikut ini. Untuk menambahkan keterangan tulisan gunakan menu Label seperti yang ditunjuk cursor.

12. Setelah membuat keterangan, buatlah TextBox menggunakan menu TextBox seperti gambar berikut.

13. Dan yang terakhir buat Command Button INPUT dan KELUAR pada form tersebut dengan menggunakan menu CommandButton.

14. Setelah pembuatan form selesai, saatnya memberikan coddingan pada command button. Double klik pada command button INPUT pada form.

Masukkan sintaks berikut diantara Private Sub dan End Sub:

Dim x As Long →Berfungsi untuk menghitung jumlah baris

If TextBox1.Text = “” Then

MsgBox “masukkan data” →Untuk menampilkan MessageBox

End If

X = Cells(Rows.Count, 1).End(xlUp).OffSet(1, 0).Row

Cells(x, 1).value = Me.TextBox1.value → memberikan inputan Box1

Cells(x, 2).value = Me.TextBox2.value → memberikan inputan Box2

Cells(x, 3).value = Me.TextBox3.value → memberikan inputan Box3

Cells(x, 4).value = Me.TextBox4.value → memberikan inputan Box4

Cells(x, 5).value = Me.TextBox5.value → memberikan inputan Box5

TextBox1.Text = “” → Untuk menghapus dan memindahkan data ke excel

TextBox2.Text = “” → Untuk menghapus dan memindahkan data ke excel

TextBox3.Text = “” → Untuk menghapus dan memindahkan data ke excel

TextBox4.Text = “” → Untuk menghapus dan memindahkan data ke excel

TextBox5.Text = “” → Untuk menghapus dan memindahkan data ke excel

15. Berikan coddingan juga pada CommandButton KELUAR. Hanya memasukkan sintaks Unload Me.

16. Kemudian buka kembali Excelnya dan klik kanan pada CommandButton INPUT dan pilih View Code.

17. Masukkan sintaks Userform1.Show diantara Private Sub dan End Sub.

18. Buka lagi excelnya dan non-aktifkan Design Mode pada Command Button dengan cara mengkliknya.

19. Langkah terakhir, klik CommandButton INPUT pada Excel dan masukkan nama-nama sesuai biodata seperti berikut.

DAN INILAH HASIL AKHIRNYA.