Dedy E Hutauruk
Artikel kali ini akan membahas bagaimana membuat form untuk mengetahui berapa umur anda. Dengan hanya memasukkan tanggal lahir anda, maka program akan menghitung berapa umur anda pada saat ini.
Cara membuatnya:
1. Buka program Visual Basic anda
2. Buat sebuah Label-->(Tgl Lahir) dan sebuah CommandButton-->(CBHitung)
3. Aktifkan komponen Microsoft Windows Common Controls-2 6.0 ke dalam Toolbox
4. Masukkan komponen DTPicker ke Form-->Format ubah ke 0-dtpLongDate


5. Klik double pada CBHitung dan ketikkan kode berikut

Private Sub CBHitung_Click()
Dim jumlahhari As Integer
Dim umur As Integer
Dim hari As Integer
jumlahhari = DateDiff("d", DTPicker1.Value, Date)
umur = jumlahhari / 365
hari = jumlahhari - (umur * 365)
MsgBox "Umur Anda Saat Ini " & umur & " tahun " & hari & " hari"
End Sub


Untuk lebih sregnya lihat hasil program pada gambar berikut:


6. Klik pada ComboBox maka akan muncul sebuah kalender
7. Klik pada bulan dan tahun untuk menuju bulan dan tahun yang diinginkan
8. Klik pada tanggal
9. Klik pada CommandButton Hitung Umur
10.Selesai





Dedy E Hutauruk
Coba lihat sudut kanan bawah halaman blog saya ini, atau kanan bawah layar monitor kamu. Ada gambar icon sama seperti gambar disamping. Icon apaan tuhh..? Icon ini jika di klik akan mengembalikan halaman ke paling atas. Jadi jika blog kamu memanjang ke bawah, untuk kembali ke atas tidak usah scroll -up mouse kamu, cukup dengan klik icon tersebut, maka kamu akan kembali ke halaman paling atas. Oh ya, posisi icon ini akan selalu tetap disitu. Tidak akan bergeser. Mau tahu cara membuatnya? Berikut penjelasannya!

Sebelumnya siapkan terlebih dahulu sebuah icon "Back To Top", terserah saja yang mana menarik menurut kamu. Bisa tanya ke Om Google atau jika kamu jagoan Photoshop bisa juga menciptakan icon sendiri. Kemudian simpan gambar tersebut di penyimpanan gambar di internet. Contoh yang saya buat ini, saya simpan di Photobucket. Lalu langkah selanjutnya adalah:

1. Masuk ke Dasbor blog kamu
2. Layout
3. Tambah Gadget
4. Pada HTML/Javascript copy paste kode dibawah ini

<a style="display:scroll;position:fixed;bottom:5px;right:5px;" href="#" title="Ke Atas"><img border="0" alt="Photobucket" src="http://i444.photobucket.com/albums/qq163/dedy_eryanto/mulaktuginjang-2.png"/></a>


5. Simpan
Udah deh selesai




Dedy E Hutauruk
Secara default dari Blogger untuk membuat Recent Posts atau dalam bahasa Indonesia disebut Postingan Terbaru, adalah maksimal 5 Postingan. Jika tertarik untuk membuat lebih dari 5 posting silahkan copy paste script berikut ke Blog kamu



&ltscript style="" src="http://jimmyjackbob.googlepages.com/Recent_posts_widget_blogger.js">&ltscript style=""&gtvar numposts = 10;var showpostdate = false;var showpostsummary = false;var numchars = 100;var standardstyling = true;&ltscript src="http://nama blog kamu.blogspot.com/feeds/posts/default?orderby=published&alt=json-in-script&callback=showrecentposts">


Perhatikan script kode yang berwarna biru:
numpost = 10, adalah jumlah postingan yang akan anda tampilkan (terserah saja)
nama blog kamu.blogspot.com = ganti dengan nama blog kamu
Untuk cara pasang:
Layout - Tambah Gadget - HTML/javascript - copy paste kode diatas




