Общественное Sub CheckRoad (iRow как интежер)
Тусклое lLastRow как длиной
LastRow& = клетки (Rows.Count, 3).End (xlUp). Рядок
sRoad = клетки (iRow, 2).Value
Старт = клетки (iRow, 3).Value
Отделка = клетки (iRow, 4).Value
bWarning = ложно
Для IX = 2 к LastRow
Если iRow <> IX после этого
Если клетки, то (IX, 2).Value = sRoad после этого
Если клетки, то (старт IX, >= 3).Value и клеток (IX, 3).Value <>= старт и клетки (IX, 4).Value <>
|