Ekspresi | Belajar HTML dan PHP | Sunda | Kontak | Gmail | Uang Adsense
Kemahasiswaan Kilas Santai
PMB Online STMIK Jabar 2021
STMIK JABAR
LP3I Tasikmalaya
STAI Al-Falah
Pengobatan Ruqyah
Belajar Pemrograman PHP, MySQL, Framework CI, Domain, Hosting, CMS Wordpress, Framework Laravel. Yang Penting ada menu DAFTAR ISI
Inkubator | Daftar Isi | Bisnis Bitcoin | Tools Penting | PrivacyPolicy | Inggris Arab

Thursday, May 1, 2014

Cara Membuat Tombol Tambah Menggunakan Macro Microsoft Excel 2010


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



"Bitcoin and Forex are high risk business. We must join them smartly."
Belajar Bahasa Inggris dan Arab di Telegram dan FB Gratis!
Youtube: Katabah Com: Menuju 1 jt Konten :)

1 comment:

  1. UNTUK TOMBOL EDIT DAN HAPUS, BOLEH SHARE CODING NYA GAK,,
    THANK YOU

    ReplyDelete