Добрый день. Мне нужно в одной таблице связать несколько ячеек вот таким образом - выделяю одну ячейку и подсвечивают либо другим образом выделяются связаные с ней ячейки. Есть единая таблица с данными на разных сотрудников, необходимо, чтобы при выделении ячейки с именем одного, выделялись ячейки с именами его подчиненных - иначе по таблице сложно искать.
Как сделать так, чтобы при выделении ячейки выделялись связанные с ней.
26.10.2011 16:16:26
|
|
|
|
26.10.2011 16:18:37
пример ?
Редко но метко ...
|
|
|
|
26.10.2011 16:19:57
Возможно, надо начать с реорганизации таблицы.
|
|
|
|
26.10.2011 16:41:44
Ну а где информация о том, кто чей подчиненный?
Наверно, надо завести столбец, в котором у каждого сотрудника будет указан начальник. Тогда все просто. |
|
|
|
26.10.2011 18:07:59
Сохраните сначала на диск с нужным расширением, а потом с диска открывайте.
|
|
|
|
27.10.2011 10:14:44
> А можно поподробнее, как совсем для блондинки? =)
Верю-верю :) В поле "Имя файла", где написано "post_271737.zip", вручную сотрите "zip" и впишите "xlsm". Предвижу следующий вопрос, поэтому предлагаю почитать тут: |
|
|
|
27.10.2011 10:24:34
{quote}{login=Казанский}{date=27.10.2011 10:14}{thema=}{post}> А можно поподробнее, как совсем для блондинки? =)
Верю-верю :) В поле "Имя файла", где написано "post_271737.zip", вручную сотрите "zip" и впишите "xlsm". Предвижу следующий вопрос, поэтому предлагаю почитать тут: Приятно, когда тебя понимают, но ответ на этот вопрос мне не понадобился - макрос работает))) У меня теперь другой вопрос - как сделать в моей оригинальной таблице так, как было сделано в примере? |
|
|
|
27.10.2011 10:49:47
Правый клик на ярлычке листа - Исходный текст. Ctrl+A, Ctrl+C.
Правый клик на ярлычке листа, куда надо перенести макрос - Исходный текст - Ctrl+V. |
|
|
|
27.10.2011 10:53:26
Вдогонку: макрос работает с первой "таблицей" листа, поэтому в оригинальном файле данные тоже должны быть в "таблице" (т.е. с синим уголком в правой нижней ячейке таблицы).
|
|
|
|
27.10.2011 12:12:47
Замените
If i = Target Then Union(Selection, i(, -2)).Select на If i = Target Then Union(Selection, i.EntireRow).Select |
|
|
|
27.10.2011 12:24:03
Нужно подождать до "после обеда" - вдруг, у начальников что-то ещё появится :-)
|
||||
|
|
|||
Читают тему