Dedy E Hutauruk
Mencari kerja sekarang ini tentulah sangat susah akibat krisis global yang mendera. Malah yang ada pengurangan karyawan dimana-mana. Sejalan dengan itu maka pengangguran pun bertambah banyak dan tentu saja angka pencari kerja akan terus bertambah. Nah..bagi kamu para pencari kerja, ada baiknya tetap teliti dengan iklan lowongan kerja yang mungkin bisa ditemukan di Internet, Koran, Radio, TV dan yang ditempel di batang pohon. Berikut beberapa ungkapan yang biasa ditemui pada iklan lowongan kerja dan apa artinya. Yang bisa anda jadikan juga sebagai penilaian awal terhadap perusahaan yang akan anda lamar.


1. Bersedia kerja shift
artinya: Anda harus siap kerja malam, dan siap-siap kena damprat atasan anda manakala anda ngantuk atau tertidur

2. Pengalaman Tidak Diutamakan
artinya: Anda harus siap dibayar dengan gaji ala kadarnya

3. Berpenampilan menarik
artinya: Anda siap-siap jadi sales. Dan jika anda perempuan siap-siap digoda calon bos anda

4. Domisili Dekat Dengan Perusahaan
artinya: Anda harus siap dipanggil kerja pada waktu kapan saja di luar jam kerja anda. Tak perduli larut malam sekalipun.

5. Berwawasan Luas
artinya: Anda harus bisa mengerjakan apa saja bahkan di luar job yang sudah ditetapkan

6. Mempunyai Kendaraan Sendiri
artinya: Perusahaan tidak punya modal untuk memberikan fasilitas kendaraan kepada anda. Malah kendaraan anda akan dimanfaatkan untuk kepentingan perusahaan

7. Memiliki SIM
artinya: Anda sewaktu-waktu bisa jadi supir pribadi bos anda

8. Bersedia Kerja Dibawah Tekanan
artinya: Management perusahaan tidak cukup bagus untuk membuat suatu sistem selain menekan dan memarahi bawahan

9. Mempunyai Koneksi Yang Luas
artinya: MLM

10. Bersedia Dengan Sistem Kerja Kontrak
artinya: Anda harus siap mencari pekerjaan lagi seusai masa kontrak

11. Orientasi Target
artinya: Anda hanya akan dipakai jika target yang diberikan tercapai

12. Mempunyai Daya Analitical Tinggi
artinya: Anda harus bisa menganalisa suatu permasalahan yang selama ini mereka tidak bisa pecahkan

13. Jenjang Karir Yang Jelas
artinya: Sales

14. Strong Leadership
artinya: Anda akan jadi centeng bagi bawahan anda yang selama ini mungkin mereka takuti

15. Memiliki Kemampuan Bahasa Asing
artinya: Anda siap-siap menjadi penterjemah manual book perusahaan. Mungkin mesin-mesinnya masih menggunakan bahasa asing

Dedy E Hutauruk
Coba perhatikan halaman utama blog saya ini. Pada penggalan artikel disitu saya terlihat Lanjut Membaca + Judulnya. Kebanyakan blog menggunakan Read More ini sebatas kalimat itu saja. Cth:Baca Selengkapnya, Baca Selanjutnya dll tetapi tidak dengan judul postingannya. Mungkin sebagian lebih menyukai yang seperti itu. Tapi bagi kamu yang tertarik model Read More nya seperti punya saya ini, silahkan menyimak lebih lanjut. Oh ya.. bagi kamu yang belum bisa membuat Read More yang "biasa", silahkan buat permintaan di kotak komentar postingan ini.

Langkah Pertama: Cari kode di bawah ini di HTML blog kamu:

<b:if cond='data:blog.pageType == "item"'>
<style>.fullpost{display:inline;}</style>
<p><data:post.body/></p>
<b:else/>
<style>.fullpost{display:none;}</style>
<p><data:post.body/>
<a expr:href='data:post.url'><strong>Lanjut Membaca...</strong></a></p>
</b:if>

Perhatikan kode yang berwarna biru. Rubah kode tersebut dengan kode warna biru dibawah ini. Maka kode akan menjadi seperti ini

<b:if cond='data:blog.pageType == "item"'>
<style>.fullpost{display:inline;}</style>
<p><data:post.body/></p>
<b:else/>
<style>.fullpost{display:none;}</style>
<p><data:post.body/></p>
<strong><a expr:href='data:post.url'>Lanjut membaca “<data:post.title/>” »» </a></strong>
</b:if>


