CheckRoad secundario público (iRow como número entero)
lLastRow dévil como de largo
LastRow& = células (Rows.Count, 3).End (xlUp). Fila
sRoad = células (iRow, 2).Value
Comienzo = células (iRow, 3).Value
Final = células (iRow, 4).Value
el bWarning = falso
Para IX = 2 a LastRow
Si iRow <> IX entonces
Si células (IX, 2).Value = sRoad después
Si células (comienzo de IX, del >= 3).Value y células (IX, 3).Value <>= comienzo y células (IX, 4).Value <>
|