Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/loops/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 运行时错误424,定义变量时出现问题_Vba_Loops_Variables_Runtime Error - Fatal编程技术网

Vba 运行时错误424,定义变量时出现问题

Vba 运行时错误424,定义变量时出现问题,vba,loops,variables,runtime-error,Vba,Loops,Variables,Runtime Error,在解决下一个变量问题后,我遇到了问题。我现在得到运行时错误424。我认为这是因为我没有正确地将变量命名为字符串或整数。我对代码有两种方法,它们都会导致相同的错误 第11列和第1列是需要匹配的文本 第10列和第(v)列是需要匹配的日期 第2列将是文本,末尾有一个数字 列(V)将是一个数字,末尾有一个数字 循环的逻辑对我来说是有意义的,但无法找出问题的原因 如果单元格数值(J,11)=主单元格数值(p,1)和单元格数值(J,10)=主单元格数值(p,V),则 此处产生错误“需要运行时'424'对象,

在解决下一个变量问题后,我遇到了问题。我现在得到运行时错误424。我认为这是因为我没有正确地将变量命名为字符串或整数。我对代码有两种方法,它们都会导致相同的错误

第11列和第1列是需要匹配的文本 第10列和第(v)列是需要匹配的日期 第2列将是文本,末尾有一个数字 列(V)将是一个数字,末尾有一个数字

循环的逻辑对我来说是有意义的,但无法找出问题的原因

如果单元格数值(J,11)=主单元格数值(p,1)和单元格数值(J,10)=主单元格数值(p,V),则

此处产生错误“需要运行时'424'对象,我缺少什么对象?(粗体错误)


哪一行触发了错误?错误的文本是什么?请单击“编辑”按钮“单击答案下方的按钮,添加此信息并格式化代码缩进,使其有意义。如果编辑有助于进一步解释问题,请告诉我@Cindymeester这是一个改进,是的。”。我相信问题在于Master.cell没有指向特定的对象?还不清楚什么是对象
cell
——这些对象没有在您向我们展示的代码中声明或实例化(没有
Dim
Set
)。你在别的地方有没有(请给我们看看)或者你没有做过?你的结构是错的。它应该是{SheetReference}.Cells([RowIndex],[ColumnIndex].Value(其中SheetReference是您正在处理的任何工作表)。此外,您必须将Master=设置为工作表。请看这里:同意sous,而不是使用“cell.Value”。为每个工作表使用一个变量,然后说myWorksheetVariable.Cells(j,任意数字)
  Sub IndexInfo()
'
' Loops through data and finds matches and then indexs information
'
Dim J As Integer
Dim P As Integer
Dim V As Integer
Dim Master As Worksheet
Dim Gracie As Worksheet

IRowL = Cells(Rows.Count, 1).End(xlUp).Row
Set Master = Worksheets("Master")
Set Gracie = Worksheets("Gracie")


For J = 2 To IRowL
    For V = 21 To 50
        For P = 2 To IRowL
        


If Gracie.Cells(J, 11).Value = Master.Cells(P, 1).Value And Gracie.Cells.Value(J, 10) = Master.Cells(P, V).Values Then

Gracie.Cells(J, 30).Value = Master.Cells(P, 2).Value And Gracie.Cells(J, 31).Value = Master.Cells(1, V).Value

            Else
        End If
     Next P
   Next V
Next J

End Sub