[已解决]求大神帮忙改下代码

doudon2008

能帮我改一下下面的代码么，
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Cells(Target.Row, 11).Value = WorksheetFunction.Text(Now(), "h:m")
End Sub

我想要 在同一行上，当第Column=2时，Column11 显示当前时间，
当Column=15时，Column16显示当前时间，
这俩条件同时满足

最佳答案

月排行榜 / 总排行榜

zjdh

2013-1-7 14:25

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then Cells(Target.Row, 11) = Format(Now(), "h:m")
    If Target.Column = 15 Then Cells(Target.Row, 16) = Format(Now(), "h:m")
End Sub

跳转到最佳答案楼层

E路人

If Target.Column <> 2 Then Exit Sub     条件好像与此有冲突吧

doudon2008

E路人 发表于 2013-1-7 14:13
If Target.Column  2 Then Exit Sub     条件好像与此有冲突吧

是冲突的，这个代码只能满足第一个要求，但是想了半天不知道怎么才能满足第二个

zjdh

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then Cells(Target.Row, 11) = Format(Now(), "h:m")
    If Target.Column = 15 Then Cells(Target.Row, 16) = Format(Now(), "h:m")
End Sub

doudon2008

zjdh 发表于 2013-1-7 14:25
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then Cells(Target.Row, ...

第二个输入 没反应，另外后面用format也不显示

doudon2008

zjdh 发表于 2013-1-7 14:25
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then Cells(Target.Row, ...

可以了，不好意思 是我的列隐藏了一列，列数搞错了。