Note: The other languages of the website are Google-translated. Back to English

Як змигнути або зминути текст вказаної комірки в Excel?

Для того, щоб зробити певну клітинку видатною на вашому аркуші, як щодо миготіння тексту цієї комірки? У цій статті буде показано метод мигання тексту певної комірки в Excel.

Блимає або блимає текст вказаної комірки з кодом VBA


Блимає або блимає текст вказаної комірки з кодом VBA

Будь ласка, виконайте наступні дії, щоб блимати текстом вказаної комірки в Excel.

1. прес інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте та вставте наступний код у вікно коду.

Код VBA: Блимає текст зазначеної комірки в Excel

Sub StartBlink()
'Updated by ExtendOffice 20181010
    Dim xCell As Range
    Dim xTime As Variant
      On Error Resume Next
    Set xCell = Range("Sheet2!A1")
  On Error Resume Next
   
        If xCell.Font.Color = vbRed Then
            xCell.Font.Color = vbWhite
        Else
            xCell.Font.Color = vbRed
        End If
    xTime = Now + TimeSerial(0, 0, 1)
    Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True
End Sub

примітки: у цьому коді VBA аркуш2 та А1 вказують, що текст у комірці А1 аркуша2 буде блимати в поточній книзі.

3 Натисніть кнопку інший + Q клавіші одночасно, щоб закрити Microsoft Visual Basic для додатків вікна.

Тепер вам потрібна кнопка для запуску та зупинки мигання.

4. клацання Розробник > Insert > Кнопка (контроль форми). Дивіться знімок екрана:

5. Намалюйте на своєму аркуші кнопку, а потім - Призначити макрос спливає діалогове вікно, натисніть StartBlink в Macro ім'я , а потім клацніть на OK кнопку. Дивіться знімок екрана:

6. Клацніть правою кнопкою миші на вставлену кнопку та натисніть редагування тексту з меню, що клацне правою кнопкою миші. Потім змініть текст кнопки на потрібний вам текст, наприклад, Пуск / Зупинка блимає.

Відтепер при натисканні на кнопку текст клітинки А1 починає блимати. І при повторному натисканні кнопки текст комірки А1 перестає блимати.


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (20)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Цей код не зупинить блимання, він застряг. Що я роблю не так?
Цей коментар був мінімізований модератором на сайті
Чи можна застосувати цей блимаючий текст до умови. тобто якщо на одному робочому аркуші досягнуто або наближається дата, клітинка на обкладинці/аркуші меню блимає
Цей коментар був мінімізований модератором на сайті
Як він може змусити випадкову клітинку блимати в певному діапазоні?
Цей коментар був мінімізований модератором на сайті
Працює... Чудово
Цей коментар був мінімізований модератором на сайті
Як включити цей код у наведене нижче, щоб мені не потрібні були кнопки, але мигання починалося автоматично під час відкриття книги?

Приватна додаткова робоча книга_Open()

' код тут

End Sub
Цей коментар був мінімізований модератором на сайті
Привіт Дейл!
Будь ласка, помістіть цей код у вікно ThisWorkbook.

«Помістіть у вікно «Цей зошит».
Приватна додаткова робоча книга_Open()
StarBlink
End Sub

Введіть наведений нижче код у вікно модуля. А потім збережіть книгу як книгу Excel з підтримкою макросів. Сподіваюся, що зможу допомогти. Дякую за коментар.

'Почніть моргати
Sub StarBlink()
Dim xCell As Range
Dim xTime як варіант
Встановити xCell = діапазон ("A1")
З ThisWorkbook.Worksheets("Sheet1").Range("A1").Font
Якщо xCell.Font.Color = vbRed Тоді
xCell.Font.Color = vbWhite
Ще
xCell.Font.Color = vbRed
End If
Кінець з
xTime = Зараз + TimeSerial(0, 0, 1)
Application.OnTime xTime, "" & ThisWorkbook.Name & "!StarBlink", , True
End Sub
'Припиніть моргати
Sub StopBlink()
xTime = Зараз + TimeSerial(0, 0, 1)
Application.OnTime EarliestTime:=xTime, Procedure:="" & ThisWorkbook.Name & "!StarBlink", Schedule:=False
End Sub
Цей коментар був мінімізований модератором на сайті
привіт,
він працює добре, але коли я захищаю свій аркуш, мигання не працює, показуючи повідомлення про налагодження.
Цей коментар був мінімізований модератором на сайті
Добрий день,
Будь ласка, спробуйте наступний код.

