-->
ZDIRY-TUFWT-EBONM-EYJ00-IDBLANTER.COM
ZDIRY-TUFWT-EBONM-EYJ00
BLANTERWISDOM105

Cara Membuat Coding Simpan di Userform Excel

Cara Membuat Coding Simpan di Userform Excel
Banyak orang yang baru belajar atau orang awam mau berkeinginan membuat sebuah aplikasi di Excel, karna membuat aplikasi sendiri lebih mendapatkan suatu kebanggaan dan juga dapat mengasah ilmu kita sendiri dalam pengcodingan.
Simpan, VBA, Userform excel
Tapi bagi anda yang baru belajar, pasti akan banyak mendapatkan permasalahan yaitu salah satunya Bagaimana cara membuat pengcodingannya tersebut.
Dari permasalahan tersebut pertama saya ingin membagikan cara membuat coding simpan di userform, nantinya data yang di input tersimpan di database atau Sheet.
  • Silahkan buka aplikasi Microsoft Excel anda
  • Buatlah Sheet Barang seperti gambar di bawah ini 
Simpan, VBA, Userform Excel
  • Kemudian klik Tab Formulas -> Name Manager 
  • Klik New 
  • Buatlah namanya Listbarang dan masukan rumus seperti gambar di atas yang di garis bawahi warna orange -> klik OK 
  • Kemudian Buka Tab Developer ->Visual Basic 
  • Silahkan anda klik insert UserForm
  • Desain lah seperti gambar di bawah ini
Simpan, VBA, Userform Excel
  • Copy paste coding di bawah ini
Sub tampil1()
ListBarang.RowSource = "Listbarang"
ListBarang.ColumnCount = 5
Event KeyPress fungsi nya hanya angka yang bisa diinputkan
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Else
KeyAscii = 0
    If KeyAscii = a Then
        MsgBox "Hanya data angka", vbInformation, "Information"
    End If
End Select
End Sub

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Else
KeyAscii = 0
If KeyAscii = a Then
 MsgBox "Hanya angka yang boleh diinput", vbInformation, "Information"
End If
End Select
End Sub

Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Else
KeyAscii = 0
If KeyAscii = a Then
 MsgBox "Hanya angka yang boleh diinput", vbInformation, "Information"
End If
End Select
End Sub

Private Sub TextBox4_Change()
If TextBox4.value = vbNullString Then Exit Sub
        If Not IsNumeric(TextBox4.value) Then
             MsgBox "Maaf, hanya data berupa angka yang diijinkan"
             TextBox4.value = vbNullString
        End If
TextBox4.value = Format(TextBox4.value, "#,###")
TextBox100.value = Format(TextBox4.value, "###")
End Sub

Private Sub TextBox5_Change()
If TextBox5.value = vbNullString Then 
Exit Sub
        If Not IsNumeric(TextBox5.value) Then
             MsgBox "Maaf, hanya data berupa angka yang diijinkan"
             TextBox5.value = vbNullString
        End If
TextBox5.value = Format(TextBox5.value, "#,###")
TextBox200.value = Format(TextBox5.value, "###")
End Sub
Bagi yang mau file nya silahkan sedot filenya dibawah ini.
Atau dibawah ini 
Sekian dulu artikel tentang Cara Simpan Data di Userform VBA Excel.
Semoga Bermanfaat
Share This :
Admin

Blogger Pemula yang ingin berbagi seputar Tutorial, Aplikasi, Smartphone dan Teknologi.

0 komentar