Возможно ли в Excel сделать так чтобы в ячейке с какой-либо записью моргал (менялся) фон (заливка) например зеленым-желтым-зеленым-желтым.
Или также моргал (менялся) цвет шрифта текста (например красный-зеленый-красный-зеленый-красный-зеленый) ?
Как именно и что нужно сделать?
Подскажите пожалуйста :-)
Программное обеспечение
Про Excel. Как сделать мигающую ячейку?
Я в Word 2007 делал такое.
У меня получилось.
Делаешь таблицу обычную.
Делаешь заливку скажем красным, а слева желтым.
А текст в них на оборот справа желтым, а слева красным.
Заходишь в свойства таблицы.
Там функция какая-то есть типа инвертировать цвета.
---
Думаю и в Excel есть подобная фигня.... Правда не интересовался.
Поищи там.
---
Вообще вот тут читай. Тут у парня схожий вопрос возник.
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=10370
У меня получилось.
Делаешь таблицу обычную.
Делаешь заливку скажем красным, а слева желтым.
А текст в них на оборот справа желтым, а слева красным.
Заходишь в свойства таблицы.
Там функция какая-то есть типа инвертировать цвета.
---
Думаю и в Excel есть подобная фигня.... Правда не интересовался.
Поищи там.
---
Вообще вот тут читай. Тут у парня схожий вопрос возник.
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=10370
Сергей Дорошкевич
Мой документ Excel, что-то не найду в нем "инвертировать цвета"
Использовать формулу Blink if >=100, если значение в ячейке =100 или больше, будет мигать зеленым.
Сергей Дорошкевич
У меня в той ячейке текстовая запись.
Её можно заставить Blink-ать?
И в какую ячейку писать Blink if >=100? Тут же нужно как-то указать в какой ячейке искать >=100
Её можно заставить Blink-ать?
И в какую ячейку писать Blink if >=100? Тут же нужно как-то указать в какой ячейке искать >=100
только макросом.
для фона. в ячейке А2.
====================================
For x = 1 To 100
Range("A2").Interior.ColorIndex = 6
PauseTime = 0.5
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Range("A2").Interior.ColorIndex = 4
PauseTime = 0.5
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Next x
======================================
для текста заменить вторую и ниже строку на
Range("A2").Font.ColorIndex = 6
цифры это цвет. подбирай.
мигнёт 100 раз. увеличивай.
Успехов!
для фона. в ячейке А2.
====================================
For x = 1 To 100
Range("A2").Interior.ColorIndex = 6
PauseTime = 0.5
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Range("A2").Interior.ColorIndex = 4
PauseTime = 0.5
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Next x
======================================
для текста заменить вторую и ниже строку на
Range("A2").Font.ColorIndex = 6
цифры это цвет. подбирай.
мигнёт 100 раз. увеличивай.
Успехов!
Сергей Дорошкевич
Спасибо большое.
Только у меня ничего не получается.
Вроде делаю как нашел в поисковиках, но ничего не моргает
Только у меня ничего не получается.
Вроде делаю как нашел в поисковиках, но ничего не моргает
Ника дедушка, никак
Ведь это не 90-ые
Ведь это не 90-ые
Александр Шелестов
Можно и легко.
МИГАЮЩАЯ ЯЧЕЙКА
вы что-то недоговариваете.
Не думаю что у вас потребность в детской игрушке, которая работает при нажатии на кнопку...
Наверняка вам нужна какая-то напоминалка которая включается при определенных условиях.
Но условия вы пропустили...
Отвечаю по вопросу как есть.
- открываем excel
- вставить
- загружаем любую картинку, фото, геометрическую фигуру и т. п.
кликаем на нужный Лист - Исходный текст
копируем код:
Sub Blick()
Dim s As Byte
For s = 1 To 5
[D3].Interior.ColorIndex = 4
Application.Wait Now + TimeSerial(0, 0, 1)
[D3].Interior.ColorIndex = 6
Application.Wait Now + TimeSerial(0, 0, 1)
Next
[D3].Interior.ColorIndex = 0
End Sub
возвращаемся на рабочий Лист. Клик правой мышкой по рисунку - Нахначить макрос - Blick - OK
*[D4] - ячейка D4
если надо выделить массив - тогда [D4:F7]
1 to 5 - кол-во миганий
ColorIndex = 4 - зеленый цвет
1 - черн
2 - бел
3 - красн
4 - зел
5 - темносиний
6 - желт
7, 38 - розов ( разнве тона)
8, 33, 42 - голубой
10 - т/зеленый
12 - коричн
15 - серый
22 - оранж
41 - син
можно перебирать до 56
TimeSerial(0, 0, 1) - задержка (0 час, 0 мин, 1 сек)
вы что-то недоговариваете.
Не думаю что у вас потребность в детской игрушке, которая работает при нажатии на кнопку...
Наверняка вам нужна какая-то напоминалка которая включается при определенных условиях.
Но условия вы пропустили...
Отвечаю по вопросу как есть.
- открываем excel
- вставить
- загружаем любую картинку, фото, геометрическую фигуру и т. п.
кликаем на нужный Лист - Исходный текст
копируем код:
Sub Blick()
Dim s As Byte
For s = 1 To 5
[D3].Interior.ColorIndex = 4
Application.Wait Now + TimeSerial(0, 0, 1)
[D3].Interior.ColorIndex = 6
Application.Wait Now + TimeSerial(0, 0, 1)
Next
[D3].Interior.ColorIndex = 0
End Sub
возвращаемся на рабочий Лист. Клик правой мышкой по рисунку - Нахначить макрос - Blick - OK
*[D4] - ячейка D4
если надо выделить массив - тогда [D4:F7]
1 to 5 - кол-во миганий
ColorIndex = 4 - зеленый цвет
1 - черн
2 - бел
3 - красн
4 - зел
5 - темносиний
6 - желт
7, 38 - розов ( разнве тона)
8, 33, 42 - голубой
10 - т/зеленый
12 - коричн
15 - серый
22 - оранж
41 - син
можно перебирать до 56
TimeSerial(0, 0, 1) - задержка (0 час, 0 мин, 1 сек)
Сергей Дорошкевич
Спасибо за ответ :-)
Да, мне нужна "напоминалка"
Я скачал файл из темы форума https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=10370 и подогнал под мою задачу :-)
Да, мне нужна "напоминалка"
Я скачал файл из темы форума https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=10370 и подогнал под мою задачу :-)
Похожие вопросы
- Есть в Excel подстановка? Можно сделать в ячейке Excel выбор значений из раскрывающегося списка, как в Access? Как?
- Знатоки Excel подскажите как сделать привязку ячеек
- excel как задать формат ячейки что б я например вес в тоннах забивала 23,45 например а он мне в кг писал? 23450?
- Знатокам Word, Excel. Как сделать при наведении мышки на слово или элемент выпадающее сообщение?
- как сделать мигающую картинку
- Как изменить место ячеек исходя из их содержимого Excel
- Вопр. по Excel - Как заставить ячейку изменять цвет, скажем на красный, через определенный промежуток времени.
- #ЗНАК! - В Excel при вводе в формулы со ссылкой на ячейку в другой таблице в другом каталоге появляется значение #ЗНАК!
- Подскажите, как использовать функцию СЧЕТЕСЛИ в Excel если диапазоп ячеек находится на разных листах.
- в Excel посчитать суммы каждых двух ячеек