Perluas atau minimalkan grup lembar kerja di bilah tab Excel

1

Apakah ada cara untuk mengelompokkan lembar kerja di Excel 2010 sehingga tidak semua tab segera terlihat? Pada dasarnya, agar bisa diperluas dan diminimalisasi sesuai kebutuhan.

Saya memiliki beberapa buku kerja Excel dengan banyak tab. Dan agak merepotkan untuk mencari lembar kerja tertentu.

microsoft-excel-2010 vba Aliran kekuatan
sumber

Jawaban:

0

Di sini, saya menyiapkan sesuatu, memodifikasi sesuka Anda. Bisa jadi jauh lebih pendek, tetapi Anda mendapatkan idenya.

Masukkan kotak kombo (pada lembar master, milik saya bernama "kontrol"), tetapkan daftar dan kemudian tempatkan makro ini di dasar visual. Kelompokkan sesuka Anda, pastikan satu lembar selalu terlihat dan tinggalkan kasing untuk menunjukkan semuanya.

Sub DropDown1_Change()

With ActiveSheet.Shapes(Application.Caller)
        Select Case .ControlFormat.ListIndex

        Case 1
            Sheets("Control").Visible = xlSheetVisible
            Sheet2.Visible = xlSheetVisible
            Sheet3.Visible = xlSheetVisible
            Sheet4.Visible = xlSheetHidden
            Sheet5.Visible = xlSheetHidden
            Sheet6.Visible = xlSheetHidden
            Sheet7.Visible = xlSheetHidden
            Sheet8.Visible = xlSheetHidden
            Sheet9.Visible = xlSheetHidden
            Sheet10.Visible = xlSheetHidden
            Sheet11.Visible = xlSheetHidden

        Case 2
            Sheets("Control").Visible = xlSheetVisible
            Sheet2.Visible = xlSheetHidden
            Sheet3.Visible = xlSheetHidden
            Sheet4.Visible = xlSheetVisible
            Sheet5.Visible = xlSheetVisible
            Sheet6.Visible = xlSheetHidden
            Sheet7.Visible = xlSheetHidden
            Sheet8.Visible = xlSheetHidden
            Sheet9.Visible = xlSheetHidden
            Sheet10.Visible = xlSheetHidden
            Sheet11.Visible = xlSheetHidden

        Case 3
            Sheets("Control").Visible = xlSheetVisible
            Sheet2.Visible = xlSheetHidden
            Sheet3.Visible = xlSheetHidden
            Sheet4.Visible = xlSheetHidden
            Sheet5.Visible = xlSheetHidden
            Sheet6.Visible = xlSheetVisible
            Sheet7.Visible = xlSheetVisible
            Sheet8.Visible = xlSheetHidden
            Sheet9.Visible = xlSheetHidden
            Sheet10.Visible = xlSheetHidden
            Sheet11.Visible = xlSheetHidden

        Case 4
            Sheets("Control").Visible = xlSheetVisible
            Sheet2.Visible = xlSheetHidden
            Sheet3.Visible = xlSheetHidden
            Sheet4.Visible = xlSheetHidden
            Sheet5.Visible = xlSheetHidden
            Sheet6.Visible = xlSheetHidden
            Sheet7.Visible = xlSheetHidden
            Sheet8.Visible = xlSheetVisible
            Sheet9.Visible = xlSheetVisible
            Sheet10.Visible = xlSheetHidden
            Sheet11.Visible = xlSheetHidden

        Case 5
            Sheets("Control").Visible = xlSheetVisible
            Sheet2.Visible = xlSheetHidden
            Sheet3.Visible = xlSheetHidden
            Sheet4.Visible = xlSheetHidden
            Sheet5.Visible = xlSheetHidden
            Sheet6.Visible = xlSheetHidden
            Sheet7.Visible = xlSheetHidden
            Sheet8.Visible = xlSheetHidden
            Sheet9.Visible = xlSheetHidden
            Sheet10.Visible = xlSheetVisible
            Sheet11.Visible = xlSheetVisible

        Case 6
        For Each ws In Worksheets
        ws.Visible = xlSheetVisible

        Next
        End Select

    End With
End Sub
Raystafarian
sumber
Mengingat saya belum pernah bekerja dengan makro sebelumnya, bagaimana cara saya mengimplementasikannya? Saya mencoba mengikuti beberapa panduan yang saya temukan online, tetapi saya tidak berakhir dengan apa pun yang tampaknya benar-benar berfungsi.
Force Flow
Apakah Anda mendapatkan kesalahan?
Raystafarian
Tidak, tapi saya pikir saya sedikit berlebihan ketika saya mencoba mengisi kotak kombo: pastebin.com/8vSZBrnz Kotak kombo tampaknya bernama DropDown2, meskipun saya sepertinya tidak bisa menemukan cara untuk mengubah itu atau mengisi itu (saya kode tidak berfungsi).
Force Flow
Sepertinya Anda tidak mendeklarasikan variabel yang Anda gunakan. Juga, di VBA Anda harus ke CALLmakro lain.
Raystafarian
Dalam fungsi apa? Saya benar-benar memiliki sedikit pengalaman dalam VB - Saya kebanyakan adalah seorang pria PHP. Jadi, dalam fungsi inisialisasi, apa yang perlu diperbaiki untuk mengisi kotak kombo? Saya membuat beberapa koreksi: pastebin.com/qaq4LEse
Force Flow