Private Sub Worksheet_Change(ByVal Target As Range)
Dim l_row, l_column As Long
i_row = Target.Row
i_column = Target.Column
If Target.Count = 1 Then
If Target.Column = 10 And Target.Offset(0, -2) <> "" Then
Cells(Target.Row, 17) = Target.Offset(0, -2)
ElseIf Target.Column = 10 And Target.Offset(0, -2) = "" Then
Cells(Target.Row, 17) = Date
ElseIf Target.Column = 8 And Target.Offset(0, 9) <> "" Then
Cells(Target.Row, 17) = ""
End If
End If
End Sub
提示If Target.Column = 10 And Target.Offset(0, -2) <> "" Then这一句有误。
宏能正常运行,但是每当我在第一列和第二列单元格中输入或删除时,就会出现上面的错误提示,而在其他列输入删除时没有提示。我是小白,看不出来,请各路大神指教!!!
Target.Offset(0, -2)è¡¨ç¤ºé¼ æ ç¹å»ä½ç½®ç左边第äºåï¼å½ç¹AãBåçæ¶åå°±ä¼æ¥éï¼å 为ä»ä»¬ç左边åºçäºã
尽管åé¢æColumn=10ç并ä¸æ¡ä»¶ï¼ä½æ¯VBAä¸è¿è¡å¸å°çè·¯ï¼å æ¤å ¶ä»åç¹é¼ æ çæ¶åä»»ç¶ä¼å»æ¥ç左边第äºåã
解å³çåæ³æ¯ä½¿ç¨åµå¥çIfå¤å®ï¼æç®åä¿®æ¹å¦ä¸ï¼å¯è½ä½ è¿éè¦éå½å¾®è°ï¼
åéå®ä¹åéè¦æå®ç±»åï¼ç¨åºä»£ç éå½è¿è¡ç¼©åï¼å°½é使ç¨å·²ç»èµå¼çç®ååé
谢谢!