Private Sub CMDRESETALL_Click() Dim pesan As Variant pesan = MsgBox("Apakah anda yakin ingin mereset data?" + vbCrLf + _ "Tindakan ini menyebabkan seluruh data santri, data setoran dan data penarikan akan dihapus semuanya", vbQuestion + vbOKCancel, "Reset Data") If pesan = vbOK Then Sheet2.Range("A5") = 1 Sheet4.Range("A5") = 1 Sheet4.Range("K3") = 0 Sheet5.Range("A5") = 1 Sheet5.Range("K3") = 0 Sheet2.Range("datasiswatanpajudul").ClearContents Sheet4.Range("datasetorantanpajudul").ClearContents Sheet5.Range("datapenarikantanpajudul").ClearContents Sheet2.Range("A5") = 1 Sheet4.Range("A5") = 1 Sheet4.Range("K3") = 0 Sheet5.Range("A5") = 1 Sheet5.Range("K3") = 0 MsgBox "Seluruh data berhasil dihapus", vbInformation, "Reset Data" Else Exit Sub End If End Sub Private Sub Worksheet_Activate() ActiveWindow.DisplayHeadings = False ActiveWindow.View = xlNormalView ActiveWindow.DisplayGridlines = False ActiveWindow.DisplayHeadings = False ActiveWindow.DisplayWorkbookTabs = True ActiveWindow.Zoom = 100 End Sub
Minggu, 28 November 2021
Worksheet MENU
Langganan:
Posting Komentar (Atom)
Menghitung USIA Excel
=BYROW(D2:D100; LAMBDA(tanggal_lahir; IF(tanggal_lahir=""; ""; DATEDIF(tanggal_lahir; TODAY(); "y"...
-
Salin ke Clipboard Salin ke Clipboard Salin Tercopy! ...
-
=MOD(ROW();2)=1
-
Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) Select Case MsgBox("Apakah anda ingin menyimpan file ini?", v...
Tidak ada komentar:
Posting Komentar