Kode Program untuk membuat Form Input Ms. Excel
Shalom kelas XI
Untuk membuat Form input dalam Ms. Excel kalian di minta untuk menyisipkan kode program di bawah ini untuk menjalankan tombol SIMPAN :
Klik Kanan pada tombol Simpan kemudian pilih view code, kemudian copy paste perintah di bawah ini :
Private Sub Simpan_Click()
ActiveWorkbook.Sheets("Transaksi").Activate
Sheets("Transaksi").Range("B3").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
Dim strAnswer As VbMsgBoxResult
strAnswer = MsgBox("Apakah Anda ingin menyimpan transaksi ini?", vbQuestion + vbYesNo, "KONFIRMASI!")
If strAnswer = vbYes Then
ActiveCell.Value = Sheets("Form").Range("E4").Value
ActiveCell.Offset(0, 1) = Sheets("Form").Range("E6").Value
ActiveCell.Offset(0, 2) = Sheets("Form").Range("E8").Value
ActiveCell.Offset(0, 3) = Sheets("Form").Range("E10").Value
ActiveCell.Offset(0, 4) = Sheets("Form").Range("E12").Value
ActiveCell.Offset(0, 5) = Sheets("Form").Range("E14").Value
Do
Loop Until strAnswer = vbYes = True
Sheets("Form").Range("E8").ClearContents
Sheets("Form").Range("E10").ClearContents
Sheets("Form").Range("E12").ClearContents
Sheets("Form").Range("E14").ClearContents
End If
If strAnswer = vbNo Then
Sheets("Form").Select
End If
End Sub
Komentar