|
Выделение активной ячейки
|
|
| DV68 | Дата: Суббота, 08.08.2009, 18:16 | Сообщение # 1 |
|
Группа: Модераторы
Сообщений: 648
Статус: Offline
| Вопрос: как выделить другим цветом активную ячейку?
|
| |
|
|
| sizop | Дата: Воскресенье, 09.08.2009, 18:42 | Сообщение # 2 |
Admin
Группа: Администраторы
Сообщений: 1801
Статус: Offline
| DIM5955, макросы скорее всего, хотя там и макрос то макросом не назовешь скорее всего, просто синтаксис знать бы Cellactive свойство изменить, хотя не претендую на правду в последней инстанции ибо с VBA не знаком 
Где бы найти специалиста по макросам 
|
| |
|
|
| DV68 | Дата: Воскресенье, 09.08.2009, 19:14 | Сообщение # 3 |
|
Группа: Модераторы
Сообщений: 648
Статус: Offline
| пошукал по инету, нашел выделение активной ячейки с помощью условного форматирования. Только там немного глючило. Подправил, вроде норм
|
| |
|
|
| vlad | Дата: Понедельник, 10.08.2009, 00:12 | Сообщение # 4 |
Группа: Модераторы
Сообщений: 720
Статус: Offline
| Если нужен изменить програмно то посмотрю завтра.
|
| |
|
|
| vlad | Дата: Среда, 12.08.2009, 17:33 | Сообщение # 5 |
|
Группа: Модераторы
Сообщений: 720
Статус: Offline
| Для того чтобы програмно изменить цвет выделенной ячейки вставьте нижеуказанный код(нарыл в инете)  в исходный текст листа:
ПКП на ярлычке листа--исходный текст--вставить в правом окне редактора VB--file--close&return excel.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Interior.ColorIndex = 5
End Sub
Пример во вложении.
|
| |
|
|
| vlad | Дата: Среда, 12.08.2009, 17:35 | Сообщение # 6 |
|
Группа: Модераторы
Сообщений: 720
Статус: Offline
| Quote (vlad) ПКП на ярлычке листа
Извиняюсь ПКМ(пр. кн. мыши) |
| |
|
|
| DV68 | Дата: Среда, 12.08.2009, 20:59 | Сообщение # 7 |
|
Группа: Модераторы
Сообщений: 648
Статус: Offline
| Прикольно, причем цвет менять не сложно, но вопрос стоял про выделение только активной ячейки. Т.е. выделение цветом ячейки только тогда, когда она активна.
Сообщение отредактировал DIM5955 - Среда, 12.08.2009, 20:59 |
| |
|
|
| vlad | Дата: Четверг, 13.08.2009, 15:51 | Сообщение # 8 |
|
Группа: Модераторы
Сообщений: 720
Статус: Offline
| Quote (DIM5955) Прикольно, причем цвет менять не сложно, но вопрос стоял про выделение только активной ячейки.
Вот.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Activesheet.Usedrange.Interior.ColorIndex = xlNone
' можно выбрать цвет заливки
Target.Interior.ColorIndex = 5
End Sub
_______________________ |
| |
|
|
| DV68 | Дата: Четверг, 13.08.2009, 17:05 | Сообщение # 9 |
|
Группа: Модераторы
Сообщений: 648
Статус: Offline
| угу.
Кстати у Юрия тоже было своеобразно  : Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Interior.ColorIndex = xlNone Then
Target.Interior.ColorIndex = 5
Else
Target.Interior.ColorIndex = xlNone
End If
End Sub в любом случае значение ColorIndex = 5 лучше 6, ну или 4
Попробую сейчас с помощью условного форматирования сделать выделение строк и столбцов с активной ячейкой на пересечении
|
| |
|
|
| vlad | Дата: Четверг, 13.08.2009, 19:40 | Сообщение # 10 |
|
Группа: Модераторы
Сообщений: 720
Статус: Offline
| Quote (DIM5955) пошукал по инету, нашел выделение активной ячейки с помощью условного форматирования.
ну а почему не нашел сразу при помощи макроса?  Quote (DIM5955) Кстати у Юрия тоже было своеобразно :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Interior.ColorIndex = xlNone Then
Target.Interior.ColorIndex = 5
Else
Target.Interior.ColorIndex = xlNone
End If
End Sub
Так вроде не было сказано , что ячейки уже имеют заливку 
Поэтому и взял код попроще. |
| |
|
|
| vlad | Дата: Четверг, 13.08.2009, 19:48 | Сообщение # 11 |
|
Группа: Модераторы
Сообщений: 720
Статус: Offline
| Quote (DIM5955) 4
Попробую сейчас с помощью условного форматирования сделать выделение строк и столбцов с активной ячейкой на пересечении
Т.е. координатное выделение при помощи условного форматирования ? |
| |
|
|
| vlad | Дата: Четверг, 13.08.2009, 20:21 | Сообщение # 12 |
|
Группа: Модераторы
Сообщений: 720
Статус: Offline
| Quote (DIM5955) пошукал по инету, нашел выделение активной ячейки с помощью условного форматирования. Только там немного глючило. Подправил, вроде норм
Теперь не глючит. |
| |
|
|
| DV68 | Дата: Пятница, 14.08.2009, 02:49 | Сообщение # 13 |
|
Группа: Модераторы
Сообщений: 648
Статус: Offline
| Quote (vlad) ну а почему не нашел сразу при помощи макроса?
на работе макросы под запретом, вот и пытаюсь делать всё без них.
Да и интересно, на что способен Excel без макросов. Вот, например, увидел такую формулу:
=РУБЛЬ(("4/"&A1)/7+ОСТАТ(19*ОСТАТ(A1;19)-7;30)*14%;)*7-6+14 (в ячейке А1 год, например, 2009)
Как думаете, что она вычисляет?
Сообщение отредактировал DIM5955 - Пятница, 14.08.2009, 03:39 |
| |
|
|
| vlad | Дата: Пятница, 14.08.2009, 10:31 | Сообщение # 14 |
|
Группа: Модераторы
Сообщений: 720
Статус: Offline
| Quote (DIM5955) на работе макросы под запретом, вот и пытаюсь делать всё без них.
А что мешает запрет отключить |
| |
|
|
| DV68 | Дата: Пятница, 14.08.2009, 14:34 | Сообщение # 15 |
|
Группа: Модераторы
Сообщений: 648
Статус: Offline
| Quote (vlad) А что мешает запрет отключить
Технически ничего не мешает |
| |
|
|
| vlad | Дата: Пятница, 14.08.2009, 15:28 | Сообщение # 16 |
|
Группа: Модераторы
Сообщений: 720
Статус: Offline
| Quote (DIM5955) Технически ничего не мешает
Ну а в чем проблема? |
| |
|
|
| DV68 | Дата: Пятница, 14.08.2009, 15:30 | Сообщение # 17 |
|
Группа: Модераторы
Сообщений: 648
Статус: Offline
| Quote (DIM5955) Попробую сейчас с помощью условного форматирования сделать выделение строк и столбцов с активной ячейкой на пересечении Excel у меня 2007 глючный, при условном форматировании не дает создавать формулы, только редактировать можно.
Сбросьте кто нить чистую книгу с несколькими ячейками с условным фоматированием на 3 формулы  |
| |
|
|
| DV68 | Дата: Пятница, 14.08.2009, 15:36 | Сообщение # 18 |
|
Группа: Модераторы
Сообщений: 648
Статус: Offline
| Quote (DIM5955) Технически ничего не мешает
злой системный админ |
| |
|
|
| vlad | Дата: Пятница, 14.08.2009, 15:39 | Сообщение # 19 |
|
Группа: Модераторы
Сообщений: 720
Статус: Offline
| Quote (DIM5955) Вот, например, увидел такую формулу:
=РУБЛЬ(("4/"&A1)/7+ОСТАТ(19*ОСТАТ(A1;19)-7;30)*14%;)*7-6+14 (в ячейке А1 год, например, 2009)
Как думаете, что она вычисляет?
Конечно не знаю(я не бухгалтер). Но расписать синтаксис если надо смогу.=рубль(("4/"&A1)/7+ОСТАТ(19*ОСТАТ(A1;19)-7;30)*14%-число(что за действия производятся в результате которых получается это число я честно говоря не знаю) преобразуемое в текстовый формат с приставкой "р.",
*7-6+14 -что означает эта арифметика я тоже честно говоря не знаю. |
| |
|
|
| vlad | Дата: Пятница, 14.08.2009, 15:46 | Сообщение # 20 |
|
Группа: Модераторы
Сообщений: 720
Статус: Offline
| Quote (DIM5955) злой системный админ
А разве для того , чтобы изменить уровень безопасности макросов требуется сисад? Пункт-Сервис-Параметры,вкладка Безопасность и т.д. |
| |
|
|
| DV68 | Дата: Пятница, 14.08.2009, 15:50 | Сообщение # 21 |
|
Группа: Модераторы
Сообщений: 648
Статус: Offline
| Quote (vlad) Конечно не знаю(я не бухгалтер). Но расписать синтаксис если надо смогу.=рубль(("4/"&A1)/7+ОСТАТ(19*ОСТАТ(A1;19)-7;30)*14%-число(что за действия производятся в результате которых получается это число я честно говоря не знаю) преобразуемое в текстовый формат с приставкой "р.",
*7-6+14 -что означает эта арифметика я тоже честно говоря не знаю.
Ты не поверишь, но если поставить формат даты, то это будет дата Пасхи в указанный год.
Я в шоке, как можно было вообще додуматься до такой формулы, главное, что она работает
+14 - это я уже подставил, для подсказки
Сообщение отредактировал DIM5955 - Пятница, 14.08.2009, 15:52 |
| |
|
|
| nokilay2007 | Дата: Пятница, 05.11.2010, 12:20 | Сообщение # 22 |
|
Группа: Пользователи
Сообщений: 2
Статус: Offline
| Quote (DIM5955) пошукал по инету, нашел выделение активной ячейки с помощью условного форматирования. Только там немного глючило. Подправил, вроде норм
а если не секрет что подправлено конкретно? |
| |
|
|
| DV68 | Дата: Пятница, 05.11.2010, 14:16 | Сообщение # 23 |
|
Группа: Модераторы
Сообщений: 648
Статус: Offline
| Был добавлен выпадающий список.
|
| |
|
|
