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

Input Data Ke Dalam Cell dan Menampilkan Dalam Kotak Pesan (Message Box) - Merupakan notifikasi ketika data sudah ada dalam textbox.

Menampilkan MsgBox sesudah data dimasukkan merupakan salah satu kelengkapan informasi kepada pengguna.

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..!!!

Admin sangat menyarankan membuat file contoh percobaan penerapan kode paad setiap artikel Vba Excel yang dipelajari.

Dengan membuat file contoh percobaan perenapan kode akan mempercepat memahami dan mengetahui fungsi dari kode serta alur kerja kode itu sendiri.

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

*Jika link mati / tidak dapat diakses silahkan lapor via kontak yang tersedia

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

Jika artikel ini dirasakan bermanfaat dan dapat digunakan mohon dapat dishare ke media sosial agar teman-teman yang lain juga dapat mempelajari.

Jika ada pertanyaan, saran dan kritikan mohon dapat disampaikan dengan bijaksana pada kolom komentar yang tersedia di bawah artikel ini.\