Страницы: 1
RSS
VBA Если столбец содержит «Значение», то ячейка с заданным смещением (отступом) равна нулю Ø.
 
.
Изменено: Vlad_Sm - 10.11.2020 10:09:53
 
В модуле листа
Код
Option Explicit
Option Compare Text
Sub Word_Zero()
    Dim Cel As Range, i&, Ar
    Ar = Array("*CRATE*", "*WOODEN BOX*", "*RACK*", "*PLASTIC BAG*")
    For Each Cel In Range("S2", Cells(Rows.Count, "S").End(xlUp))
        For i = 0 To UBound(Ar)
            If Cel Like Ar(i) Then Cel.Offset(0, 10) = 0: Exit For
        Next
    Next
End Sub
 
.
Изменено: Vlad_Sm - 10.11.2020 10:10:08
 
.
Изменено: Vlad_Sm - 10.11.2020 10:10:17
 
Так, что ли?
Код
Option Explicit
Option Compare Text
Sub Word_Zero()
    Dim Cel As Range, i&, Ar
    Ar = Array("*CRATE*", "*WOODEN BOX*", "*RACK*", "*PLASTIC BAG*")
    For Each Cel In Range("S2", Cells(Rows.Count, "S").End(xlUp))
        For i = 0 To UBound(Ar)
            If Cel Like Ar(i) Then Cel.Offset(1, 10) = 0: Exit For
        Next
    Next
End Sub

Надо было сразу показать, что и где должно быть.
...Тем более, что "отступ" - это немного из другой оперы...
Страницы: 1
Наверх