Sunday, September 25, 2016

VBA Excel Pemula 2 : Input Data Ke Dalam Cell dan Menampilkan Dalam Kotak Pesan (Message Box)

Ini merupakan Tutorial Kedua yang harus di ikuti. Input data ke dalam cell sering dilakukan dalam membuat aplikasi. Kode ini akan berfungsi selamanya jika anda mendalami Vba Excel. Mari mencoba merancang dan memasukkan kode. Hanya Copy dan Paste..!!! 


 Input Data Ke Dalam Cell dan Menampilkan Dalam Kotak Pesan (Message Box) :
  • Buka Excel, klik Tab Developer dan Pilih Visual Basic sehingga jendela visual basic terlihat
  • Tambahkan satu buah UserForm dengan Caption "Aplikasi Pemula 2" Tambahkan 2 Label dengan Caption "Data 1" dan "Data 2" Tambahkan  2 buah Textbox tanpa perlu mengotak-atik  Propertiesnya. Tambahkan 2 buah CommandButton dengan masing-masing Caption "INPUT PESAN" dan TAMPIL PESAN"
  • Selanjutnya Klik kanan  pilih View Code pada CammandButton1 dengan Caption "INPUT PESAN" dan masukkan kode dibawah ini
Private Sub CommandButton1_Click()

'Kode ini untuk mencegah/peringatan bila Textbox tidak di isi
If UserForm1.TextBox1.Value = "" Or UserForm1.TextBox2.Value = "" Then
MsgBox " Lengkapi Data Yang Kosong..!!!", vbInformation, "Aplikasi Pemula 2"
Exit Sub: End If

'VBA Pemula 2: Cara Menginput Data Ke Dalam Range B5 dan B6
'Kode ini akan menginput data pada Cell B5
Sheet1.Range("B5") = TextBox1.Value
Sheet1.Range("B6")= TextBox2.Value

'Kode untuk membersihkan TextBox setelah Menginput
TextBox1.Value = ""
TextBox2.Value = ""

End Sub
  • Atau dapat juga menggunakan kode dibawah ini pada CommandButton1, Kode dibawah ini Menginput data pada Baris Ke 6 dan ke 7 yang sejajar dengan kolom ke 2 
Private Sub CommandButton1_Click()

'Kode ini untuk mencegah/peringatan bila Textbox tidak di isi
If UserForm1.TextBox1.Value = "" Or UserForm1.TextBox2.Value = "" Then
MsgBox " Lengkapi Data Yang Kosong..!!!", vbInformation, "Aplikasi Pemula 2"
Exit Sub: End If

'Kode ini menginput Data Pada B5  dan B6Dengan Hitungan Kolom dan Baris
Sheet1.Cells(6, 2) = TextBox1.Value '6 merupakan urutan baris dan 2 merupakan urutan kolom
Sheet1.Cells(7, 2) = TextBox1.Value '7 Merupakan urutan baris dan 2 merupakan urutan kolom
MsgBox "Data Pesan Selesai Di Input", vbInformation, "Aplikasi Pemula 2"

'Kode untuk membersihkan TextBox setelah Menginput
TextBox1.Value = ""
TextBox2.Value = ""

End Sub
  • Pada Commandbutton2 Masukkan Kode Pada Posting VBA Excel Pemula 1 Modifikasi kodenya sedikit sesuaikan dengan kebutuhan Range dan Cell yang saya merahkan.
  • Aplikasi disave dengan format Excel Macro - Enbled WorkBook
Download : Aplikasi Pemula 2

Demikian Tutorial VBA Excel Pemula 2 : Input Data Ke Dalam Cell dan Menampilkan Dalam Kotak Pesan (Message Box). Semoga menjadi acuan untuk anda yang sedang belajar.

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon