VBA-Excel 宏仅适用于当前工作表

Question

大家好，这里是 VBA 的新手，我正在努力让我的宏在多个工作表上工作。如果它们在第 8 行中有“X”，我基本上想隐藏和取消隐藏列“B-AB”。目前宏仅适用于活动工作表而不是活动工作簿。谢谢！

Sub roll()

Dim sh As Worksheet
Dim c As Range


For Each sh In ActiveWorkbook.Sheets

With sh

Application.ScreenUpdating = False

Columns("B:AB").Select
Selection.EntireColumn.Hidden = False


        For Each c In Range("b8:ab8").Cells
            If c.Value = "X" Then
            c.EntireColumn.Hidden = True
            End If

        Next c
            End With

Next sh

Application.ScreenUpdating = True

End Sub

Answer 1

您需要在分配给 with 中注明的工作表的范围对象前面添加.：

Sub roll()

Dim sh As Worksheet
Dim c As Range


For Each sh In ActiveWorkbook.Sheets

With sh

    Application.ScreenUpdating = False

    .Columns("B:AB").Hidden = False


        For Each c In .Range("b8:ab8").Cells
            If c.Value = "X" Then
                c.EntireColumn.Hidden = True
            End If
        Next c
    End With

Next sh

Application.ScreenUpdating = True

End Sub