EXCEL宏编程菜鸟勿进，求大神帮忙，为什么下面的代码运行后 出现 无效的过程调用或参数?

Question

'Dim RA&, RI&, XI&, YI&, II&, IP& '定义变量 R&,RI&,x&,i& Dim A(1 To 20) 'As Single Dim B(1 To 20) 'As Single Dim c(1 To 20) 'As Single Dim D(1 To 20) 'As Single Dim E(1 To 20) 'As Single Dim F(1 To 20) 'As Single Dim G(1 To 20) 'As Single Dim H(1 To 20) 'As Single Dim I(1 To 20) 'As Single Windows("时领宅配工单.xls").Activate With Sheets("工单") RI = .Range("AW65536").End(xlUp).Row ' + 1 'RI=<With对象>的<单元格>区域("AW65536" )的<末端>(方向向上 )，最后一个非空的单元格的行号+1 '.Cells(RI, 59) = Range("BX" & RI - 1).Value '<With对象>的<单元格>坐标(RI,59)=<单元格>区域("BX"&RI-1 )的值 '.Cells(RI, 60) = Range("BY" & RI - 1).Value '<With对象>的<单元格>坐标(RI,59)=<单元格>区域("BX"&RI-1 )的值 '.Cells(RI, 61) = .Cells(RI, 60) - .Cells(RI, 59) '.Cells(RI, 62) = Range("BZ" & RI - 1).Value '<With对象>的<单元格>坐标(RI,59)=<单元格>区域("BX"&RI-1 )的值 '.Cells(RI, 63) = Range("CA" & RI - 1).Value '<With对象>的<单元格>坐标(RI,59)=<单元格>区域("BX"&RI-1 )的值 XI = RI - 8 YI = 1 RA = 9 For II = 9 To 48 'RI A(YI) = .Cells(RA, 28) B(YI) = .Cells(RA, 42) c(YI) = .Cells(RA, 43) D(YI) = .Cells(RA, 44) E(YI) = .Cells(RA, 45) F(YI) = .Cells(RA, 46) G(YI) = .Cells(RA, 47) H(YI) = .Cells(RA, 48) I(YI) = .Cells(RA, 49) II = II + 1 RA = RA + 1 YI = YI + 1 Next End With 'For RA = 1 To 20 'MsgBox E(RA) 'RA = RA + 1 'Next YI = 1 'Cells(N, 8) = X(N) 'Range("AC9:BK" & RI).Select 'Selection.Copy Workbooks.Open Filename:="F:\库存表.xls", AddToMru:=True Windows("库存表.xls").Activate 'Range("A4").Select With Sheets("Sheet1") '工作于<工作表>("数据库") Windows("1900-1-0销售清单1900-1-0(1).xls").Activate '例如在A1:A65536中查找单元格值等于A(YI)的行号： For Each rn In Range("A1:A65536") If rn.Value = A(YI) Then IP = rn.Row Else IP = .Cells(Rows.Count, 1).End(xlUp).Row + 1 End If Next 'Range("A" & IP + 1).Select For TT = 1 To 40 .Cells(IP, 1) = A(YI) .Cells(IP, 2) = B(YI) .Cells(IP, 3) = c(YI) .Cells(IP, 4) = D(YI) .Cells(IP, 5) = E(YI) .Cells(IP, 6) = F(YI) .Cells(IP, 7) = G(YI) .Cells(IP, 8) = H(YI) .Cells(IP, 9) = I(YI) IP = IP + 1 TT = TT + 1 YI = YI + 1 Next 'Call DeleteEmptyRows '删除空行 'For iq = [a65536].End(3).Row To 1 Step -1 '删除空行 'If Cells(iq, 1).Value = 0 Then 'Rows(iq).Delete 'End If 'Next 'Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Application.RecentFiles.Add Name:="F:\库存表.xls" ActiveWorkbook.Save ActiveWorkbook.Close Windows("时领宅配工单.xls").Activate End With

Answer 1

黄色行报错无效过程吗，你是想使用数组A的YI元素吧，鼠标放在A和YI上看看数值是多少，或者点右键添加监视看看，如果A不是数组，而且YI不是在A数组的范围内，语句就是有错的。