Follow us on Facebook

Motivasi Menulis

Cara Membuat Tombol Simpan VBA Excel

Membuat Tombol Simpan VBA Excel


Langkah-Langkah Membuat Tombol "SIMPAN" VBA Excel :
  • Buka Excel, pada "Sheet1" rename jadi "DB", Save File dengan nama "Aplikasi Data" dan buatlah tabel seperti contoh gambar dibawah

  • Rancanglah Userform seperti gambar dibawah ini

  • Selanjut kita akan bermain di properties, ganti Caption "UserForm1" dengan "Aplikasi Data", ganti (name) Textboxnya : TxtNoInduk, TxtNamaSiswa, TxtAlamat. Untuk OptionButton ganti (name) dengan OptLaki dan OptPerempuan. Untuk CommandButton ganti (name) dengan CmdSimpan dan CmdBatal
  • Klik kanan pada Tombol Simpan dan View Code, masukkan kode untuk CmdSimpan berikut :
Private Sub CmdSimpan_Click()
Dim Baris As Long
Dim Ws As Worksheet
Dim path As String
Set Ws = Worksheets("DB")

'Temukan Baris
Baris = Ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

'peringatan Bila data tidak diisi
If UserForm1.TxtNoInduk.Value = "" Or UserForm1.TxtNamaSiswa.Value = "" Then
MsgBox " Lengkapi Data Yang Kosong..!!!", 48, "Aplikasi Data"
Exit Sub: End If

'Peringatan bila jenis kelamin bleom di pilih
If UserForm1.OptLaki.Value = False And UserForm1.OptPerempuan.Value = False Then
MsgBox "Pilih Jenis Kelamin..!!", 48, "Aplikasi Data"
Exit Sub: End If

If WorksheetFunction.CountIf(Ws.Range("B:B"), TxtNoInduk.Text) = 1 Then
MsgBox "No. Pendaftar Ganda..!!!", 48, "Aplikasi Seleksi Siswa Baru.."
Exit Sub: End If

Ws.Cells(Baris, 1).Value = "=Row()-3"
Ws.Cells(Baris, 2).Value = Me.TxtNoInduk.Value
Ws.Cells(Baris, 3).Value = Me.TxtNamaSiswa.Value
If OptLaki.Value = True Then
Ws.Cells(Baris, 4).Value = "Laki-Laki"
End If
If OptPerempuan.Value = True Then
Ws.Cells(Baris, 4).Value = "Perempuan"
End If
Ws.Cells(Baris, 5).Value = Me.TxtAlamat.Value

MsgBox "Data telah Di Tambah", 64, "Aplikasi Data"
Call CmdBatal_Click
End Sub
  • Untuk Tombol Reset yang berfungsi mereset form pengisian data. masukkan kode berikut ini
Private Sub CmdBatal_Click()
With UserForm1
.TxtNoInduk.Value = ""
.TxtNamaSiswa.Value = ""
.OptLaki.Value = False
.OptPerempuan.Value = False
.TxtAlamat.Value = ""
End With
End Sub
  • Coba jalankan fungsinya dengan menekan tombol F5. Jika anda mengikuti dengan benar maka Aplikasi Akan Jalan dengan baik.



Reference:
Kapti, K. and Priyoatmoko, W., 2022. FUZZY MULTIPLE ATTRIBUTE DECISION MAKING (FMADM) SEBAGAI METODE SPK PEMBELIAN TANAH PERUMAHAN. Jurnal Sistem Informasi dan Sains Teknologi4(1).

Sumber:https://win-droid4u.blogspot.com
Back To Top