Дополнить макрос мигания ячеек с отрицательными значениями

@fazli · Регистрация: 24.12.2012

Author24 — интернет-сервис помощи студентам

вместо ячейки А1 нужно написать функцию для выделенных ячеек с отрицательными элементами, например , дана таблица с положительными и отрицательными числами, и ячейки с отрицательными числами должны мигать.

Visual Basic

Sub BlinkingCell()
 
   Static intCalls As Integer  ' Счетчик количества миганий
    ' Если ячейка мигала менее 10 раз, то изменим _
    в очередной раз ее цвет
   If intCalls < 10 Then
      intCalls = intCalls + 1
      ' Определение, какой цвет необходимо установить
      If Range("A1").Interior.Color <> RGB(255, 0, 0) Then
         ' Цвет ячейки не красный, так что теперь назначим _
          именно красный цвет
         Range("A1").Interior.Color = RGB(255, 0, 0)
      Else
         ' Назначим ячейке зеленый цвет
         Range("A1").Interior.Color = RGB(0, 255, 0)
      End If
 
      ' Эту процедуру необходимо вызвать через 5 секунд
      Application.OnTime Now + TimeValue("00:00:05"), "BlinkingCell"
   Else
      ' Хватит мигать
      Range("A1").Interior.ColorIndex = xlNone
      intCalls = 0
   End If
End Sub

@Казанский · 24.12.2012, 10:26

Работает с выделенным диапазоном. Если надо работать с фиксированным диапазоном, замените Selection на Range(...).

Visual Basic

Sub BlinkingCell()
 
   Static intCalls As Integer  ' Счетчик количества миганий
   Static r As Range, c As Range
   If r Is Nothing Then
      For Each c In Selection
        If c < 0 Then
          If r Is Nothing Then Set r = c Else Set r = Union(r, c)
        End If
      Next
      If r Is Nothing Then
        MsgBox "В выделенном диапазоне нет отрицательных чисел!", vbExclamation
        Exit Sub
      End If
    End If
    ' Если ячейка мигала менее 10 раз, то изменим _
    в очередной раз ее цвет
   If intCalls < 10 Then
      intCalls = intCalls + 1
      ' Определение, какой цвет необходимо установить
      If r.Interior.Color <> vbRed Then
         ' Цвет ячейки не красный, так что теперь назначим _
          именно красный цвет
         r.Interior.Color = vbRed
      Else
         ' Назначим ячейке зеленый цвет
         r.Interior.Color = vbGreen
      End If
 
      ' Эту процедуру необходимо вызвать через 5 секунд
      Application.OnTime Now + TimeValue("00:00:05"), "BlinkingCell"
   Else
      ' Хватит мигать
      r.Interior.ColorIndex = xlNone
      intCalls = 0
      Set r = Nothing
   End If
End Sub

Добавлено через 43 минуты
Немного оптимизировал

Visual Basic

Sub BlinkingCell()
 
   Static intCalls As Integer  ' Счетчик количества миганий
   Static r As Range, c As Range
   If intCalls = 0 Then
      For Each c In Selection
        If c < 0 Then
          If r Is Nothing Then Set r = c Else Set r = Union(r, c)
        End If
      Next
      If r Is Nothing Then
        MsgBox "В выделенном диапазоне нет отрицательных чисел!", vbExclamation
        Exit Sub
      End If
    End If
    ' Если ячейка мигала менее 10 раз, то изменим _
    в очередной раз ее цвет
   If intCalls < 10 Then
      intCalls = intCalls + 1
      ' Определение, какой цвет необходимо установить
      r.Interior.Color = IIf(intCalls Mod 2, vbRed, vbGreen)
 
      ' Эту процедуру необходимо вызвать через 5 секунд
      Application.OnTime Now + #12:00:05 AM#, "BlinkingCell" 'вводить #0:0:5#
   Else
      ' Хватит мигать
      r.Interior.ColorIndex = xlNone
      intCalls = 0
   End If
End Sub

Новые блоги и статьи
Как сделать, чтобы grep выводил строки до и после найденной hw_wired 25.01.2025 Утилита grep стала незаменимым инструментом для поиска и фильтрации информации в Unix-подобных операционных системах. Эта командная утилита позволяет осуществлять поиск строк, соответствующих. . .	Как клонировать определенную ветку в Git bytestream 24.01.2025 Одной из ключевых функций Git является возможность клонирования веток, что позволяет создавать локальные копии удаленных репозиториев и работать с определенными версиями проекта. Этот механизм. . .	Как в цикле обойти строки DataFrame в Pandas Python bytestream 24.01.2025 DataFrame представляет собой одну из основных структур данных в библиотеке Python Pandas, которая организует информацию в виде двумерной таблицы с строками и столбцами. Эта структура данных особенно. . .	Как получить имя текущей ветки в Git bytestream 24.01.2025 При работе с Git часто возникает необходимость определить имя текущей ветки, в которой ведется разработка. Знание текущей ветки является критически важным аспектом для эффективного управления. . .	Как отсортировать массив объектов по значению поля объекта в JavaScript bytestream 24.01.2025 При разработке веб-приложений на JavaScript разработчики часто сталкиваются с необходимостью работать с массивами объектов. Эти структуры данных представляют собой упорядоченные наборы элементов, где. . .	Ошибка "src refspec master does not match any" при пуше коммита в Git bytestream 24.01.2025 При работе с системой контроля версий Git разработчики нередко сталкиваются с различными ошибками, одной из которых является сообщение "src refspec master does not match any". Эта ошибка возникает. . .
Как округлить не более двух цифр после запятой в JavaScript bytestream 24.01.2025 При работе с числами в JavaScript разработчики часто сталкиваются с необходимостью округления десятичных значений до определенного количества знаков после запятой. Это особенно важно при работе с. . .	Как сделать UPDATE из SELECT в SQL Server hw_wired 24.01.2025 В современных системах управления базами данных операции обновления и выборки данных являются фундаментальными инструментами для работы с информацией. SQL Server предоставляет мощные команды UPDATE и. . .	Как вставить элемент в массив на указанный индекс в JavaScript hw_wired 24.01.2025 Массивы являются одной из фундаментальных структур данных в JavaScript, предоставляющей разработчикам мощный инструмент для хранения и управления упорядоченными наборами данных. Они позволяют хранить. . .	Чем отличаются HashMap и Hashtable в Java hw_wired 24.01.2025 В мире разработки на Java существует множество инструментов для работы с коллекциями данных, и среди них особое место занимают структуры данных для хранения пар ключ-значение. HashMap и Hashtable. . .	Как конвертировать видео в GIF hw_wired 24.01.2025 В современном мире анимированные изображения стали неотъемлемой частью цифровой коммуникации. Формат GIF (Graphics Interchange Format) представляет собой особый тип файлов, который позволяет. . .	Как скопировать текст в буфер обмена на JavaScript во всех браузерах hw_wired 24.01.2025 Копирование текста в буфер обмена стало неотъемлемой частью современных веб-приложений, значительно улучшающей пользовательский опыт и упрощающей работу с контентом. В эпоху активного обмена. . .

	24.12.2012, 10:26

Опции темы