CheckRoad secundário público (iRow como o inteiro)
lLastRow não ofuscante como por muito tempo
LastRow& = pilhas (Rows.Count, 3). Extremidade (xlUp). Fileira
sRoad = pilhas (iRow, 2). Valor
Começo = pilhas (iRow, 3). Valor
Revestimento = pilhas (iRow, 4). Valor
bWarning = falso
Para ix = 2 a LastRow
Se iRow <> ix então
Se pilhas (ix, 2). Valor = sRoad então
Se pilhas (ix, 3). Começo do >= do valor e pilhas (ix, 3). Valor <>= começo e pilhas (ix, 4). Valor <>
|