Langkah Kedua: Simpan Template

Langkah Ketiga: Klik Iklan di bawah ini .............(gak nyambung dheenk)




Dedy E Hutauruk
Sebelum melanjutkan membaca postingan ini, alihkan pandangan sejenak ke sidebar kanan atas blog saya ini. Disitu ada Kategori, sekarang coba klik salah satu Kategori atau nama resmi dari Bloggernya adalah Label.....................Sudah Belum...???. Apa yang terlihat?. Ya..hasil klik tersebut dihalaman posting ini yang muncul judul posting dari kategori (label) itu saja. Tidak ada isi postingnya. Ini tentu saja akan memudahkan para penggemar blog kamu jika mau mencari sesuatu yang diminati di blog kamu. Pada Label "original" tentu yang tampil pasti beserta isinya. Jika isi label ada 20-an misalnya, kan pegal tuh telunjuk mencetin scroll maouse. Cara ini juga efektif untuk mempercepat loading page blog kamu.(mau tahu size dan loading page blog kamu? monggo periksa disini)



Pertamax
Buka Template -> Edit HTML -> centang pada kotak kecil Expand Widget Templates

Keduax
Cari kode ini:

<!-- posts -->
<div class='blog-posts hfeed'>
<b:include data='top' name='status-message'/>
<data:adStart/>
<b:loop values='data:posts' var='post'>
<b:if cond='data:post.dateHeader'>
<h2 class='date-header'><data:post.dateHeader/></h2>
</b:if>
<b:include data='post' name='post'/>


Perhatikan kode warna biru. Ganti kode tersebut dengan kode di bawah ini (timpa dengan cara copy paste)

<b:if cond='data:blog.homepageUrl !=
data:blog.url'>
<b:if cond='data:blog.pageType != "item"'>
<a expr:href='data:post.url'>
<data:post.title/></a><br/><br/>
<b:else/>
<b:include data='post' name='post'/>
</b:if>
<b:else/>
<b:include data='post' name='post'/>
</b:if>



Ketigax:
Simpan, lalu lihat hasilnya...





Dedy E Hutauruk
Rata-rata blogger baru (seperti saya juga) dalam membuat blog sangat getol untuk menambahkan segala macam pernak-pernik untuk mempercantik blog. Widget-widget baru dicari sana-sini yang penting tampil di blog walau terkadang tidak ada hubungannya dengan isi blog itu sendiri. Itu sich..sah-sah saja menurut KUHP (lho...). Tetapi kalau kemudian pernak-pernik tersebut membuat blog kita menjadi berat, tentu akan menjadi masalah. "Masalahnya apa ya..?" Masalahnya adalah blog kita akan lambat saat di buka (loading), dan bukan mustahil pengunjung blog kita akan buru-buru kabur akibat kelamaan nunggu. Menunggu kan pekerjaan paling bete. Untuk mengatasi permasalahan ini, akan saya berikan sebuah alat deteksi berat atau speed blog. Alat ini akan berfungsi mengontrol blog sehingga tahu mengatur pernak-pernik apa yang perlu dan tidak usah dimasukkan
Alat deteksi ini akan menampilkan hasil Size (berat/ukuran), Load Time (waktu loading) dan Avarege Speed per KB (Kecepatan rata-rata / KB). Yang paling penting diperhatikan adalah SIZE, Angka yang keluar akan mengindikasikan kecepatan loading blog kita. Size ideal adalah Maksimal 100 KB. Jika melebihi 100 KB loading blog akan mulai melambat. Segera tata kembali blog dan buang pernak-pernik yang tidak perlu. Seperti Jam dan Kalender (ngapain juga ya pakai ini???, emangnya pengunjung blog kita gak punya kalender atau jam ).
Nah..jika sudah jelas silahkan masukkan alamat blog kamu atau bisa juga bareng dengan blog teman kamu sebagai perbandingan (ngintip gituh..). Maksimal 10 buah ya

Masukkan Alamat Web atau Blog (Maksimal 10)

(Cth: tipsvb-blog.blogspot.com)



