使用VBA激活Excel中的特定单元格将导致错误400

使用VBA激活Excel中的特定单元格将导致错误400,vba,excel,Vba,Excel,我只是在第一张纸上获取所有红色字体的文本,然后将其存储在一个数组中。然后,我想导航到另一个工作表并激活一个特定的单元格,在这里我想首先将值放入我以前的数组中。但我在另一张纸上激活单元格的部分导致错误400。我有足够的信心,它是正确的,因为我已经用过它。我不知道我的代码的第一部分是否有一些操作会影响这一点 Sub isFontRed() Cells(2, 1).Select Dim missingJobs(0 To 600) As String Dim size As I

我只是在第一张纸上获取所有红色字体的文本,然后将其存储在一个数组中。然后,我想导航到另一个工作表并激活一个特定的单元格,在这里我想首先将值放入我以前的数组中。但我在另一张纸上激活单元格的部分导致错误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

已经有一段时间了,但是您是否正在尝试选择单元格(4,2)?我认为你不能像工作表那样“激活”一个单元格。请尝试单元格(4、2)。改为选择。

它是否也给出错误描述,还是仅给出400?(读起来,这是一件事)。我读过:根据定义,400个错误是未指定的,并且(出于所有目的)是神秘的。我还读过:此错误通常是由于Excel 2007或Excel 2010中的外接程序安装了Excel 2003电子表格助手的外接程序文件而导致的。我想问一下新文件夹工作表中的新作业是否存在,但这会导致424对象必需错误。该错误与激活功能无关。上面的子函数写在工作表中,当我将它传输到模块时,它就工作了。我想你应该把代码放在工作表级或模块级。啊,好的。你试过Activesheet.cells(3,2).激活吗?就像你说的,范围界定可能是个奇怪的问题。