选择的单元格数量>2会报错

肆无大叔

当任意选择的单元格数量>2时，会报错，求解！！！
代码如下：


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Row > 4 And Trim(Target.Value) = "" And (Target.Column = 5 Or Target.Column = 6) Then
Target = Application.WorksheetFunction.Text(Now(), "hh:mm")
End If
End Sub

鄂龙蒙

1. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
2. 
   
3. If Target.Count > 1 Then Exit Sub   '加这一句
   
4. If Target.Row > 4 And Trim(Target.Value) = "" And (Target.Column = 5 Or Target.Column = 6) Then
   
5.     Target = Application.WorksheetFunction.Text(Now(), "hh:mm")
   
6. End If
   
7. 
   
8. 
   
9. End Sub
   

复制代码

gwjkkkkk

target选择超过一个，代表是一个区域，不能直接返回target.value,只选择一个，代表一个单元格，可以直接返该单元格值。。。

suntao2000

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Row > 4 And Trim(Target(1)) = "" And (Target.Column = 5 Or Target.Column = 6) Then
        Target = Application.WorksheetFunction.Text(Now(), "hh:mm")
    End If
End Sub