Цитата:
|
If (Range(marcOfString1).Text Like "[Север]*") Then Nord Else Ocrug ' если есть северо-запад то Nord если нет то Okrug
|
If ......... then
Nord
elseif .......then
Okrug
END IF
end sub
:PS
коды округов, районов стоят в одном столбце, отдельно от всех остальных названий? ИХМО Лучше оперировать цифровой кодировкой
