Membuat program aplikasi yang sederhana di Ms. Excel

Untuk codingnya anda bisa copas dibawah ini :

Coding untuk ditempatkan di Button

Private Sub Label6_Click()

End Sub

Private Sub TombolCancel_Click()

Unload Me

End Sub

Private Sub TombolOK_Click()

Dim bariskosong As Long

Sheets("sheet1").Activate

bariskosong = WorksheetFunction.CountA(Range("B:B")) + 2

'CEK SEBUAH NAMA

If Trim(Me.Tbnama.Value) = "" Then

    Me.Tbnama.SetFocus

    MsgBox "Isi Data Terlebih Dahulu"

    Exit Sub

End If

Cells(bariskosong, 2).Value = Tbnama.Value

Cells(bariskosong, 4).Value = Tblp.Value

Cells(bariskosong, 3).Value = Tbkelas.Value

Cells(bariskosong, 5).Value = Tbkom.Value

Cells(bariskosong, 6).Value = Tbipa.Value

Cells(bariskosong, 7).Value = Tbmtk.Value

Cells(bariskosong, 8).Value = Tbing.Value

Cells(bariskosong, 9).Value = Tbin.Value

'menghapus data

Me.Tbnama.Value = ""

Me.Tbkelas.Value = ""

Me.Tblp.Value = ""

Me.Tbkom.Value = ""

Me.Tbipa.Value = ""

Me.Tbmtk.Value = ""

Me.Tbing.Value = ""

Me.Tbin.Value = ""

Me.Tbnama.SetFocus

End Sub

Berikutnya Coding untuk memanggil form, dan tempatkan di Modules

Sub input_data()

UserForm1.Show

End Sub

Tweet