Thursday, 12 March 2015

Ini dia Script Macro VBA Excel untuk menyembunyikan Sheet

Sobat Excel yang sedang belajar Macro, tentu banyak hal yang perlu dipelajari nah kali ini saya akan membagi script VBA untuk macro Excel yang berfungsi untuk menyembunyikan beberapa sheet. Langkahnya cukup sederhana silakan sobat buat 10 sheet dan ganti nama Sheet1 menjadi 1, kemudian ganti kembali sheet2 sampai sheet10 menjadi angka 1-10


Lihat bagaimana cara lain
Menyembuyikan dan Memunculkan Sheet dengan 2 cara

Langkah berikutnya buka macro editor dari menu Developer kemudian klik View Code untuk menampilkan VBA editor. kemudian klik Insert Module dan ketikan script di bawah ini


Tempatkan Script dibawah ini kedalam module1
Sub Sembunyikan()
Sheets("1").Visible = True
Sheets("1").Select
Sheets("2").Visible = xlSheetVeryHidden
Sheets("3").Visible = xlSheetVeryHidden
Sheets("4").Visible = xlSheetVeryHidden
Sheets("5").Visible = xlSheetVeryHidden
Sheets("6").Visible = xlSheetVeryHidden
Sheets("7").Visible = xlSheetVeryHidden
Sheets("8").Visible = xlSheetVeryHidden
Sheets("9").Visible = xlSheetVeryHidden
Sheets("10").Visible = xlSheetVeryHidden
End Sub

Jika sudah selesai silakan buat tombol atau command button pada Sheet satu dengan cara klik Menu Developer dan klik Insert kemudian pilih Command Button

Jika sudah selesai akan muncul jendela seperti gambar dibawah pilih saja pilih Sembunyikan dan klik OK


Jika berhasil Anda akan melihat sebuah tombol command button yang bernama Button1 silakan coba di klik dan perhatikan sheet yang ada dibawah nya jika tombol tersebut di klik maka Sheet2 sampai dengan Sheet10 akan hilang dan yang tampak hanya Sheet1

0 komentar:

Post a Comment

bagus sangat membatu bagi kami
sering-seringlah enteri file yang baru
kami merasa senang dan bangga atas kebedradaan blog ini