Цвет ярлыка менять в какой-то зависимости - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/Цвет ярлыка менять в какой-то зависимости - Мир MS Excel

Старая форма входа

Страница 1 из 2 1 2 »
Модератор форума: китин, _Boroda_

Цвет ярлыка менять в какой-то зависимости

Цвет ярлыка менять в какой-то зависимости

Дата: Вторник, 02.04.2013, 11:50 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Здравствуйте!

Можно ли в excel сделать чтобы цвет ярлыка менялся в зависимости от цвета нескольких определенных ячеек. Тоесть велась как бы статистика, закрашены красным А5, А8, А10, то ярлык поменял цвет. Цвет ячейки меняется если в ней есть запись.

Сообщение отредактировал BOB - Вторник, 02.04.2013, 11:52

Ответить

Дата: Вторник, 02.04.2013, 11:58 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Средствами Excel это сделать невозможно
Насколько я знаю при заливке ячеек не возникает события, следовательно и на VBA будет реализовать трудно

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Вторник, 02.04.2013, 12:00 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Жаль. Спасибо!

Ответить

Дата: Вторник, 02.04.2013, 12:17 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

статистика по разукрашкам - это круто biggrin

biggrin

как вариант - можно, отказавшись от ручных "разукрашек", отвести на листе определенные ячейки, "отвечающие" за цвет интересующих вас ячеек.
нужно зеленый - поставили туда 1, красный - 2.
можно даже выпадающий список с названиями цветов сделать.
и выбирать в нём.
такой событие отлавляивается на VBA.

а в "нужных" вам ячейках реализовать заливку с помощью УФ, основываясь на выбранные значения в списке цветов...
ну и до цвета ярлычка тоже уже недалеко - по событию Change.

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Ответить

Дата: Вторник, 02.04.2013, 12:30 | Сообщение № 5

Группа: Гости

Цитата (ikki)

статистика по разукрашкам - это круто

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Исследование возможностей игры духовных лиц на бесструнных инструментах...
biggrin

biggrin

Ответить

Дата: Вторник, 02.04.2013, 12:40 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Мне надо чтобы в этих ячейках чтото могли писать( ФИО клиента). Я поставил зависимость ячеек, если есть текст, значит она с зеленой прекрашивается в красный- это время, ярлыки это день недели. Если все ячейки со временем заняты я хотел чтобы и этот день- ярлык поменял цвет, тоесть времени свободного в этот день нет.

Сообщение отредактировал BOB - Вторник, 02.04.2013, 12:41

Ответить

Дата: Вторник, 02.04.2013, 13:15 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

В модуль листа:
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1") <> "" Then Sheets("Лист1").Tab.Color = 255
End Sub

[/vba]
При заполнении ячейки А1 любым значением, цвет ярлыка листа1 станет красным

К сообщению приложен файл: BOB.xls (29.0 Kb)

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Вторник, 02.04.2013, 13:23 | Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Скачал файл, попробовал ввести данные в А1, никаких изменений. К тому же что писал Сергей работает, ошибку я сам нашол, но немного не так как мне надо.

Сообщение отредактировал BOB - Вторник, 02.04.2013, 23:48

Ответить

Дата: Вторник, 02.04.2013, 13:36 | Сообщение № 9

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Цитата (Serge_007)

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1") <> "" Then Sheets("Лист1").Tab.Color = 255
End Sub

Так же попробовал ввести в свою книгу, только на другую ячейку. Пишет ошибку в строкеIf Range("С5") <> "" Then(ошибка 1004. А если надо несколько ячеек, то писать "If Range("a1+а2+а3?") <> "" Then Sheets("Лист1").Tab.Color = 255

И здесь для листа1, а что писать для книги?

Сообщение отредактировал BOB - Вторник, 02.04.2013, 13:44

Ответить

Дата: Вторник, 02.04.2013, 13:41 | Сообщение № 10

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Цитата (BOB)

опробовал ввести данные в А1, никаких изменений

Макросы включите

Цитата (BOB)

писать "If Range("a1+а2+а3?")

Нет

Цитата (BOB)

что писать для книги?

А что надо? Вы просили изменения цвета ярлыка листа. У книги нет ярлыка. По крайней мере в Excel smile

smile

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Формуляр

Дата: Вторник, 02.04.2013, 13:41 | Сообщение № 11

Группа: Друзья

Ранг: Ветеран

Сообщений: 832

Репутация: 255 ±

Замечаний: 0% ±

Excel 2003, 2013

Поменяйте на
[vba]

Код

If Range("a1") <> "" Then me.Tab.Color = 255

[/vba]

Excel 2003 EN, 2013 EN

Ответить

Дата: Вторник, 02.04.2013, 13:47 | Сообщение № 12

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

У меня просто одно и тоже на кождом ярлыке, я думал можно сделать одно правило для всех ярлыков

Ответить

Дата: Вторник, 02.04.2013, 13:51 | Сообщение № 13

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Цитата (BOB)

можно сделать одно правило для всех ярлыков

Можно. Постом выше Формуляр Вам его подсказал

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Вторник, 02.04.2013, 14:17 | Сообщение № 14

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Все равно пишет ошибку и выделяет желтым цветом "If Range("С5") <> " " Then". Ошибка 1004 (Макросы включены.)

Сообщение отредактировал BOB - Вторник, 02.04.2013, 14:18

Ответить

Дата: Вторник, 02.04.2013, 14:28 | Сообщение № 15

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Откуда Вы взяли Range("С5") и почему вместо пустой строки пробел?
Файл с ошибкой давайте

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Вторник, 02.04.2013, 14:38 | Сообщение № 16

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

И зачем тебе файл?
Все равно ячейки С5 там не будет. Будет C5. smile

smile

BOB, следите за раскладкой.

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Вторник, 02.04.2013, 14:40

Ответить

Дата: Вторник, 02.04.2013, 14:47 | Сообщение № 17

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("c5") <> "" Then Sheets("Лист1").Tab.Color = 255
End Sub

[/vba]

Я скопировал то что дали Вы здесь на сайте и заменил на оду из нужных мне ячеек.

Мне надо чтобы 42 ячейки были красные чтобы поменялся цвет ярлыка

ввожу английскими буквами.

[admin]Оформляйте коды тегами![/admin]

Сообщение отредактировал BOB - Вторник, 02.04.2013, 14:52

Ответить

Дата: Вторник, 02.04.2013, 15:08 | Сообщение № 18

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Цвет меняет, но при удалении надписи, цвет остался красным. У меня был "лист1" назван "Понедельник". Поменял на понедельник и стал менять цвет. Но не обратимо.

Опять же всего одна ячейка, а мне надо 42 ячейки, тогда цвет меняется.

Сообщение отредактировал BOB - Вторник, 02.04.2013, 15:33

Ответить

Дата: Вторник, 02.04.2013, 22:59 | Сообщение № 19

Группа: Друзья

Ранг: Старожил

Сообщений: 1347

Репутация: 249 ±

Замечаний: 0% ±

Excel 2010

ВОВ, все пошли искать Ваши 42 ячейки.

Сообщение от Serge_007 в 14:28

Цитата

Файл с ошибкой давайте

Ответить

Дата: Вторник, 02.04.2013, 23:32 | Сообщение № 20

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Я просто не понял какой файл, если всю книгу. Но тут ниже написано что файлы хlsx выкладывать не желательно.

Ответить

Цвет ярлыка менять в какой-то зависимости

Страница 1 из 2
1
2
»

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!