Serba Serbi

Form VBA Sederhana Pada Excel

Haloo......Apa kabar tentunya baik-baik saja kan, pada kesempatan yang paling indah ini, disaat di luar rumah sedang gerimis-gerimis mengundang, saya sempatkan untuk membagikan sedikit Tutorial Excel membuat Form VBA Sederhana pada Excel, pada kesempatan ini kita akan mencoba 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.

5. Berikut ini keterangan dari control toolboxs yang akan kita gunakan untuk membuat form VBA Sederhana Pada Ms. Excel

Controls	Keterangan
	Label
	Text Box
	Combo Box
	Radio Button (Option Button)
	Command Button
	Check Box
	List Box

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

safs

Get paid to share your links!

dafdsafdsafsd

Control	Name	Caption
From	UserForm	Form Karyawan
Label Box	idKar	ID Karyawan
Label Box	namaKaryawan	Nama Karyawan
Label Box	tempatLahir	Tempat Lahir
Label Box	tglLahir	Tanggal Lahir
Label Box	mailid	Email ID
Label Box	sex	Jenis Kelamin
Text Box	txtidKar	-
Text Box	txtnamaKaryawan	-
Text Box	txttempatLahir	-
Text Box	txtemailid	-
Combo Box	cmbTanggal	-
Combo Box	cmbBulan	-
Combo Box	cmbTahun	-
Radio Button	radioLaki	Laki-Laki
Radio Button	radioPerempuan	Perempuan
Button	btnSimpan	Simpan
Button	btnBatal	Batal

8. Kini saatnya untuk melakukan coding program,

9. Klik kanan pada form lalu pilih viewcode

10. Masukkan code pemrograman di bawah ini.

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 = txtemailid.Value

If RadioLaki.Value = True Then

Cells(emptyRow, 6).Value = "Laki-Laki"

Else

Cells(emptyRow, 6).Value = "Perempuan"

End If

End Sub

Private Sub cmdBatal_Click()

Unload Me

End Sub

Private Sub UserForm_Initialize()

'Kosongkan data Text Box

txtIdKar.Value = ""

txtIdKar.SetFocus

'txtempatlahir.SetFocus

txtNamaKaryawan.Value = ""

txtTempatLahir.Value = ""

txtemailid.Value = ""

'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

Jalankan aplikasi tersebut, jika berhasil maka akan tampil seperti gambar di bawah ini :

Demikian Tutorial kami tentang Form VBA Sederhana Pada Excel sangat mudah dipraktikan dan dipahami.

Cara Mudah Dapat Uang Dengan Revenuehits

Revenuehits telah berdiri sejak tahun 2008. Pendiri Revenuehits sendiri terinspirasi untuk membuat para blogger tidak kecewa saat akun mereka atau blog mereka di tolak. Karena hal tersebut akhirnya pendiri Revenuehits membuat alternatif yang tak kalah bagus dari Google AdSense.

Walaupun pengguna Revenuehits masih terbilang belum banyak seperti Google AdSense. Tetapi Revenuehits mempunyai keunggulan tersendiri. Keunggulan tersebut terletak pada saat mendaftar kita akan langsung di terima menjadi publisher Revenuehits, tidak seperti Google AdSense yang harus menjalani tahap demi tahap atau review.

Berikut ini cara daftar RevenueHits :

1. Silahkan masuk ke website revenueHits, untuk lebih mudah klik di sini atau klik pada
gambar yang bergerak

2. Silahkan klik Satrt Now

3. Sekarang silahkan isi data nama dan blog kamu, jika sudah klik Next Step

4. Di step 2 kamu disuruh mengisi Username, password, e-mail dan No hp. Jangan lupa centang Accept terms and condition lalu klik Submit

5. Langkah selanjutnya silahkan buka e-mail dan klik "Active My Account"

6. Selamat sekarang kamu sudah terdaftar di RevenueHits

Untuk cara memasang iklan RevenueHits ikuti langkah berikut ini :

· Masuk ke akun RevenueHits

· Pada menu Dashboard klik "New Placement" pilih Desktop placement untuk menaruh iklan di tampilan desktop dan Mobile placement untuk tampilan mobile

· Selanjutnya silahkan pilih jenis iklan yang ingin kamu pasang. Untuk pertama sebaiknya klik Banner saja.

· Silahkan isi judul iklan, Size (ukuran iklan) dan deskripsi iklan lalu klik Save

· Maka unit iklan akan terbuat. Klik </> untuk mengambil kode iklan

· Silahkan copy kode iklan tersebut dan taruh di blog kamu

· Untuk Pasang iklan revenueHits di blogger, silahkan masuk ke tata letak lalu tambah Gadget pilih HTML/JavaScript

· Paste kode iklan widget ini lalu klik save

· Coba buka blog kamu, maka iklan langsung muncul