编译错误，说“参数数量错误或属性赋值无效”

我有双击单元格时填充单元格的代码。 这里是： 

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)

充分披露：我是一个总noob在这个任何修复或build议请解释，像我5岁。

尝试这个 

 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"范围应该是一个string，而不是多个string
例如 "C10:C19, D10:D19, E10:E19"

Interesting Posts