在Excel中激活特定單元格使用VBA結果發生錯誤400

我只是在第一個工作表上獲取具有紅色字體顏色的所有文本，然後將其存儲在數組中。然後，我想導航到另一個工作表並激活一個特定的單元格，我最初將這些值放入先前的數組中。但是在另一張紙上激活單元格的部分導致了錯誤400.我確信自從我之前已經使用它是正確的。我不知道是否在我的代碼的第一部分有一些操作會影響到它。在Excel中激活特定單元格使用VBA結果發生錯誤400

Sub isFontRed() 
    Cells(2, 1).Select 

    Dim missingJobs(0 To 600) As String 
    Dim size As Integer, row As Integer, col As Integer, jobIndex As Integer 
    jobIndex = 0 

    For row = 2 To 10 '600 
     For col = 1 To 2 
      If (CStr(Cells(row, col).Font.ColorIndex) = 3) Then 
       missingJobs(jobIndex) = Cells(row, col) 
       jobIndex = jobIndex + 1 
      End If 
     Next col 
    Next row 

    Dim jobs As String 
    jobs = "" 
    For i = 0 To UBound(missingJobs) - 1 
     jobs = jobs + missingJobs(i) + ", " 
    Next i 

    Worksheets("New Jobs in New Folder").Activate 
    Cells(4, 2).Activate 
End Sub

來源

2017-08-07 JJJ

它是否給出錯誤描述，或者只是400？（閱讀，這是一件事）。我讀過：根據定義，_400錯誤是未指定的，並且（針對所有意圖和目的）mysterious_，我也讀過：_this錯誤通常是由於將Excel Spreadsheet Assistant的加載項文件安裝爲加載到Excel 2007或Excel 2010_中。我要問是否存在New Folder_工作表中的_New Jobs，但是會出現424 Object Required錯誤。 –

這已經有一段時間了，但你是否想要選擇細胞（4,2）？我不認爲你可以像工作表一樣「激活」一個單元格。嘗試單元格（4,2）。請改爲選擇。

來源

2017-08-07 23:05:49

該錯誤與激活功能無關。上面的子函數寫在工作表內部，當我把它傳遞給一個模塊時，它就起作用了。我想你在代碼級或模塊級放置代碼的地方是有一些東西的。 – JJJ

啊，好的。你有沒有試過Activesheet.cells（3,2）.activate？就像你說的那樣，這可能是一些奇怪的問題。 –

在Excel中激活特定單元格使用VBA結果發生錯誤400

回答

相關問題