[已解决]求助加上一句代码

清华

If Target.Address = "$S$2" Then Cells(Rows.Count, 22).End(xlUp).Offset(1, 0).Value = "01"
把上面的代码在后面加上Range("X1").Select

最佳答案

月排行榜 / 总排行榜

Zipall

2012-5-9 12:26

If Target.Address = "$S$2" Then Cells(Rows.Count, 22).End(xlUp).Offset(1, 0).Value = "01": Range("X1").Select


或者

If Target.Address = "$S$2" Then
    Cells(Rows.Count, 22).End(xlUp).Offset(1, 0).Value = "01"
    Range("X1").Select
End If

跳转到最佳答案楼层

那么的帅

1. 
   
2.     If Target.Address = "$S$2" Then
   
3.         Cells(Rows.Count, 22).End(xlUp).Offset(1, 0).Value = "01"
   
4.         Range("X1").Select
   
5.     End If
   

复制代码

Zipall

If Target.Address = "$S$2" Then Cells(Rows.Count, 22).End(xlUp).Offset(1, 0).Value = "01": Range("X1").Select


或者

If Target.Address = "$S$2" Then
    Cells(Rows.Count, 22).End(xlUp).Offset(1, 0).Value = "01"
    Range("X1").Select
End If

清华

那么的帅 发表于 2012-5-9 12:25

If Target.Address = "$S$2" Then Cells(Rows.Count, 22).End(xlUp).Offset(1, 0).Value = "01"Range("X1").Select 我在后面加？

Zipall

清华 发表于 2012-5-9 12:30
If Target.Address = "$S$2" Then Cells(Rows.Count, 22).End(xlUp).Offset(1, 0).Value = "01"Range("X1 ...

两句写在同一行,要用:隔开.

清华

Zipall 发表于 2012-5-9 12:31
两句写在同一行,要用:隔开.

终于明白了，ok ok