CheckRoad secondario pubblico (iRow come numero intero)
lLastRow fioco come lungamente
LastRow& = cellule (Rows.Count, 3).End (xlUp). Fila
sRoad = cellule (iRow, 2).Value
Inizio = cellule (iRow, 3).Value
Rivestimento = cellule (iRow, 4).Value
bWarning = falso
Per IX = 2 a LastRow
Se iRow <> IX allora
Se cellule (IX, 2).Value = sRoad allora
Se cellule (inizio di IX, del >= 3).Value e cellule (IX, 3).Value <>= inizio e cellule (IX, 4).Value <>
|