事件VBA，代码老是出错，哪位高手帮忙指导下

zqq029

事件VBA，自己写的代码老是出错，哪位高手帮忙指导下，工作薄中每张表格样式均一样，每张表格的工作表区域E4:E13中的单元格值若为是，则其所在行的部分区域填充为红色，例：若sheet1中E4:E13区域中的单元格E5为“是”，则E5单元格所在的行区域A5:G5填充为红色，同理适用于sheet2、sheet3

ynzsvt

加了一个判断，只在本工作表的时候比较单元格符合不。

1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
2. Dim ws As Worksheet
   
3.     For Each ws In ThisWorkbook.Worksheets
   
4.     If ws.Name = Target.Parent.Name Then
   
5.         If Not Intersect(Target, ws.Range("E3:E12")) Is Nothing Then
   
6.             If Target.Value = "是" Then
   
7.                 ws.Range(Cells(Target.Row, 1), Cells(Target.Row, 7)).Interior.Color = vbRed
   
8.             End If
   
9.         End If
   
10.         End If
    
11.     Next ws
    
12. End Sub

复制代码

醉眼看尘世

1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
2. Dim ws As Worksheet, rnG As Range
   
3. Debug.Print "YES"
   
4.     For Each ws In Worksheets
   
5.         With ws
   
6.             .UsedRange.Interior.Pattern = xlNone
   
7.             For Each rnG In .[e3:e12]
   
8.                 If rnG.Value = "是" Then
   
9.                     .Cells(rnG.Row, 7).Interior.Color = vbRed
   
10.                 End If
    
11.             Next
    
12.         End With
    
13.     Next ws
    
14. End Sub

复制代码