Страницы: 1
RSS
Написать код, который будет похож на функцию ЕСЛИ(И( в Excel
 
Добрый день!

Суть проблемы : хочу написать код, который будет похож на функцию ЕСЛИ(И ( в Excel ,
Попытаюсь расписать : 1)В столбце K есть 2 типа данных : пусто и * 2) в столбце H все ячейки заполнены фамилиями сотрудников 3) В столбце G указаны KPI (которые повторяются периодически) .
Нужно : чтобы столбец К проверялся на наличие * и после соответствия выполнялось следующие : ЕСЛИ К (какая то ячейка)содержит * И  H(такая же ячейка) содержит "Putov " и G (такая же ячейка) Содержит слово "LTE" , Тогда надо написать определенный текст . Если ячейка содержит * но остальные условия не выполняются , то вернуть звездочку .

Что я делаю :
Код
Sub fdsf()
    Dim cellChecked As Range
    Dim KPI As Range
    Dim Response As Range
    
    For Each KPI In Range("G2:G3342")
    For Each Response In Range("H2:H3342")
    For Each cellChecked In Range("K2:K3342")
    
    If cellChecked = "*" And KPI = "ANYWORD" And Response = "Putov" Then
    cellChecked = "LTE"

    Else
        cellChecked = "*"
    End If
    Next cellChecked
    
End Sub
Но VBA выдает ошибку  
 
Просто идёте циклом (одним!) от 2 до 3342 и проверяете ячейки строки - если первая подходит то проверяете вторую, если и там ОК то третью - так будет быстрее и правильнее.
Код пишу только для файлов.
 

Код писал на коленке. Без файла сложно. Но примерно вот так.

Код
Dim lr as long
lr=Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 to lr
  If cells(i,11).value="*" then
    If cells(i,8).value="Putov" and cells(i,7).value="LTE" then
    cells(ваша ячейка).value="определенный текст"
    Else:
    cells(ваша ячейка).value="*"
    End If
  End If
 Next
Изменено: Hellmaster - 26.09.2019 16:18:41
Страницы: 1
Наверх