Powered byiWEBTOOL








Dedy E Hutauruk
Segitiga adalah: Nama suatu bentuk yang dibuat dari tiga sisi yang berupa garis lurus dan tiga sudut. Matematikawan Euclid yang hidup sekitar tahun 300 SM menemukan bahwa jumlah ketiga sudut di suatu segi tiga adalah 180 derajat. Hal ini memungkinkan kita menghitung besarnya salah satu sudut bila dua sudut lainnya sudah diketahui. Dalam postingan ini saya menggunakan segitiga siku-siku sebagai bahan untuk contoh pemrograman Visual Basic. Ciri segitiga siku-siku adalah salah satu sudutnya bernilai 90 derajat. Dengan program ini kita akan mudah menghitung secara otomatis komponen-komponen yang ada pada sebuah segitiga siku-siku dengan hanya meng-input 2 komponen yang diketahui. Komponen tersebut adalah:
- Besar sudut
- Nilai Alas,Tinggi dan Sisi Miringnya --> Rumus Phytagoras

Untuk memulai membuat program, persiapkan dulu hal-hal berikut
- Atur sebuah layout seperi gambar (lihat di bagian bawah postingan ini.
- Atur propertinya sbb:

* TextBox = TTinggi, TAlas, TAtas, TBawah, TSisi
* Label = LLuas
* CommandButton = CReset, CHitung, CKeluar
* Line untuk membentuk gambar segittiga

Option Explicit
Dim rAtas As String
Dim rBawah As String
Dim pi As String
Dim Opp As String
Dim SisiMiring As String
Dim Adj As String
Dim Sudut As String
Dim X As String


Sub Reset()
TTinggi.Text = ""
TAlas.Text = ""
TSisi.Text = ""
TAtas.Text = ""
TBawah.Text = ""
LLuas = ""
pi = 3.14159265358979
End Sub


Sub Konversi()
Opp = ""
SisiMiring = ""
Sudut = ""
Adj = ""
rAtas = ""
rBawah = ""
If TAtas.Text <> "" Then rAtas = TAtas.Text * pi / 180
If TBawah.Text <> "" Then rBawah = TBawah.Text * pi / 180
End Sub


Private Sub CHitung_Click(Index As Integer)
Call HitungSudut
If TTinggi.Text <> "" Or TAlas.Text <> "" Or TSisi.Text <> "" Then
Call Konversi
If rBawah <> "" And TTinggi.Text <> "" Or TSisi.Text <> "" And rBawah <> "" Then
Sudut = rBawah
Opp = TTinggi.Text
SisiMiring = TSisi.Text
Call Calcsin
TTinggi.Text = Opp
TSisi.Text = SisiMiring
End If
If rAtas <> "" And TAlas.Text <> "" Or TSisi.Text <> "" And rAtas <> "" Then
Opp = TAlas.Text
SisiMiring = TSisi.Text
Sudut = rAtas
Call Calcsin
TAlas.Text = Opp
TSisi.Text = SisiMiring
End If
If rBawah <> "" And TAlas.Text <> "" Or TSisi.Text <> "" And rBawah <> "" Then
Sudut = rBawah
Adj = TAlas.Text
SisiMiring = TSisi.Text
Call Calccos
TAlas.Text = Adj
TSisi.Text = SisiMiring
End If
If rAtas <> "" And TTinggi.Text <> "" Or TSisi.Text <> "" And rAtas <> "" Then
Sudut = rAtas
Adj = TTinggi.Text
SisiMiring = TSisi.Text
Call Calccos
TTinggi.Text = Adj
TSisi.Text = SisiMiring
End If
If rAtas <> "" And TAlas.Text <> "" Or rAtas <> "" And TTinggi.Text <> "" Then
Sudut = rAtas
Adj = TTinggi.Text
Opp = TAlas.Text
Call Calctan
TTinggi.Text = Adj
TAlas.Text = Opp
End If
If rBawah <> "" And TAlas.Text <> "" Or rBawah <> "" And TTinggi.Text <> "" Then
Sudut = rAtas
Adj = TAlas.Text
Opp = TTinggi.Text
Call Calctan
TAlas.Text = Adj
TTinggi.Text = Opp
End If
If rAtas = "" And TAlas.Text <> "" And TTinggi.Text <> "" Then
Sudut = rAtas
Opp = TAlas.Text
Adj = TTinggi.Text
Call InvTan
TAtas.Text = Sudut * 180 / pi
End If
If rBawah = "" And TAlas.Text <> "" And TTinggi.Text <> "" Then
Sudut = rAtas
Opp = TTinggi.Text
Adj = TAlas.Text
Call InvTan
TBawah.Text = Sudut * 180 / pi
End If
If rAtas = "" And TAlas.Text <> "" And TSisi.Text <> "" Then
Sudut = rAtas
Opp = TAlas.Text
SisiMiring = TSisi.Text
Call InvSin
TAtas.Text = Sudut * 180 / pi
End If
If rBawah = "" And TTinggi.Text <> "" And TSisi.Text <> "" Then
Sudut = rBawah
Opp = TTinggi.Text
SisiMiring = TSisi.Text
Call InvSin
TBawah.Text = Sudut * 180 / pi
End If
End If
LLuas = (TAlas.Text * TTinggi.Text) / 2
End Sub


Private Sub CKeluar_Click(Index As Integer)
Unload Me
End Sub


Private Sub CReset_Click()
Call Reset
End Sub


Private Sub Form_Load()
Call Reset
End Sub


Function Calcsin() As Single
If Opp = "" And SisiMiring <> "" And Sudut <> "" Then Opp = SisiMiring * Sin(Sudut)
If SisiMiring = "" And Opp <> "" And Sudut <> "" Then SisiMiring = Opp / Sin(Sudut)
End Function


Function Calccos() As Single
If Adj = "" And SisiMiring <> "" And Sudut <> "" Then Adj = SisiMiring * Cos(Sudut)
If SisiMiring = "" And Adj <> "" And Sudut <> "" Then SisiMiring = Adj / Cos(Sudut)
End Function


Sub HitungSudut()
If TBawah.Text <> "" And TAtas.Text <> "" Then
If Val(TAtas.Text) + Val(TBawah.Text) <> "90" Then MsgBox ("Tidak Bisa Diproses")
End If
If TBawah.Text <> "" And TAtas.Text = "" Then TAtas.Text = 90 - Val(TBawah.Text)
If TAtas.Text <> "" And TBawah.Text = "" Then TAtas.Text = 90 - Val(TAtas.Text)
If Val(TAtas.Text) > 90 Or Val(TAtas.Text) <> 90 Or Val(TBawah.Text) <>
End Sub


Function Calctan() As String
If Opp = "" And Adj <> "" And Sudut <> "" Then Opp = Adj * Tan(Sudut)
If Adj = "" And Opp <> "" And Sudut <> "" Then Adj = Opp / Tan(Sudut)
End Function


Function InvTan() As String
If Opp <> "" And Adj <> "" And Sudut = "" Then Sudut = Atn(Opp / Adj)
End Function


Function InvSin() As String
X = Opp / SisiMiring
Sudut = Atn(X / Sqr(-X * X + 1))
End Function



Maka hasil program akan seperti gambar di bawah ini:


Dalam contoh ini, data diinput pada Tinggi dan Alas lalu klik tombol Hitung. Maka hasilnya seperti yang terlihat pada gambar diatas. Bagi anda pakar Matematika silahkan dibuktikan hasil tersebut, jika ada kesalahan tolong dikoreksi yach...!!

Dedy E Hutauruk
Postingan kali ini akan menjelaskan cara Transfer data dari Visual Basic ke Excel. Melalui form Visual Basic kita dapat menentukan ke baris dan kolom mana data tersebut akan ditempatkan di sheet Excel.

Caranya:
1. Buat 2 buah kontrol TextBox dan 1 buah kontrol CommandButton pada form Visual Basic
2. Ubah Properties kontrol tersebut--->Ini bisa terserah anda

Dalam contoh ini propertiesnya sebagai berikut:
- TextBox = T1 dan T2
- CommandButton = CB1 --> Pada Caption ketik Transfer Data Ke Excel
- Hasil pengaturan lihat gambar hasil program (di bagian bawah postingan ini
- Pada Jendela Kode ketikkan kode berikut ini:

Kode:
Dim Transfer As Excel.Application
-------------------------------------------------------
Private Sub CB1_Click()
Transfer.Workbooks.Add
Transfer.Range(T1.Text).Value = T2.Text
Transfer.Visible = True
End Sub
-------------------------------------------------------
Private Sub Form_Load()

Set Transfer = CreateObject("excel.application")
End Sub
-------------------------------------------------------
Private Sub Form_Unload(Cancel As Integer)

Transfer.Quit
End Sub


- Setelah Run Program, maka hasilnya akan seperti ini:

- Kotak pendek (TextBox T1) merupakan tempat mengetikkan baris dan kolom yang akan di tuju di sheet Excel. Sedangkan kotak panjang (TextBox T2) tempat mengetikkan teks.
- Data akan berpindah setelah Transfer Data Ke Excel di klik
- Selamat Mencoba.......

Dedy E Hutauruk
HScrollBar atau Horizontal ScrollBar ternyata dapat digunakan untuk merubah warna form Visual Basic anda. Mau tahu caranya??Ikuti langkah-langkah berikut ini.
1.Buka form Visual Basic anda
2.Buat 4 buah kontrol label, 3 buah HScrollBar dan 1 buah CommandButton
3.Atur propertiesnya sehingga menjadi gambar 1 (dibawah)

Dalam hal ini:

Label paling atas = LB1 ------> Caption dikosongkan saja
HScrollBar = HS1, HS2,HS3----> Ketik pada properti Name
CommandButton = CB1-----> Di Caption ketikkan "KELUAR"

4.Ketikkan kode berikut pada masing-masing kontrol:

Kode:

Private Sub Form_Load()
Me.Caption = "Warna Form"
End Sub
------------------------------------------------------------------------------------------------
Private Sub HS1_Change()

Me.BackColor = RGB(HS1.Value, HS2.Value, HS3.Value)
LB1.Caption = "MERAH = " & HS1.Value & " ," & "HIJAU = " & HS2.Value & "," & "BIRU = " & HS3.Value
End Sub
------------------------------------------------------------------------------------------------
Private Sub HS2_Change()
Me.BackColor = RGB(HS1.Value, HS2.Value, HS3.Value)
LB1.Caption = "MERAH = " & HS1.Value & " ," & "HIJAU = " & HS2.Value & "," & "BIRU = " & HS3.Value
End Sub
------------------------------------------------------------------------------------------------
Private Sub HS3_Change()
Me.BackColor = RGB(HS1.Value, HS2.Value, HS3.Value)
LB1.Caption = "MERAH = " & HS1.Value & " ," & "HIJAU = " & HS2.Value & "," & "BIRU = " & HS3.Value
End Sub
------------------------------------------------------------------------------------------------
Private Sub CB1_Click()
End
End Sub

Hasilnya lihat pada gambar 1 berikut ini:

Anda tinggal geser HSrollBar ke arah kanan sejauh keinginan anda, maka warna form akan otomatis berubah. Seperti gambar di atas HScrollBar di label MERAH digeser penuh, maka form berubah menjadi warna MERAH. Berminat mencoba HIJAU dan BIRU???
Coba aja trik ini..!!!


Dedy E Hutauruk
Bagi anda pengguna Excel tentu tidak jauh dari mengisi data ke dalam sheet pada kolom dan baris. Untuk mempermudah pengisian apalagi jika datanya banyak alangkah lebih baik menggunakan form. Menggunakan form akan lebih simple karena anda tidak harus selalu kembali ke kolom awal jika baris pada kolom terakhir sudah selesai di input. Keuntungan lain anda diingatkan jika belum mengisi data.

Langkah Membuat Form

- Buka aplikasi Excel pada MS Office (disini saya menggunakan Excel 2007)
- Buat tabel seperti gambar berikut:


- Ganti nama Sheet1 menjadi INPUTDATA
- Klik Developer pada Menubar
- Klik Visual Basic
- Klik Insert New Form
- Buat pada form 10 buah label, 9 buah TextBox dan 2 buah CommandButton
- Atur posisi dan properties kontrol sehingga menjadi seperti gambar berikut:


- Untuk label Nama properti TextBox beri nama: TxNama
- Untuk label NIS properti TextBox beri nama: TxNIS
- Untuk label Matematika properti TextBox beri nama: TxMatematika
- Untuk label PMP properti TextBox beri nama: TxPMP
- Untuk label IPS properti TextBox beri nama: TxIPS
- Untuk label IPA properti TextBox beri nama: TxIPA
- Untuk label B.Indonesia properti TextBox beri nama: TxBind
- Untuk label B.Inggris properti TextBox beri nama: TxBing
- Untuk label Orkes properti TextBox beri nama: TxOrkes
- Untuk label CommandButton beri nama SIMPAN dan KELUAR

Udah belum...??? Jika sudah mari kita teruskan

- Klik ganda pada CommandButton SIMPAN
- Lalu ketikkan kode berikut:

Private Sub SIMPAN_Click()
TxNama.SetFocus --->Untuk menempatkan kursor awalnya selalu di TextBox Nama
If TxNama.Text = "" Then
MsgBox "Anda Belum Mengisi Nama", vbInformation, "PESAN"
Exit Sub
End If
If TxNIS.Text = "" Then
MsgBox "Anda Belum Mengisi NIS", vbInformation, "PESAN"
Exit Sub
End If
If TxMatematika.Text = "" Then
MsgBox "Anda Belum Mengisi Nilai Matematika", vbInformation, "PESAN"
Exit Sub
End If
If TxPMP.Text = "" Then
MsgBox "Anda Belum Mengisi Nilai PMP", vbInformation, "PESAN"
Exit Sub
End If
If TxIPS.Text = "" Then
MsgBox "Anda Belum Mengisi Nilai IPS", vbInformation, "PESAN"
Exit Sub
End If
If TxIPA.Text = "" Then
MsgBox "Anda Belum Mengisi Nilai IPA", vbInformation, "PESAN"
Exit Sub
End If
If TxBind.Text = "" Then
MsgBox "Anda Belum Mengisi Nilai B.Indonesia", vbInformation, "PESAN"
Exit Sub
End If
If TxBing.Text = "" Then
MsgBox "Anda Belum Mengisi Nilai B.Inggris", vbInformation, "PESAN"
Exit Sub
End If
If TxOrkes.Text = "" Then
MsgBox "Anda Belum Mengisi Nilai Orkes", vbInformation, "PESAN"
Exit Sub
End If
ActiveWorkbook.Sheets("INPUTDATA").Activate
Range("B2").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = TxNama.Value
ActiveCell.Offset(0, 1) = TxNIS.Value
ActiveCell.Offset(0, 2) = TxMatematika.Value
ActiveCell.Offset(0, 3) = TxPMP.Value
ActiveCell.Offset(0, 4) = TxIPS.Value
ActiveCell.Offset(0, 5) = TxIPA.Value
ActiveCell.Offset(0, 6) = TxBind.Value
ActiveCell.Offset(0, 7) = TxBing.Value
ActiveCell.Offset(0, 8) = TxOrkes.Value
Call HAPUS ---> Fungsinya untuk mengosongkan form pada saat SIMPAN diklik
Exit Sub
End Sub

Private Sub HAPUS()
TxNama.Text = ""
TxNIS.Text = ""
TxMatematika.Text = ""
TxPMP.Text = ""
TxIPS.Text = ""
TxIPA.Text = ""
TxBind.Text = ""
TxBing.Text = ""
TxOrkes.Text = ""
End Sub

- Kemudian klik ganda pada CommandButton KELUAR
- Lalu ketikkan kode berikut:

Private Sub KELUAR_Click()
End --> Untuk keluar dari program
End Sub

- Jalankan program dengan meng-klik Run-->Run Sub/UserForm atau tekan F5

Isi data data pada form, untuk pindah ke TextBox berikutnya tekan Enter. Setelah diisi lalu klik SIMPAN maka otomatis data akan pindah ke sheet Excel dan form akan kosong siap diisi kembali. Coba juga kosongkan salah satu, maka akan muncul pesan untuk mengingatkan yang belum diisi tadi.
Tak percaya?? Buktiin aja Ndiri....