VBA这个代码错在哪里

laoau138

VBA这个代码错在哪里

bajifeng

源代码错误部分详见红色部分：
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo 100
    Dim mrow1 As Integer, mrow2 As Integer, mcol As Integer
    mrow1 = Target.Row
    If Target.Column = 1 And Len(Target) > 0 Then
        mrow2 = Range("h:h").Find(Target).Row
        mcol = Range("i" & mrow2).Interior.ColorIndex
        Range(Cells(mrow1, 1), Cells(mrow1, 3)).Interior.ColorIndex = mcol
    Else
        Range(Cells(mrow1, 1), Cells(mrow1, 3)).Interior.ColorIndex = 0
    End If
100:
    Range(Cells(mrow1, 1), Cells(mrow1, 3)).Interior.ColorIndex = 0
End Sub

bajifeng

改正如下：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     On Error GoTo 100
   
3.     Dim mrow1 As Integer, mrow2 As Integer, mcol As Integer
   
4.     mrow1 = Target.Row
   
5.     If Target.Column = 1 And Len(Target) > 0 Then
   
6.         mrow2 = Range("h:h").Find(Target).Row
   
7.         mcol = Range("i" & mrow2).Interior.ColorIndex
   
8.         Range(Cells(mrow1, 1), Cells(mrow1, 3)).Interior.ColorIndex = mcol
   
9.     Else
   
10. 100:
    
11.         Range(Cells(mrow1, 1), Cells(mrow1, 3)).Interior.ColorIndex = 0
    
12.     End If
    
13. End Sub

复制代码

laoau138

bajifeng 发表于 2016-11-10 11:28
改正如下：

似乎在哪里见过你        有一点熟悉