小白请教一个关于类型不匹配的问题

clive211

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column > 0 And Target.Column < 30 And Target.Row > 2 And Target.Row < 33) And Target > 0 Then
Application.EnableEvents = False
Target.Value = 2 * Target.Value
Application.EnableEvents = True
End If

End Sub
这是我写的一个程序，运行的时候提示类型不匹配。能否请高手帮我修改一下？不胜感激。

这个程序的意义是，在指定的范围内，我输入一个正数，可以直接做一个乘以2的运算，如果是负数，则不做运算，如实输出。

liulang0808

欢迎新朋友加入EH
建议楼主上传附件说明问题

liulang0808

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    If (Target.Column < 30 And Target.Row > 2 And Target.Row < 33) And Target > 0 Then
        Application.EnableEvents = False
        Target.Value = 2 * Target.Value
        Application.EnableEvents = True
    End If

End Sub

没有附件，做了微调的

clive211

liulang0808 发表于 2017-10-22 17:33
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count  1 Then Exit Sub
    If (T ...

谢谢大侠帮忙，现在不会跳出不匹配的对话框了，非常感谢啊！！！
我看了一下，你似乎多加了一句If Target.Count <> 1 Then Exit Sub，请问大侠，这句话是什么意思啊？

liulang0808

clive211 发表于 2017-10-22 19:57
谢谢大侠帮忙，现在不会跳出不匹配的对话框了，非常感谢啊！！！
我看了一下，你似乎多加了一句If Targe ...

就是仅有一个单元格的内容有变化的时候

clive211

liulang0808 发表于 2017-10-22 20:10
就是仅有一个单元格的内容有变化的时候

懂了，之前的问题估计就出在这里。有多个单元格内容变化了，就报错了。谢谢，解决了我一天的疑惑。百度来百度去也不得其法，经你一点拨就解决了，谢谢谢谢。