Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.10.2014, 16:21   #1
vpzasu
 
Регистрация: 02.10.2014
Сообщений: 5
По умолчанию изменение цвета ярлычка

Здравствуйте!
Прошу помочь в следующей ситуации:
имеется книга,на первом листе в колонке А1 в любой строке произвели запись(изменение),как это отобразить на цвете ярлыка,причём при изменении в колонке В1 или С1 ярлык возвращался в исходный цвет,до последующего изменения в колонке А1??Подскажите пожалуйста
vpzasu вне форума Ответить с цитированием
Старый 02.10.2014, 20:49   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

перехватите обработку собития Worksheet_Change
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 05.10.2014, 10:30   #3
vpzasu
 
Регистрация: 02.10.2014
Сообщений: 5
По умолчанию

Прошу прощенья,подскажите как,с макросами малость недопонимаю,простой примерчик если не затруднит.
vpzasu вне форума Ответить с цитированием
Старый 05.10.2014, 11:06   #4
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

правой кнопкой мыши по ярлыку листа, который хотите перекрашивать, "исходный текст"
копируете туда этот
Код:
 Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then
    Me.Tab.Color = 255
  ElseIf InStr("$B$1$C$1", Target.Address) > 0 Then
    me.Tab.Color = 65535
  End If
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 05.10.2014, 19:20   #5
vpzasu
 
Регистрация: 02.10.2014
Сообщений: 5
По умолчанию

Спасибо Большое!ещё маленький вопрос-что изменить в макросе,чтобы изменения отслеживались во всём столбце.
vpzasu вне форума Ответить с цитированием
Старый 05.10.2014, 19:36   #6
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

встречный вопрос: а по какому правилу необходимо менять цвет ярлыка?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 05.10.2014, 19:56   #7
vpzasu
 
Регистрация: 02.10.2014
Сообщений: 5
По умолчанию

По любому изменению в столбце "а" изменяем на красный,в столбце"в"или"с" возвращаем цвет в исходный
vpzasu вне форума Ответить с цитированием
Старый 05.10.2014, 20:09   #8
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

Код:
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.column = 1 Then
    Me.Tab.Color = 255
  ElseIf Target.column =2 or Target.column =3 Then
    me.Tab.Color = 65535
  End If
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 05.10.2014, 20:25   #9
vpzasu
 
Регистрация: 02.10.2014
Сообщений: 5
По умолчанию

Спасибо огромное за помощь!!!
vpzasu вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
изменение цвета карты exliska C# (си шарп) 3 23.05.2011 10:17
Изменение цвета XFR Microsoft Office Excel 6 28.11.2010 13:32
изменение цвета MaXoN66613 Помощь студентам 2 02.06.2010 18:56
Изменение цвета girz Общие вопросы Delphi 6 30.05.2009 13:43
Изменение цвета Artem Общие вопросы Delphi 5 12.07.2007 09:07