[已解决]请教老师们这二段代码怎么实现不了功能

yjwdjfqb

请教老师们这二段代码怎么实现不了功能

一个代码是，在当前工作薄中所有工作表上执行同一命令
第二个是，在当前工作薄中除某个工作表外其它工作表上执行同一命令
VBA让代码在工作簿的所有工作表中运行.rar (4.67 KB, 下载次数: 5)

2016-12-10 16:14 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

七彩屋

2016-12-10 17:34

Sub 除某个表外的所有工作表()
    Dim sh As Worksheet
    For Each sh In Worksheets
    sh.Activate
        If sh.Name <> "File" Then
            Call Test
        End If
    Next
End Sub

Sub 所有工作表执行()
    Dim sh As Worksheet
    For Each sh In Worksheets
    sh.Activate
        Call Test
    Next
End Sub

跳转到最佳答案楼层

七彩屋

每个工作表要先激活

七彩屋

Sub 除某个表外的所有工作表()
    Dim sh As Worksheet
    For Each sh In Worksheets
    sh.Activate
        If sh.Name <> "File" Then
            Call Test
        End If
    Next
End Sub

Sub 所有工作表执行()
    Dim sh As Worksheet
    For Each sh In Worksheets
    sh.Activate
        Call Test
    Next
End Sub