Kali ini kita mau buat case suatu macro excel sederhana, diikuti ya bagi yang belajar-belajar macro excell
Macro
1:
1.
Buatlah tampilan seperti dibawah ini.
1. Pilih insert à
shape à isosceles
triangle untuk membuat tanda panah
Tampilan Insert
Tampilan yang Dibuat
2. 2.
Developer
àVisual Basic à Module
3.
Ketikkan Coding dibawah ini
Coding
4. 3. Assign
Macro sesuai dengan kriteria
Assign Macro
5. 4.
Developer>Insert>ActiveX
Controls>Insert CheckBox
Developer
6. 5. Double
Klik Checkbox dan masukkan Coding dibawah ini:
Coding
7. 6. Run Program
Macro 2 :
Pada macro 2 kali ini akan dicoba mempraktikkan membuat dan mendesain sebuah Form pendataan Karyawan kemudian data
tersebut dapat kita simpan di worksheet
Excel. Ikuti langkah-langkah berikut ini.
1.
Buka Microsoft Excel, lalu pastikan anda
telah mengaktifkan menu developer
2.
Klik menu developer lalu klik tombol Visual basic atau dapat juga menggunakan
Shortkey Alt + F11.
3.
Pilih menu Insert > UserForm maka akan tampil form VBA
4.
Perhatikan
jendela Toolbox, Jendela tool box digunakan untuk membuat control object yang dibutuhkan oleh FORM.
Jendela ToolBox
5.
Berikut
ini keterangan dari control toolbox
yang akan kita gunakan untuk membuat form
VBA Sederhana Pada Ms. Excel
Control Toolbox
6.
Setiap control memiliki properti ada pada
jendela properties. Gambar di bawah
ini akan menjelaskan bagaimana mengisi sebuah properti pada control.
7.
Buatlah control sesuai dengan ketentuan properti
di bawah ini
Control yang akan Dibuat
8.
Kini saatnya
untuk melakukan coding program,
9.
Klik kanan
pada form lalu pilih viewcode
10.
Masukkan code pemrograman di bawah ini.
Private Sub btnExit_Click()
Unload Me
End Sub
Private Sub btnHapus_Click()
txtidKar.Value = ""
txtnamaKaryawan.Value = ""
txttempatLahir.Value = ""
txtmailid.Value = ""
cmbTanggal.Clear
cmbBulan.Clear
cmbTahun.Clear
call
UserForm_Initialize
'Reset Radio Button/Option Button
radioLaki.Value = False
radioPerempuan.Value = False
End Sub
Private Sub btnSimpan_Click()
Dim emptyRow As Long
'aktifkan Sheet1
Sheet1.Activate
'deteksi baris kosong
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
'Simpan data ke sheet1
Cells(emptyRow, 1).Value = txtidKar.Value
Cells(emptyRow, 2).Value = txtnamaKaryawan.Value
Cells(emptyRow, 3).Value = txttempatLahir.Value
Cells(emptyRow, 4).Value = cmbTanggal.Value & "/" &
cmbBulan.Value & "/" & cmbTahun.Value
Cells(emptyRow, 5).Value = txtmailid.Value
If radioLaki.Value = True Then
Cells(emptyRow, 6).Value =
"Laki-Laki"
Else
Cells(emptyRow, 6).Value =
"Perempuan"
End If
End Sub
Private Sub UserForm_Initialize()
'Kosongkan data Text Box
txtidKar.Value = ""
txtidKar.SetFocus
'Clear Combo Tanggal Lahir
cmbTanggal.Clear
cmbBulan.Clear
cmbTahun.Clear
'Isi Tanggal untuk combo Box Tanggal Lahir
With cmbTanggal
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "4"
.AddItem "5"
.AddItem "6"
.AddItem "7"
.AddItem "8"
.AddItem "9"
.AddItem "10"
.AddItem "11"
.AddItem "12"
.AddItem "13"
.AddItem "14"
.AddItem "15"
.AddItem "16"
.AddItem "17"
.AddItem "18"
.AddItem "19"
.AddItem "20"
.AddItem "21"
.AddItem "22"
.AddItem "23"
.AddItem "24"
.AddItem "25"
.AddItem "26"
.AddItem "27"
.AddItem "28"
.AddItem "29"
.AddItem "30"
.AddItem "31"
End With
'Isi Bulan untuk combo Box Bulan Lahir
With cmbBulan
.AddItem "JAN"
.AddItem "FEB"
.AddItem "MAR"
.AddItem "APR"
.AddItem "MAY"
.AddItem "JUN"
.AddItem "JUL"
.AddItem "AUG"
.AddItem "SEP"
.AddItem "OCT"
.AddItem "NOV"
.AddItem "DEC"
End With
'Isi Tahun untuk combo Box Tahun Lahir
With cmbTahun
.AddItem "1980"
.AddItem "1981"
.AddItem "1982"
.AddItem "1983"
.AddItem "1984"
.AddItem "1985"
.AddItem "1986"
.AddItem "1987"
.AddItem "1988"
.AddItem "1989"
.AddItem "1990"
.AddItem "1991"
.AddItem "1992"
.AddItem "1993"
.AddItem "1994"
.AddItem "1995"
.AddItem "1996"
.AddItem "1997"
.AddItem "1998"
.AddItem "1999"
.AddItem "2000"
.AddItem "2001"
.AddItem "2002"
.AddItem "2003"
.AddItem "2004"
.AddItem "2005"
.AddItem "2006"
.AddItem "2007"
.AddItem "2008"
.AddItem "2009"
.AddItem "2010"
.AddItem "2011"
.AddItem "2012"
End With
'Reset Radio Button/Option Button
radioLaki.Value = False
radioPerempuan.Value = False
End Sub
11.
Jalankan
aplikasi tersebut, jika berhasil maka akan tampil seperti gambar di bawah
ini
Tampilan Akhir
*******
Sekian ya tutorial untuk sesi ini, jangan lupa sering berkunjung ya untuk sesi-sesi berikutnya :D:D.
0 komentar:
Post a Comment