Thursday, 24 November 2016

Artikel ini akan membawa Anda langkah demi langkah untuk membuat Makro Excel untuk dengan mudah dan cepat menyembunyikan semua lembar kerja dalam file Excel kecuali lembar aktif yang sedang Anda kerjakan.
Sederhana Visual Basic Untuk Aplikasi (VBA) coding yang akan loop melalui semua nama-nama lembar kerja dalam buku kerja Excel Anda, dan menyembunyikan mereka jika mereka tidak cocok dengan nama yang aktif bekerja sheet ini. Excel tidak akan membiarkan Anda menyembunyikan semua lembar kerja dalam buku kerja, Anda harus memiliki setidaknya satu lembar terlihat secara default.
Tergantung pada jenis spreadsheet saya berkembang, saya sering memiliki beberapa lembar kerja di Excel bekerja buku-Sheet Data, Sheet Perhitungan dan Lembar Hasil, jadi saya menemukan Makro ini cara yang sangat cepat untuk menyembunyikan semua bekerja ekstra lembar tanpa harus menjalankan melalui mereka semua dan menyembunyikan mereka secara individu.
Bagaimana cara kerjanya?
PERTAMA. Buka Visual Basic - dengan menekan F11 atau Tab Developer - Visual Basic
Langkah 1. Kita perlu untuk menyatakan sebuah objek disebut ws. Ini akan membuat wadah memori di Excel untuk setiap worksheet makro loop melalui.
Langkah 2. Excel mulai perulangan melalui lembar kerja di dalam kamu Excel berkas. (Catatan ada perbedaan antara ThisWorkbook dan ActiveWorkbook. ThisWorkbook objek adalah buku karya bahwa kode yang terkandung dalam dan objek ActiveWorkbook adalah buku kerja yang aktif dan sedang digunakan. Kami menggunakan ThisWorkbook untuk memastikan bahwa kita tidak mempengaruhi workbook lain, sebagai buku kerja yang berisi kode mungkin tidak selalu menjadi aktif buku kerja Excel
Langkah 3. The makro pada tahap ini membandingkan nama sheet aktif untuk lembar kerja yang sedang dilingkarkan melalui.
Langkah 4. Jika nama tidak cocok atau tidak sama "<>". maka Excel menyembunyikan lembar.
Langkah 5. Tahap terakhir adalah untuk loop kembali ke lembar berikutnya, di mana prosedur diulang, sampai semua nama-nama sheet Excel dievaluasi dan ujung makro.
Berikut adalah kode jika Anda ingin menyalin dan paste ke Excel untuk bermain-main dengan dan mengeksplorasi.
Sub DeleteNonActiveWorksheets ()
ws Dim Sebagai Lembar Kerja
Untuk Setiap ws Dalam ThisWorkbook.Worksheets
Jika ws.Name <> ThisWorkbook.ActiveSheet.Name Lalu
ws.Visible = xlSheetHidden
Berakhir jika
ws berikutnya
end Sub
Kode ini harus dimasukkan ke dalam modul yang ada atau baru di Excel.

Pasal Sumber: http://EzineArticles.com/expert/BJ_Johnston/850729
Article Source: http://EzineArticles.com/9569167



0 komentar:

Post a Comment

Peluang Bisnis

IKLAN ANDA

Untuk Informasi : SMS or WA +62 899 248 4489. Powered by Blogger.

Total Pageviews

Isi Pulsa Jadi Lebih Mudah

Blog Archive

Follow by Email