編譯錯誤說「參數數量錯誤或屬性賦值無效」

我有雙擊單元格時填充單元的代碼。那就是：編譯錯誤說「參數數量錯誤或屬性賦值無效」

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歲。

來源

2017-08-23 Joel

你可能想'範圍（「C10：C19，D10：D19，E10 ：E19「）'與Range相同（」C10：E19「）' – jsotola

'range'對象需要一個或兩個_arguments_（輸入值）。你有三個。 – jsotola

學習範圍對象覆蓋哪些單元格的一種方法是在VBE編輯器中使用_immediate window_ ....按下ctrl-G，它應該顯示出來....現在調整VBE編輯器的大小，以便您可以看到工作表和立即窗口....然後鍵入到立即窗口範圍（「b3」）。select'並按enter ...你應該看到單元格B3選擇....嘗試其他...'範圍（「b5：偏移量（1）選擇範圍（「b5：d7，a1：a3，a6」）。。選擇 '......'範圍（「b5：d7，a1：a3，a6」）。偏移（2,3）。選擇等等 – jsotola

試試這個

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"

來源

2017-08-23 01:24:20 0m3r

編譯錯誤說「參數數量錯誤或屬性賦值無效」

回答

相關問題