Cara Menghapus Semua Worksheet Kecuali Sheet Aktif Memakai Vba - Gasskeun Cara Menghapus Semua Worksheet Kecuali Sheet Aktif Memakai Vba | Gasskeun

Cara Menghapus Semua Worksheet Kecuali Sheet Aktif Memakai Vba

Bagaimana cara menghapus worksheet memakai Macro (Code VBA)? Yah, itulah pertanyaan yang mungkin pernah ada di Otak Anda yang sedang berguru VBA Macro. Oke pada kesempatan kali ini aku akan membahas bagaimana cara menciptakan userform untuk menghapus semua sheet kecuali sheet yang aktif pada Ms. Excel.



Langkah pertama tentunya Anda harus masuk ke workbook terlebih dahulu kemudian menyerupai biasa untuk menciptakan atau menulis script silakan klik hidangan Developer kemudian klik ViewCode dan buatlah atau sisipkan satu buah UserForm sebagai kontrol interface untuk UserForm kemudian tambahkan juga satu buah CommanButton dan Anda boleh mengganti nam Caption nya pada Properties dengan goresan pena "Hapus Worksheet" kemudian sehabis simpulan silakan lanjut ke double klik CommandButton1 tersebut kemudian tuliskan code berikut ini :

Private Sub CommandButton1_Click()
Call HapusWorksheet
End Sub

Sub HapusWorksheet()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> ThisWorkbook.ActiveSheet.Name Then
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
Next ws

Related Posts

Matikan AdBlock

Agar blog Ini tetap berjalan, matikan AdBlock atau masukkan blog ini ke dalam whitelist.
Terima kasih.