Снова эксель

Формат - Условное форматирование

 

Допустим в столбце F - населённые пункты
Диапазон F15:F546 - первый округ, F547:F1234 - второй, и т.д.
Вносим в столбец G
в диапазон G15:G546 - 1, G547:G1234 - 2, и т.д.

=Если(ВПР(

 

тестируешь ты название населённого пункта в ячейке D3
номер округа к которому относится населённый пункт будет выводится в E3
Соотв вносишь в E3 формулу
=ВПР(D3;F15:G1500;2;ложь)

сия ф-ция ищет в первом столбце диапазона F15:G1500 значение совпадающее с D3 и подставляет соответствующее значение из второго столбца диапазона F15:G1500.

А названия населённых пунктов уникальны ?

 

Сорри, а чем не подходят вот такие варианты условного форматирования?


В первом варианте подсвечиваем только первый столбец, во втором - всю строку...

 

Вот для 2003:

 

Тогда макросом раскрашивай.
Задай массив номеров цветов - по цвету на округ. Это кста весьма не явно различимые оттенки получатся при 60 округах.
Определяй номер округа у рассматриваемого населённого пункта ВПР-ом.
И раскрашивай ячейку в макросе. Кажется так: .Interior.ColorIndex

 

Тока в Excele всего 56 цветов, вот ведь незадачка!

 

нет. их можно хоть произвольными rgb задавать

хотя доподлинно не знаю, может быть на одновременное использование есть ограничение

 

Не стану плодить тем, задам вопрос тут. Вопрос такого характера! Есть БД содержащая большое количество номеров, как можно автоматизированно заменить первую цифру у каждого номера на другую, в ручную не айс, порядка 7000 записей.

 

mitrich, вот так можно:

 

WindMan, спасибо огромное, многочасовые мучения сошли на нет ))))))

 

Можно через макрос вести лог изменений ячейки.
Т.е. на листе "Лист1" есть ячейка "А10", за которой следим изменения.
Вот эта процедурка для листа "Лист1" будет отслеживать изменения этой ячейки, а результат писать на лист "Log" в колонку "А" - дату и время изменения, а в колонку "B" - измененное значение.
===
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> [A10].Address Then Exit Sub
Worksheets("Log").Range("A" & CStr(Worksheets("Log").Range("A" & Rows.Count).End(xlUp).Row) + 1) = Now()
Worksheets("Log").Range("B" & CStr(Worksheets("Log").Range("B" & Rows.Count).End(xlUp).Row) + 1) = [A10].Value
End Sub
===

 

WindMan, Много лишних движений
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> [A10].Address Then Exit Sub
Worksheets("Log").UsedRange.SpecialCells(xlCellTypeLastCell).Offset(1).EntireRow.Resize(, 2) = Array(Now(), [A10].Value)
End Sub

 

panda-34, согласен! Ну эт я про лист "Log" для примера нарисовал, первое, что в голову залетело... Как я понял, человеку нужно скрыто контролировать изменение ячейки. Можно, конечно, лист скрыть, можно в другой файл записывать... Это уже будут фантазии 1gerzogа. Думаю, что главный смысл решения этой задачи ему понятен.