Екцел не садржи текст који трепери или трепери као опцију фонта. Међутим, користећи Екцел-ов уграђени Висуал Басиц за апликације, можете користити код да бисте променили боју текста сваког одељка, стварајући ефекат трептања.
Корак 1
Отворите датотеку Мицрософт Екцел 2010 у којој желите да текст трепери. Притисните "Алт" и "Ф11" да отворите ВБА конзолу.
Видео дана
Корак 2
Кликните десним тастером миша на унос „ТхисВоркбоок“ на левој страни ВБА конзоле. Померите миша преко „Инсерт“ и изаберите „Модуле“.
Корак 3
Двапут кликните на опцију „Ова радна свеска“. Копирајте следећи код и налепите га у бели простор на десној страни екрана:
Приватна под Радна свеска_Опен() Блинк Енд Суб
Приватна под Радна свеска_БефореЦлосе (Откажи као Боолеан) НоБлинк Енд Суб
Овај код ће покренути и трепћући текст када отворите ову радну свеску и зауставити трепћући текст када затворите радну свеску, када уметнете код да бисте Екцел-у рекли шта заправо Блинк и НоБлинк значити.
Корак 4
Двапут кликните на „Модул 1“ са листе на левој страни екрана. Поставите курсор на десну страну екрана и унесите следећи ред:
Публиц Тимецоунт Ас Доубле
Ово ствара променљиву под називом "Тимецоунт" коју можете користити у сваком потпрограму.
Корак 5
Притисните ентер да померите курсор на следећи ред и унесите следећи код:
Суб блинк() са овом радном свеском. Радни листови("Схеет1").Распон("А1:А10").Фонт Ако је .ЦолорИндек = 3 Затим .ЦолорИндек = 2 Елсе .ЦолорИндек = 3 Енд Иф Енд Витх Тимецоунт = Сада + ТимеСериал (0, 0, 1) Апликација. ОнТиме Тимецоунт, "Блинк", Труе Енд Суб
Ово ствара потпрограм под називом "Блинк" који ће узроковати да цео текст унутар дефинисаног опсега трепери. Можете да промените опсег од „А1:А10“ у било који опсег који желите, укључујући појединачну ћелију.
Корак 6
Притисните "Ентер" да бисте приступили следећем реду и унесите следећи код:
Суб ноблинк() Ова радна свеска. Радни листови("Схеет1").Распон("А1:А10").Фонт. ЦолорИндек = _ клЦолорИндекАутоматиц Апплицатион. ОнТиме Тимецоунт, "Блинк", Фалсе Енд Суб
Ово ће креирати потпрограм који ће се покренути када затворите радну свеску. Он поново претвара сав текст у црно, тако да неко ко отвори радну свеску без омогућених макроа неће случајно видети ништа у оквирима за текст.
Корак 7
Затворите ВБА конзолу кликом на „Кс“ у горњем десном углу. Кликните на картицу „Датотека“ на врху екрана и изаберите „Сачувај као“. У падајућем пољу изаберите „Радна свеска са омогућеним макроима за Екцел“ и унесите назив радне свеске. Кликните на „Сачувај“.
Корак 8
Затворите Екцел датотеку, а затим је поново отворите. Ваш текст, унутар опсега дефинисаног у макроу, ће почети да трепери. У зависности од ваших безбедносних подешавања, можда ћете морати да кликнете на дугме „Омогући макрое“ на врху екрана да бисте видели текст који трепери.
