Как сделать мигающий текст в excel
Одним из революционных нововведений в крайней версии Microsoft Excel 2010 стали инфокривые sparklines - миниграфики, помещающиеся внутри ячеек и наглядно отображающие динамику числовых данных:
Чтобы создать подобные миниграфики, нужно выделить ячейки, куда мы хотим их поместить и воспользоваться кнопками группы Спарклайны (Sparklines) с вкладки Вставка (Insert) :
В открывшемся диалоговом окне нужно задать диапазон исходных данных и диапазон вывода:
Созданные миниграфики можно всячески форматировать и настраивать с помощью динамической вкладки Конструктор (Design) :
В частности, можно легко поменять цвет линий и столбцов спарклайна и выделить особыми цветами минимальные и максимальные значения:
Поскольку спарклайн не является отдельным графическим объектом, а выступает, по сути, в роли фона ячейки, то он нисколько не помешает ввести в ячейку текст, числа или другую информацию. Это открывает простор для фантазии - если немного пошаманить с выравниванием введенного текста, шириной и высотой ячейки, то можно достичь интересных результатов:
Что делать, если у вас пока старая версия Excel? Или нужен тип графика, которого нет в наборе спарклайнов? Переходим к следующим способам!
Способ 2. Дополнительные надстройки для микрографиков
На самом деле, идея подобных графиков витала в воздухе уже достаточно давно. Еще для 2003 версии Excel существовало несколько надстроек с подобным функционалом, самым известными из которых были замечательная бесплатная Sparklines Эдварда Тафта и и платные BonaVista microcharts (169$) и Bissantz SparkMaker (200$). Да и я в свое время тоже пытался сделать что-то подобное в надстройке PLEX.
Если брать в качестве примера бесплатную надстройку Sparklines, то после ее подключения мы получим новую вкладку (или панель инструментов) примерно такого вида:
Как легко заметить, эта надстройка умеет строить заметно больше трех типов диаграмм :)
Единственный минус - надстройку нужно будет установить на всех компьютерах, где вы планируете работать с файлом, содержащим такие диаграммы.
Способ 3. Повтор символов N-раз
"Бюджетным вариантом" одномерных микрографиков являются повторяющиеся однотипные символы, имитирующие линейчатую диаграмму. Для этого можно воспользоваться текстовой функцией ПОВТОР (REPT) , которая умеет выводить в ячейку любой заданный символ нужное количество раз. Для вывода нестандартных символов (зная их код) можно использовать функцию СИМВОЛ (CHAR) . В общем и целом это выглядит так:
Символ с кодом 103 - черный прямоугольник шрифта Webdings, поэтому не забудьте установить этот шрифт для ячеек C2:C12. Также можно поиграться с символами других шрифтов, например в столбце Е использован символ с кодом 110 из шрифта Wingdings.
Способ 4. Макросы
Способ представляет собой улучшенный предыдущий вариант, где набор повторяющихся символов (используется знак "|") создает не формула, а простая пользовательская функция на VBA. Причем для каждой ячейки создается отдельный столбец, т.к. функция использует символ переноса строки после каждого числа - выглядит это примерно так:
Чтобы использовать этот трюк у себя в файле, открываем редактор VBA (Alt+F11), добавляем новый модуль в книгу (меню Insert - Module) и копируем туда код функции NanoChart:
Затем вставляем функцию NanoChart в нужные ячейки, указывая в качестве аргументов числовые данные, как на рисунке выше. Для получившихся ячеек с микрографиками необходимо включить перенос по словам и поворот на 90 градусов через меню Формат - Ячейки - Выравнивание (Format - Cells - Alignment) . Константа MaxSymbols задает длину максимально высокого столбца в минигистограмме.
Теперь в мастере функций в категории Определенные пользователем появилась новая функция LineChart c двумя аргументами - диапазоном и кодом цвета графика. Если ее вставить в пустую ячейку, например, справа от числовой строки и скопировать затем, как обычно, на весь столбец, то получим весьма симпатичное отображение числовых данных в виде миниграфиков:
Рассмотрим достаточно интересный трюк, с помощью которого можно заставить мигать (то есть попеременно изменять цвета) любую ячейку в течение некоторого промежутка времени.
Предположим, что нам необходима ячейка, которая 10 раз каждые 5 секунд будет изменять цвет фона с красного на зеленый. Для решения этой задачи воспользуемся следующим макросом (листинг 3.75).
Листинг 3.75. Мигание ячейки
Static intCalls As Integer ‘ Счетчик количества миганий
‘ Если ячейка мигала менее 10 раз, то изменим _
в очередной раз ее цвет
intCalls = intCalls + 1
‘ Определение, какой цвет необходимо установить
If Range(«A1»).Interior.Color RGB(255, 0, 0) Then
‘ Цвет ячейки не красный, так что теперь назначим _
именно красный цвет
Range(«A1»).Interior.Color = RGB(255, 0, 0)
‘ Назначим ячейке зеленый цвет
Range(«A1»).Interior.Color = RGB(0, 255, 0)
‘ Эту процедуру необходимо вызвать через 5 секунд
Application.OnTime Now + TimeValue(«00:00:05»),
После запуска макроса BlinkingCell будет мигать ячейка Al. Путем внесения соответствующих изменений в приведенный макрос можно регулировать продолжительность цикла и изменять цвета фона по своему усмотрению.
2 Окт 2018 00:51:03
29 Янв 2017 17:28:40
28 Июн 2018 15:25:11
21 Сен 2018 06:21:34
1 Окт 2018 21:40:36
28 Сен 2018 09:07:46
1 Окт 2018 23:31:37
1 Окт 2018 11:22:35
Сейчас на форуме (гостей: 389, пользователей: 2) ,
Сегодня отмечают день рождения (48), (36), (34), (51), (44), (27)
Приняло участие в обсуждении: 31748
Всего тем: 105606
Как сделать в excel мигающую ячейку
В разделе Программное обеспечение на вопрос Эксель Можно ли строку или текст сделать мигающим? заданный автором Дмитрий Карачевцев лучший ответ это Мерцающий текст в Excel можно получить лишь с помощью небольшой макрокоманды.
Допустим, вы хотите, чтобы мерцала ячейка A1. В меню Tools (Сервис) выберите пункты Macro (Макрос) и Visual Basic Editor (Редактор Visual Basic). На дереве в левой панели щелкните на VBAProject правой клавишей мыши и в раскрывшемся меню выберите пункты Insert (Вставка) и Module (Модуль). Теперь наберите и вставьте в модуль следующий текст:
Public NextFlash As Double
Public Const FR As String = «Sheet1!A1»
Sub StartFlashing ()
If Range (FR). Interior. ColorIndex = 3 Then
Range (FR). Interior. ColorIndex = xlColorIndexNone
Else
Range (FR). Interior. ColorIndex = 3
End If
NextFlash = Now + TimeSerial (0, 0, 1)
Application.OnTime NextFlash, «StartFlashing», , True
End Sub
Sub StopFlashing ()
Range (FR). Interior. ColorIndex = xlColorIndexNone
Application. OnTime NextFlash, «StartFlashing», , False
End Sub
Разместите окна VBA и Excel таким образом, чтобы вам была видна ячейка A1 на листе Sheet1, затем щелкните в тексте макрокоманды StartFlashing и запустите его нажатием на клавишу F5. Ячейка мерцает! Чтобы прекратить мерцание, щелкните на тексте макрокоманды StopFlashing и нажмите клавишу F5.
Как же работают эти макрокоманды? Константа FR определяет диапазон мерцающих ячеек; изменив ее значение, вы можете вызвать мерцание различных ячеек. Если фоновый цвет ячеек мерцающего диапазона красный, макрокоманда меняет его на обычный, если нет — она меняет цвет фона на красный. Затем через секунду макрокоманда вновь запускается благодаря имеющемуся в программе методу OnTime.
Вот такой текст в ячейке. Можно ли как нибудь сделать, что бы эти Мельдунги мигали?
Простите, а зачем ?
Gambrinus, мигание можно осуществить в Excel исключительно средствами Visual Basic for Applications (VBA).
Стандартные функции такой возможности не дают. Ими можно только однозначно определить цвет текста или ячейки(пример — полож. числа — черным, отрицательные — красным).
Для тех, кто много работает с Excel, помимо расширенных функций Excel также используются языки программирования VBA и Excel. VBA в Excel означает Visual Basic для приложений. Для написания макросов мы используем язык программирования VBA. Макросы — это законченные программы, которые автоматически выполняют написанные вами команды. И если вы хотите создать эффект флэш-текста в Excel, вам нужно использовать этот VBA.
Благодаря этому мы можем выделить читателям определенный контент в листе данных Excel. В частности, пользователи могут изменить цвет мигающего шрифта с помощью кода. В следующей статье вы узнаете, как создавать мигающие буквы в Excel.
Инструкция по созданию мигающих букв в Excel
Откройте файл Excel и нажмите Alt + F11, чтобы открыть код Excel VBA.
В диалоговом окне Microsoft Visual Basic для пользователей приложений нажмите «Вставить» и выберите «Модуль», как показано ниже.
Отобразите интерфейс Moude, чтобы вы могли вставить приведенный ниже код в интерфейс.
Sub StartBlink ()
Dim xCell As Range
Dim xTime как вариант
Установить xCell = Range («A1»)
С помощью ThisWorkbook.Worksheets («Sheet1»). Диапазон («А1»). Шрифт
Если xCell.Font.Color = vbRed Тогда
xCell.Font.Color = vbWhite
Еще
xCell.Font.Color = vbRed
Конец, если
Конец с
xTime = Сейчас + TimeSerial (0, 0, 1)
Application.OnTime xTime, «‘» & ThisWorkbook.Name & «‘! StartBlink» ,, True
Конец подписки
Обратите внимание, что вы должны скопировать приведенный выше код в Блокнот, а затем отредактировать его снова. Положение ячейки и рабочего листа — это положение текста, который вы хотите создать для создания эффекта вспышки. В тексте, который написан в ячейке A1 и на листе 1. Пользователи могут вводить любую ячейку и лист, которые они хотят.
Нажмите Alt + Q, чтобы закрыть диалоговое окно.
В правильном положении ячейки и листа в созданном вами коде введите контент, который вы хотите создать в Excel мигающим эффектом.
Щелкните вкладку «Разработчик», затем выберите элемент «Вставить» ниже и щелкните значок «Кнопка» (элемент управления «Форма»).
Нарисуйте любой квадрат в интерфейсе Excel, чтобы кнопка активировала эффект мигания для слова.
Как только вы отпустите кнопку мыши, откроется диалоговое окно «Назначить макрос». Здесь пользователю нужно будет выбрать 2 пункта:
- Имя макроса: вы выбираете StartBlink.
- Печатные макросы: щелкните This Worknook в списке.
Нажмите ОК, чтобы сохранить настройки.
Чтобы изменить текст в новом фрейме, щелкните правой кнопкой мыши и выберите «Редактировать текст».
Введите любой контент, который вы хотите, в этот фрейм и нажмите Enter, чтобы сохранить его. Если вы хотите, пользователи все равно могут изменить шрифт, размер шрифта для этой кнопки.
Конечный результат при нажатии на эту кнопку автоматически мигает текстом в соответствии с цветом, который мы установили в коде, здесь красный и белый.
Если вы хотите, чтобы слово мигало с зеленого на красный, щелкните вкладку «Разработчик» и выберите «Visual Basic».
Затем измените цвет кода с белого (белый) на синий (синий), как показано ниже. Также нажмите Alt + Q, чтобы сохранить этот новый код.
Слово «результаты» будет мигать с красного на синий.
С помощью VBA в Excel вы добавили способ создания выделения содержимого в данных с помощью эффекта автоматического мигания. Обратите внимание, что нам нужно ввести правильный код, особенно скобки в коде, чтобы избежать ошибки после применения кода.
Excel для Microsoft 365 Word для Microsoft 365 PowerPoint для Microsoft 365 Excel 2021 Word 2021 PowerPoint 2021 Excel 2019 Word 2019 PowerPoint 2019 Excel 2016 Word 2016 PowerPoint 2016 Excel 2013 Word 2013 PowerPoint 2013 Excel 2010 Word 2010 PowerPoint 2010 Еще. Меньше
В Microsoft Word, Excel и PowerPoint можно применять эффекты свечения и сияния к фигурам, тексту и другим объектам. Чтобы просмотреть параметры свечения и сияния:
Выберите объект, который вы хотите отформатирование.
В области Средства рисованияна вкладке Формат нажмите кнопку Эффекты фигуры или Текстовые эффекты.
Подсветка
Заранее заранее. Чтобы применить один из наиболее распространенных вариантов свечения, нажмите кнопку Заранее ивыберите нужный вариант.
Цвет. Чтобы создать пользовательский цвет для свечения, щелкните Цвет и выберите нужный цвет. Чтобы изменить цвет, который не входит в Цвета темы, выберите команду Другие цвета, а затем выберите готовый вариант на вкладке Обычные или создайте собственный на вкладке Спектр. Пользовательские цвета и цвета на вкладке Обычные не обновляются при последующем изменении тема документа.
Размер. Чтобы задать размер свечения, переместили ползунок Размер или введите число в поле рядом с ползуноком. Чем больше число, тем больше размер свечения.
Прозрачность. Чтобы указать, какая часть свечения видна, переместили ползунок Прозрачность или введите число в поле рядом с ползуноком. Вы можете изменять процент прозрачности от 0 (непрозрачная, по умолчанию) до 100 % (полностью прозрачный).
Soft Edges
Заранее заранее . Чтобы применить один из наиболее распространенных сжатий, нажмите кнопку Заранее ивыберите нужный.
Размер. Чтобы задать размер слажмого края, переместили ползунок Размер или введите число в поле рядом с ползуноком. Чем больше число, тем мягче края.
Совет: Чтобы удалить эффект свечения или сжатия, нажмите кнопку Заранее ивыберите нет свечения или Без степенных краев.
При изменении параметров в этой области или диалоговом окне изменения немедленно применяются к рисунку, фигуре, тексту или другим объект, что делает просмотр эффектов изменений рисунка без закрытия области или диалогового окна. Однако поскольку изменения мгновенно применяются, нажать кнопку Отмена в этой области или диалоговом окне невозможно. Чтобы удалить изменения, нажимайте кнопку Отменить на панели быстрого доступа для каждого из них.
Вы можете одновременно отменить несколько изменений, внесенных в одно диалоговое окно, если между ними не были внесены изменения в другое диалоговое окно.
Вы можете переместить области или диалоговое окно, чтобы одновременно видеть рисунок, фигуру, текст или другой объект, а также окно или диалоговое окно.
Если вы хотите заставить фигуру на листе мигать снова и снова, вам может помочь метод, описанный в этой статье.
Сделайте фигуру, мигающую снова и снова, с помощью кода VBA
Удивительный! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!
Экономьте 50% своего времени и сокращайте тысячи щелчков мышью каждый день!
Чтобы фигура на листе мигала, сделайте следующее.
1. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте код VBA в окно кода.
Код VBA: заставьте фигуру на листе снова и снова мигать
Заметки:
1). в коде, новинка это имя формы, которую вы заставите мигать. Пожалуйста, измените его на свой собственный.
3. нажмите другой + Q ключи вместе, чтобы выйти из Microsoft Visual Basic для приложений окно.
4. Вставьте кнопку в рабочий лист, нажав разработчик > Вставить > Кнопка (элемент управления формой) как показано ниже.
5. Во всплывающем Назначить макрос диалоговое окно, выберите Flash в Имя макроса поле, а затем щелкните OK кнопку.
6. Затем измените отображаемый текст на кнопке по своему усмотрению. В этом случае я изменяю отображаемый текст на Начать мигать, как показано на скриншоте ниже.
7. Повторите шаги 4 и 5 выше, чтобы вставить новую кнопку и назначить StopIt макрос к этой кнопке.
8. Измените отображаемый текст этой новой кнопки.
Затем вы можете увидеть, как две кнопки, которым назначены разные макросы, вставлены в рабочий лист. Смотрите скриншот:
С этого момента при нажатии на кнопку «Начать мигать» фигура начинает мигать разными цветами. Если вы хотите выключить вспышку, нажмите кнопку «Не мигать».
Читайте также: