kode macro sembunyikan baris a2 smpai a6,sekaligus menampilkan baris a8 sampai a13

  1. 6 bulan yang lalu

    Mohon bantuan para master kode macro vba untuk sembunyikan sekaligus menampilkan baris..
    _apabila baris 1 smpai 5 sembunyi,maka baris 7 sampai 10 ditampilkan,.begitu juga sebaliknya.
    Trimakasih sbelumnya

  2. Caton

    20 Mar 2018 Terverifikasi Indonesia + 11.512 Poin

    @Goral...

    Ada banyak caranya. Salah satu cara dengan script seperti berikut:

    Sub TesSaja()
        Dim bHidden As Boolean
        Dim lIdx As Long
        
        With Sheet1
            .Select
            bHidden = Not (.Rows(1).Hidden)
            For lIdx = 1 To 10
                .Rows(lIdx).Hidden = IIf(lIdx <= 5, bHidden, Not bHidden)
            Next
            '+-- Note: Pastikan kolom A tidak tersembunyi!
            .Cells(IIf(bHidden, 6, 1), 1).Select
        End With
    End Sub

    Demikian, semoga sesuai.

  3. trimakasih pak,,bagaimana kalo saya mau merubah pilihan barisnya
    semisal baris 7 sampai 10 sembunyi,maka baris 16 sampai 18 akan tampil
    kode yang sebelah manakah yg harus saya rubah?

  4. Caton

    21 Mar 2018 Terverifikasi Indonesia + 11.512 Poin

    @Goral...

    Contoh sederhananya:

    Sub HideRow()
        Dim bHidden As Boolean
        
        With Sheet1
            bHidden = Not (.Rows(7).Hidden)
            .Range("A7:A10").EntireRow.Hidden = bHidden
            .Range("A16:A18").EntireRow.Hidden = Not bHidden
        End With
    
    End Sub

    Demikian.

  5. trimakasih pak..sangat membantu sekali

 

atau Mendaftar untuk ikut berdiskusi!