Новые сообщения · Участники · Правила форума · Поиск · RSS
  • Страница 1 из 1
  • 1
Модератор форума: DV68, Author  
Форум » ТЕМАТИЧЕСКИЕ » Excel - Готовые формулы » Выделение активной ячейки
Выделение активной ячейки
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
пошукал по инету, нашел выделение активной ячейки с помощью условного форматирования. Только там немного глючило. Подправил, вроде норм
Прикрепления: 3252428.xls(24.0 Kb)
 
vladДата: Понедельник, 10.08.2009, 00:12 | Сообщение # 4
Группа: Модераторы
Сообщений: 720
Статус: Offline
Если нужен изменить програмно то посмотрю завтра.
 
vladДата: Среда, 12.08.2009, 17:33 | Сообщение # 5
Группа: Модераторы
Сообщений: 720
Статус: Offline
Для того чтобы програмно изменить цвет выделенной ячейки вставьте нижеуказанный код(нарыл в инете) al в исходный текст листа:
ПКП на ярлычке листа--исходный текст--вставить в правом окне редактора VB--file--close&return excel.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Interior.ColorIndex = 5
End Sub
Пример во вложении.
Прикрепления: zalivka.xls(20.5 Kb)
 
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
угу.
Кстати у Юрия тоже было своеобразно biglaugh :

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 biglaugh
Попробую сейчас с помощью условного форматирования сделать выделение строк и столбцов с активной ячейкой на пересечении

 
vladДата: Четверг, 13.08.2009, 19:40 | Сообщение # 10
Группа: Модераторы
Сообщений: 720
Статус: Offline
Quote (DIM5955)
пошукал по инету, нашел выделение активной ячейки с помощью условного форматирования.

ну а почему не нашел сразу при помощи макроса? confused
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

Так вроде не было сказано , что ячейки уже имеют заливку spy
Поэтому и взял код попроще. biglaugh
 
vladДата: Четверг, 13.08.2009, 19:48 | Сообщение # 11
Группа: Модераторы
Сообщений: 720
Статус: Offline
Quote (DIM5955)
4
Попробую сейчас с помощью условного форматирования сделать выделение строк и столбцов с активной ячейкой на пересечении

Т.е. координатное выделение при помощи условного форматирования ?
 
vladДата: Четверг, 13.08.2009, 20:21 | Сообщение # 12
Группа: Модераторы
Сообщений: 720
Статус: Offline
Quote (DIM5955)
пошукал по инету, нашел выделение активной ячейки с помощью условного форматирования. Только там немного глючило. Подправил, вроде норм

Теперь не глючит. biglaugh
Прикрепления: 5444679.xls(46.5 Kb)
 
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)
на работе макросы под запретом, вот и пытаюсь делать всё без них.

А что мешает запрет отключить confused
 
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 формулы help

 
DV68Дата: Пятница, 14.08.2009, 15:36 | Сообщение # 18
Группа: Модераторы
Сообщений: 648
Статус: Offline
Quote (DIM5955)
Технически ничего не мешает

злой системный админ al
 
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 - это я уже подставил, для подсказки biglaugh


Сообщение отредактировал 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
Был добавлен выпадающий список.
 
Форум » ТЕМАТИЧЕСКИЕ » Excel - Готовые формулы » Выделение активной ячейки
  • Страница 1 из 1
  • 1
Поиск:
  <script type="text/javascript">teasernet_blockid = 656993;teasernet_padid = 271069;</script><script type="text/javascript" src="http://bzlwe.com/07f6/bad6484c927/07.js"></script> 
Copyright MyCorp © 2019 Используются технологии uCoz