Скомпилируйте ошибку, говоря «неправильное количество аргументов или недопустимое присвоение свойств»

У меня есть код, который заполняет ячейки при двойном щелчке по ячейке. Вот:

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 в этом, поэтому любые исправления или советы, пожалуйста, объясните, как мне 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" Диапазон должен быть одной строкой, а не несколькими строками
Пример "C10:C19, D10:D19, E10:E19"

  • Как создать combobox в активной ячейке?
  • Давайте будем гением компьютера.