Excel上的錯誤424

我正在與excel一起工作，我嘗試運行此命令並獲得424 Error...。代碼非常簡單，但我找不到解決方案。Excel上的錯誤424

Private Sub Run_Click()  
    Dim Weekly As Worksheet 
    Set Weekly = ThisWorkbook.Sheets("Weekly")  

    Todaydate = Range("D4").Value 
    foo = WorksheetFuncton.Match(Todaydate, Weekly.Range("A1489:A1499"), 0) 
End Sub

編輯：

我現在越來越Runtime error 1004

Private Sub Run_Click()  
    Dim Weekly As Worksheet 
    Set Weekly = ThisWorkbook.Sheets("Weekly")  

    Todaydate = Range("D4").Value 
    foo = WorksheetFunction.Match(Todaydate, Weekly.Range("A1489:A1499"), 0) 
End Sub

編輯：

定了！

我mising一個「.value的」

富= WorksheetFunction.Match（Todaydate，Weekly.Range（「A1489：A1499」）值，0）

來源

2013-12-22 user3007270

@KenWhite，你的提問線不會導致錯誤本身。它會嘗試將活動工作表的單元格D4中的任何內容分配給名爲'TodayDate'的變體。 –

我不認爲你的代碼有任何問題（如調整過的），你確定A1489：A1499範圍內的至少一個單元格與D4完全相同嗎？ – pnuts

您無法繼續編輯和更改問題。它使下面給出的答案無效。如果您使用相同的代碼面臨問題，您可以將新的信息添加到現有的問題中。 –

檢查拼寫：

WorkSheetFunct i on

來源

2013-12-22 02:17:48

哇，我不能相信...但我現在得到運行時錯誤1004 – user3007270

這意味着**匹配**失敗..........可能＃N/A！ –

+ 1 Good Catch :) –

Excel上的錯誤424

回答

相關問題