编译错误说 "wrong number of arguments or invalid property assignment"

Question

我有代码可以在双击单元格时填充单元格。这是：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  
    If Not Intersect(Target, Range("C10:C19", "D10:D19", "E10:E19")) Is Nothing Then  
        Cancel = True  
        Target.Formula = Date  
    End If  
End Sub

代码工作正常，直到我添加 "E10:E19" 然后它给了我一个编译错误说 wrong number of arguments or invalid property assignments 然后它突出显示了代码的第一行 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

完全披露：我在这方面完全是菜鸟，所以任何修复或建议请像我 5 岁一样解释。

Answer 1

试试这个

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, [C10:C19, D10:D19, E10:E19]) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
End Sub

"C10:C19", "D10:D19", "E10:E19" 范围应该是一个字符串而不是多个字符串
Examnple "C10:C19, D10:D19, E10:E19"

编译错误说 "wrong number of arguments or invalid property assignment"

Compile error saying "wrong number of arguments or invalid property assignment"

excel

vba

basic

compilation