Coba lihat kode visual basic pada macro “buka” seperti dibawah ini
Kodenya :
Sub buka()
UserForm1.Show
End Sub
Private Sub Commandclose_Click()
Sheets("Sheet3").Select
range("D60").Value = NameTextBox.Text
Sheets("Sheet3").Select
UserForm1.Hide
x = MsgBox("Selamat Datang di SMP PGRI 1 Batanghari " & Space(85))
End Sub
Private Sub Image1_Click()
End Sub
Private Sub Image2_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub UserForm_activate()
Sheets("Sheet3").Select
NameTextBox.Text = range("D60").Value
End Sub
Kode ini maksudnya kira-kira begini, pertama menampilkan form isian user, lalu jika mengklik button commandclose maka akan menutup userform, dan jika namebox terisi maka akan tertulis pada cell D60 pada Sheet3 dan akan muncul messagebox “Selamat Datang…..”
Kodenya :
Sub Auto_Open()
UserForm1.Show
End Sub
Private Sub Workbook_Open()
UserForm1.Show
End Sub
Kira-kira maksud dari kode itu yaitu perintah auto open dan menampilkan userform, dan jika membuka workbook akan tampil userform.
Terus bagaimana cara membuat UserForm nya ya.. di lain kesempatan saya ulas cara membuat userform.
Silakan jalankan macro dengan kode tadi, buat dulu buku kerja dan simpan dalam format Excel 2007 Macro-Enabled Workbook. Untuk macro yang lain, nanti akan ulas di kesempatan lain.
{ 0 komentar... Views All / Send Comment! }
Posting Komentar