代码输入以后没反应

天堂守门员

第五章
5.5 典型的技巧与实例

我在模块里面输入了代码
Private Sub worksheet_change(ByVal target As Range)
    If Application.Intersect(target, Range("c3:c65536")) Is Nothing Or target.Count > 1 Then
        Exit Sub
    End If

    Dim i As Integer
    i = 3
    Do While Cells(i, "I").Value <> ""
    If UCase(target.Value) = Cells(i, "I").Value Then
        Application.EnableEvents = False
        target.Value = Cells(i, "I").Offset(0, 1).Value
        target.Offset(0, -1).Value = Date
        target.Offset(0, 1) = Cells(i, "I").Offset(0, 2).Value
        target.Offset(0, 2) = Cells(3, "I").Offset(0, 3).Value
        target.Offset(0, 3).Select
        Application.EnableEvents = True
        Exit Sub
        End If
     i = i + 1
     Loop
End Sub


为什么没有反应？
奇怪的是，点击执行的时候，没有宏可以执行

mll-人事部-王勇

  If UCase(target.Value) = Cells(i, "I").Value Then   中的  UCase(target.Value) 最好别限制，其次 把代码放到sheet里面吧~

还有就是你这个条件也太多了，
1、单独操作C列的某一个单元格
2、这个单元格的赋值必须跟 [I3]单元格相等
3、I3不能为空

安东五彩

主要原因是不要放在模块里。。。要先双击sheet1,然后把这段代码cut and paste到sheet1的代码中

就好了。。。