Cara Membuat Tombol Tambah Menggunakan Macro Microsoft Excel 2010

Nabung Emas dan Reksadana Online Rp 10.000

Script Macro dapat ditulis menggunakan Visual Basic Editor yang sudah tersedia di ribbon Developer Microsoft Excel.

1.      Buatlah file baru di Microsoft Excel

2.      Pastikan ribbon Developer sudah muncul (Langkahnya ada di tutorial Cara Mengaktifkan Macro di Microsoft Excel 2010)

3.      Simpan dengan langkah berikut:

a.       Save

b.      Di kotak Save as type, pilih Excel Macro-Enabled Workbook

4.      Klik tombol Save

5.      Kalau dicek di Windows Explorer, maka icon akan ada tanda seru. Perhatikan file yang ditandai merah pada gambar berikut:

6.      Kembali ke Microsoft Excel lagi ya…

7.      Klik Developer

8.      Klik Insert

9.      Klik Command Button (ActiveX Control)

10.  Drag di area yang kosong hingga membentuk persegi

11.  Perhatikan gambar berikut:

12.  Pastikan tombol CommandButton1 sudah diklik

13.  Klik Properties di ribbon Developer

14.  Di panel Properties, klik Caption

15.  Ketik Input Data Mahasiswa

16.  Hasilnya seperti ini:

17.  Klik Sheet2

18.  Buatlah tabel berikut ini:

19.  Klik Developer

20.  Klik Visual Basic

21.  Keluar tampilan seperti ini:

22.  Klik Insert – UserForm

23.  Muncul tampilan seperti ini:

24.  Di panel Toolbox, klik icon A (Label)

25.  Klik di area kosong pada UserForm1

26.  Klik Properties

27.  Klik Caption

28.  Ketik: Nomor

29.  Klik lagi area yang kosong pada UserForm1

30.  Klik lagi icon A (Label)

31.  Klik di bawah tulisan Nomor pada area kosong pada UserForm1

32.  Klik Caption

33.  Ketik Nama Mahasiswa

34.  Klik lagi area yang kosong pada UserForm1

35.  Klik icon “ab” (TextBox)

36.  Klik di belakang tulisan Nomor pada UserForm1

37.  Klik lagi “ab” (TextBox)

38.  Klik di belakang tulisan Nama Mahasiswa pada UserForm1

39.  Klik CommandButton

40.  Klik di bawah tulisan Nama Mahasiswa pada UserForm1

41.  Klik Caption

42.  Ketik: Simpan

43.  Hasilnya seperti ini:

Keterangan:

Fasilitas yang ditandai merah adalah fasilitas yang perlu diperhatikan ketika melakukan desain di atas.

44.  Double klik pada tombol Save

45.  Ketik script berikut ini:

For a = 1 To 100

    If Sheet2.Cells(2 + a, "B") = "" Then

        Sheet2.Cells(2 + a, "B") = TextBox1

        Sheet2.Cells(2 + a, "c") = TextBox2

       

        If MsgBox("Isi lagi", vbYesNo + vbInformation, "Isi") = vbYes Then

            TextBox1 = ""

            TextBox2 = ""

           

            TextBox1.SetFocus

            a = 100

        Else

            Sheet2.Activate

            End

        End If

    End If

    Next a

46.  Untuk menguji kode/script kita benar atau tidak, klik tombol Run Sub

47.  Muncul seperti gambar berikut:

48.  Ketikkan data berikut pada UserForm1

Nomor	Nama Mahasiswa
1	Maman
2	Mimin

49.  Hasilnya seperti ini:

Keterangan:

Program sudah berjalan dengan baik apabila ketika mengklik tombol Simpan, tidak terjadi error dan data yang dientri langsung muncul di Excel (B3 dan C3) seperti tulisan 1 Maman.

50.  Close program kita (tanda X yang berwarna merah)

51.  Close Microsoft Visual Basic for Applications (Di sudut kanan-atas-warna merah)

52.  Klik Sheet1

53.  Klik Developer

54.  Klik Design Mode

55.  Double klik tombol Input Data Mahasiswa

56.  Ketik script berikut:

Sheet2.Activate

UserForm1.Show

57.  Perhatikan gambar berikut:

58.  Klik Save

59.  Close Microsoft Visual Basic for Applications

60.  Klik Sheet1

61.  Klik Developer

62.  Klik Design Mode

63.  Sekarang klik tombol Input Data Mahasiswa

64.  Akan muncul gambar seperti ini:

65.  Sekarang program kita sudah bisa dipakai untuk mengetikkan data mahasiswa


Download

"Investasi Emas dan Reksadana, Untung Mana?."

Youtube: Katabah Com: Menuju 1 jt Konten :)