2016-01-05 5 views
0

Я пытаюсь сравнить 2 значения ячеек, а дальнейшая логика основана на значениях в обеих ячейках.Ошибка определения приложения 1004

Мой код дает «Ошибка 1004: Определенная пользователем или объектная ошибка».

Ниже та часть, где я получаю этот вопрос

Pass = Application.WorksheetFunction.CountIf(Range("i20:i256"), "P") 
Fail = Application.WorksheetFunction.CountIf(Range("j20:j256"), "F") 

Temp1 = (Pass + Fail) 

For num = 20 To 256 
If Worksheets("QA Checklist Banners").Range("i(num)").Value = "P" And _ 
Worksheets("QA Checklist Banners").Range("j(num)").Value = "F" Then 

    MsgBox ("Both column cannot contain values") 

End If 
Next num 

ответ

1

Изменить эту строку:

If Worksheets("QA Checklist Banners").Range("i(num)").Value = "P" And Worksheets("QA Checklist Banners").Range("j(num)").Value = "F" Then 

по этой линии:

If Worksheets("QA Checklist Banners").Range("I" & num).Value = "P" And Worksheets("QA Checklist Banners").Range("J" & num).Value = "F" Then 
+0

Благодарим за помощь ...... После много исследований я, наконец, сделал это, я изменил код как «Листы» («Контрольные списки баннеров»). Ячейки (num, 9) = «P» и листы («Баннеры контрольных списков QA»). Ячейки (num, 10) = «F» Затем – Thomas

0

Наконец я получил выход в соответствии с требованиями путем изменения моего кода

For Num = 20 To 256 
    If Sheets("QA Checklist Banners").Cells(Num, 9) = "P" And Sheets("QA Checklist Banners").Cells(Num, 10) = "F" Then 
    Sheets("QA Checklist Banners").Cells(Num, 9).Interior.ColorIndex = 3 
    Sheets("QA Checklist Banners").Cells(Num, 10).Interior.ColorIndex = 3 
    MsgBox ("Both column cannot contain values") 
    End If 
Next Num 
Смежные вопросы