[已解决]关于一个时间记录的小错误，求纠正

tianqixueyu

我是新人，刚接触VBA，我在运行这个程序后，在操作批量填充或者批量删除单元格值时，总是显示错误类型13，点击调试后，错误语句为红色字体语言，望有高人指点。
Public Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2  And Target.Value="验证" Then  
Target.Offset(, -1) = Now  
End If
End Sub

最佳答案

月排行榜 / 总排行榜

suye1010

2012-12-21 11:06

tianqixueyu 发表于 2012-12-21 10:51
我想问问，我之前的这个错误产生的原因是什么？我试过只要不加后面的AND就不会错误。

批量操作时候,你选择的Target是多个单元格,当进行Target.Value运算时他生成的也是一个数组,而数组是不能直接与单个值 ,即 "验证"来进行判断的，所以或报类型不匹配的错误。如果你要批量操作，试试下面的代码

1. Option Explicit
   
2. Public Sub Worksheet_Change(ByVal Target As Range)
   
3. Dim rng As Range
   
4. If Target.Column = 2 Then
   
5.     Application.EnableEvents = False
   
6.     For Each rng In Target
   
7.         If rng.Value = "验证" Then
   
8.             rng.Offset(, -1) = Now
   
9.         Else
   
10.             rng.Offset(, -1) = ""
    
11.         End If
    
12.     Next
    
13.     Application.EnableEvents = True
    
14. End If
    
15. End Sub
    

复制代码

跳转到最佳答案楼层

hoogle

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2. If Target.Column = 2 And Target.Value = "验证" Then
   
3. Target.Offset(, -1) = Now
   
4. End If
   
5. End Sub
   

复制代码

用这个事件，双击第2列“验证”在第1列加入日期

tianqixueyu

非常感谢，以为要等很久呢，没想到这里热心人真多啊！
再次感谢！

tianqixueyu

hoogle 发表于 2012-12-21 10:32
用这个事件，双击第2列“验证”在第1列加入日期

我想问问，我之前的这个错误产生的原因是什么？我试过只要不加后面的AND就不会错误。

hoogle

原来是CHANGE 事件，Target.Value  返回改变单元值。
但是你改变单元格区域时，就和Target.Value（不能返回单元格区域的值）  冲突了，提示类型不匹配。

tianqixueyu

hoogle 发表于 2012-12-21 10:59
原来是CHANGE 事件，Target.Value  返回改变单元值。
但是你改变单元格区域时，就和Target.Value（不能返 ...

非常感谢，对你来说是举手之劳，对我来说就是帮我大忙了，谢谢！

hoogle

tianqixueyu 发表于 2012-12-21 11:02
非常感谢，对你来说是举手之劳，对我来说就是帮我大忙了，谢谢！

不客气，EP论坛欢迎新同学！

suye1010

tianqixueyu 发表于 2012-12-21 10:51
我想问问，我之前的这个错误产生的原因是什么？我试过只要不加后面的AND就不会错误。

批量操作时候,你选择的Target是多个单元格,当进行Target.Value运算时他生成的也是一个数组,而数组是不能直接与单个值 ,即 "验证"来进行判断的，所以或报类型不匹配的错误。如果你要批量操作，试试下面的代码

1. Option Explicit
   
2. Public Sub Worksheet_Change(ByVal Target As Range)
   
3. Dim rng As Range
   
4. If Target.Column = 2 Then
   
5.     Application.EnableEvents = False
   
6.     For Each rng In Target
   
7.         If rng.Value = "验证" Then
   
8.             rng.Offset(, -1) = Now
   
9.         Else
   
10.             rng.Offset(, -1) = ""
    
11.         End If
    
12.     Next
    
13.     Application.EnableEvents = True
    
14. End If
    
15. End Sub
    

复制代码

tianqixueyu

suye1010 发表于 2012-12-21 11:06
批量操作时候,你选择的Target是多个单元格,当进行Target.Value运算时他生成的也是一个数组,而数组是不能直 ...

麻烦再帮我加个判断，如果      Vlaue<>"验证"，则为“”