Sub StartBlink()
Dim xCell As Range
Dim xTime як варіант
On Error Resume Next
Встановити xCell = діапазон ("A1")
On Error Resume Next

Якщо xCell.Font.Color = vbRed Тоді
xCell.Font.Color = vbWhite
Ще
xCell.Font.Color = vbRed
End If
xTime = Зараз + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True
End Sub
Цей коментар був мінімізований модератором на сайті
Працює. добре
Але після захисту мого аркуша LOCK & Hidden (крім блимання клітинки) він не працює.
Будь ласка, допоможіть мені вирішити цю проблему.
Цей коментар був мінімізований модератором на сайті
МАНТЕБ ГАН
Цей коментар був мінімізований модератором на сайті
Як змінити це на лист 1?
Цей коментар був мінімізований модератором на сайті
Привіт, Сем,
Якщо ви хочете, щоб клітинка A1 на аркуші 1 або іншому конкретному робочому аркуші блимала, додайте "Аркуш1!" або іншу назву робочого аркуша перед адресою осередку. Дивіться рядок коду нижче:

Встановіть xCell = Діапазон("Аркуш1!A1")
Цей коментар був мінімізований модератором на сайті
привіт, мені потрібна допомога з таблицями Google..

Мені потрібен весь рядок, щоб блимати, якщо F3:F1001 містить "STAT". весь рядок має бути оранжевим, але також блимати, доки не буде встановлено прапорець у стовпці W3:W1001.

Це можливо? Ви можете допомогти? будь ласкаеееееееее
Цей коментар був мінімізований модератором на сайті
Привіт Мекка,
Вибачте, не можу вам з цим допомогти. Дякуємо за коментар.
Цей коментар був мінімізований модератором на сайті
при захисті аркуша цей код не працює
Цей коментар був мінімізований модератором на сайті
не працює,

Будь ласка, допоможіть
Цей коментар був мінімізований модератором на сайті
як зробити так, щоб конкретна клітинка блимала, що містила лише певний текст?
Цей коментар був мінімізований модератором на сайті
як я можу створити миготливе блимання для мого табеля робочого часу. де клітинка містить час понад 10 годин. будь ласка, запропонуйте
Цей коментар був мінімізований модератором на сайті
привіт jass
Наступний код VBA може вирішити вашу проблему. Будь ласка, спробуйте.
Не забудьте змінити назву аркуша та діапазон годин у коді.

Sub StartBlink()
'Updated by ExtendOffice 20220707
Dim xCell As Range
Dim xTime As Variant
Dim xRg As Range
Dim xWb As Workbook
On Error Resume Next
Set xCell = Range("'blinking cells'!D2:E27") 'If there are spaces in your sheet name, enclose the sheet name in single quotes. If no space exists, enter the sheet name without the signe quotes
'On Error Resume Next
For Each xRg In xCell
If xRg >= TimeValue("10:00:00") Then
If xRg.Font.Color = vbRed Then
xRg.Font.Color = vbWhite
Else
xRg.Font.Color = vbRed
End If
Else
xRg.Font.Color = vbBlack
End If
Next
Set xWb = xCell.Worksheet.Parent
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & xWb.Name & "'!StartBlink", , True
End Sub
Цей коментар був мінімізований модератором на сайті
Привіт, мені потрібно зробити те саме для повторюваного значення клітинки у вибраному стовпці, де значення клітинки блиматиме, якщо повторюване значення з’явилося в Excel
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця