AGUNG TUTORIAL

Belajar Bordir Wilcom dan Tajima Mesin SWF, VBA Macro Excel, Design Grafis CorelDraws, Video Editing, Download Software-software, Solusi Masalah Error Komputer, Jaringan dan Internet, Analisis Jaringan, Analisis Problem Hardware dan sebagainya

9/24/2018

METODE INPUT VBA MACRO EXCEL

INPUT DATA MENGGUNAKAN VBA MACRO EXCEL

Pada kesempatan kali ini admin akan mencoba berbagi ilmu bagaimana Cara Membuat Input, Cari, Edit dan Hapus menggunakan Visual Basic For Application Macro Excel. Dimana data yang dinput kedalam Tabel Referensi (Tabel data Telepon) bersalah dari Textbox dengan menekan tombol CommandButton.  

Adapaun langkah-langkah adalah sebagai berikut,
Pertama, Berikan identitas nama sheets1 sebagai “Menu”
Kedua, Buatlah beberapa Label, Textbox, dan CommandButton yang dipisahkan dan dikategorikan menggunakan Group Box sehingga tampilan menjadi rapi. Dengan cara Klik Tab Menu Developer>Design Mode, dalam group Controls klik Insert.



Ketiga, Ubahlah Name setiap pada hampir seluruh Control CommandButton di properties seperti btnSimpan, agar mempermudah untuk memahami kode pemogramaan VBA Macro Excelnya.


Keempat, Buatlah beberapa variable, dimana variabel adalah kode program yang digunakan untuk menampung nilai tertentu yang sangat penting perannya dalam proses eksekusi setiap fungsi pemograman. Variabel yang dibuat harus disimpan diatas fungsi apabila jenis karena tipa yang digunakan adalah Dim yang hanya berlaku pada prosedur saja hanya pada satu sheets. Namun sebelum itu pamahami terlebih dahulu Tipe data, Varibel, Konstanta dan Operator di Bahasa pemoograman Visual Basic.



Kelima, masukan fungsi Sub SimpanData() di bawah variable yang dibuat tadi.


Jika ingin menambahkan sebuah pesan peringatan bahwa salah satu textbox yaitu txtNama atau txtTelepon belum terisi sehingga data belum dapat disimpan. Ubahlah fungsi SimpanData seperti dibawah ini,


Keenam, memanggil fungsi ketika Commandbutton yaitu btnSimpan di tekan. Maka untuk memanggil cukup menuliskan Call SimpanData di dalam prosedur btnSimpan_Click.



Kode Lengkapnya di bawah ini,

Dim nama As String  
 Dim Telepon As String  
 Dim a As Integer 'a digunakan untuk menampung angka baris terakhir  
 '=======================================================================================================================  
 'SIMPAN DATA  
 '=======================================================================================================================  
 'HTTPS://AGUNGPANDUAN.BLOGSPOT.CO.ID  
 Sub SimpanData()  
   'Data yang disimpan akan diproses sebagai Array(100)  
   If txtNama.Text = "" Or txtTelepon.Text = "" Then  
     If MsgBox("PERHATIKAN" & vbCrLf & "Isikan Nama dan Telepon", vbOKOnly + vbCritical, "INPUT GAGAL") = vbOK Then  
       If txtNama.Text = "" Then  
         txtNama.Activate 'jika txtNama yang kosong maka kursor akan fokus ke txtNama  
       Else  
         txtTelepon.Activate 'jika txtNama yang kosong maka kursor akan fokus ke txtTelepon  
       End If  
     End If  
   Else  
     nama = Trim(txtNama.Text)  
     Telepon = Trim(txtTelepon.Text)  
     'menghapus atau mengosongkan textbox input  
     txtNama.Text = ""  
     txtTelepon.Text = ""  
     
     'Pengecekan baris Row terakhir data  
     a = Sheet1.Cells(5, 18) + 1  
     Sheet1.Cells(a, 14) = nama  
     Sheet1.Cells(a, 15) = "'" & Telepon  
     
     'baris ditambah 1 baris  
     Sheet1.Cells(5, 18) = a  
   End If  
 End Sub  
   
 Private Sub btnSimpan_Click()  
   Call SimpanData  
 End Sub  

DOWNLOAD FILE INPUT, EDIT, DAN HAPUS DATA VBA MACRO EXCEL


SEMOGA BERMANFAAT

TERIMAKASIH BERKUNJUNG DI HTTPS://WWW.AGUNGPANDUAN.COM

Tidak ada komentar:

Posting Komentar