[已解决]忽略其中某张工作表

eking_tang

各位大神,我的一份档案,在This Workbook里边写的有Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)在保存的时候,会自动检Sheet1......Sheet100的固定栏位,是不是存在差异.
可是我现在要在这份档案中增加个工作表.这张工作表在保存的时候,是不需要检查的.
能不能加什么命令,让代码忽略对"新增資料"工作表做检查,不然新工作表的对应栏位,颜色也会发生变化.
感谢

最佳答案

月排行榜 / 总排行榜

爱疯

2014-10-14 14:58

eking_tang 发表于 2014-10-14 11:36
抱歉让疯版误会了~~我Sheet1到Sheet100XXX还是要检查的.
只是针对"新增資料"工作表,让代码忽略对"新增資 ...

Sub zz()
    Dim sh As Worksheet
    For Each sh In Worksheets
        With sh
            If sh.Name <> "新增資料" Then
                For j = 2 To .UsedRange.Columns.Count
                    .Range(.Cells(28, j), .Cells(29, j)).Interior.ColorIndex = _
                    IIf(.Cells(28, j) = .Cells(29, j), 8, 3)
                Next
            End If
        End With
    Next
End Sub

跳转到最佳答案楼层

爱疯

通过“加点”，把原来的单元格区域，注明是sheet1中的，就不会影响sheet1之外的工作表了。



Sub zz()
    With Sheet1
        For j = 2 To .UsedRange.Cells.Columns.Count
            If .Cells(28, j).Value = .Cells(29, j).Value Then
                .Range(.Cells(28, j), .Cells(29, j)).Interior.ColorIndex = 8
            End If
            If .Cells(28, j).Value <> .Cells(29, j).Value Then
                .Range(.Cells(28, j), .Cells(29, j)).Interior.ColorIndex = 3
            End If
        Next
    End With
End Sub

eking_tang

爱疯 发表于 2014-10-13 16:35
通过“加点”，把原来的单元格区域，注明是sheet1中的，就不会影响sheet1之外的工作表了。

抱歉让疯版误会了~~我Sheet1到Sheet100XXX还是要检查的.
只是针对"新增資料"工作表,让代码忽略对"新增資料"工作表做检查,
再次麻烦疯版,感谢先.

爱疯

eking_tang 发表于 2014-10-14 11:36
抱歉让疯版误会了~~我Sheet1到Sheet100XXX还是要检查的.
只是针对"新增資料"工作表,让代码忽略对"新增資 ...

Sub zz()
    Dim sh As Worksheet
    For Each sh In Worksheets
        With sh
            If sh.Name <> "新增資料" Then
                For j = 2 To .UsedRange.Columns.Count
                    .Range(.Cells(28, j), .Cells(29, j)).Interior.ColorIndex = _
                    IIf(.Cells(28, j) = .Cells(29, j), 8, 3)
                Next
            End If
        End With
    Next
End Sub