Уважаемые гуру! Прошу помощи! Взял на просторах интернета код для мигающей ячейки
Код
Option Explicit
Public dblTimeLine As Double
Sub Blinding()
If Range("h1").Interior.Color = vbRed Then Range("h1").Interior.Color = xlNone Else Range("h1").Interior.Color = vbRed
dblTimeLine = DateAdd("s", 1, Now)
Application.OnTime dblTimeLine, "Blinding"
End Sub
Подскажите как сделать что бы он запускался автоматически при открытии книги?
Чего то не получается. Ругается. Помогите пожалуйста. И кроме того запускался только для данной книги, а то он по всем открытым работает. Спасибо заранее!!
mikervsn, добавьте проверку, что активна именно та самая книга:
Код
Sub Blinding()
If ActiveWorkbook.Name = "Имя_нужной_книги" Then
If Range("h1").Interior.Color = vbRed Then Range("h1").Interior.Color = xlNone Else Range("h1").Interior.Color = vbRed
End If
dblTimeLine = DateAdd("s", 1, Now)
Application.OnTime dblTimeLine, "Blinding"
End Sub
Огромное спасибо Irregular Expression!!! Получилось вставить Ваш код и он работает для конкретной книги!!Огромное спасибо! Извините за назойливость, можете подсказать всё-таки как сделать , что бы запустился автоматически при открытии книги и на конкретный лист (например "Лист1")!Если сможете поправьте пример. Заранее огромное спасибо!!!!
Option Explicit
Public dblTimeLine As Double
Sub Blinding()
If ActiveWorkbook.Name = "1.xlsm" Then
With ThisWorkbook.Worksheets(1)' индекс нужного листа
If .[h1].Interior.Color = vbRed Then .[h1].Interior.Color = xlNone Else .[h1].Interior.Color = vbRed
End With
End If
dblTimeLine = DateAdd("s", 1, Now)
Application.OnTime dblTimeLine, "Blinding"
End Sub
Sub Blinding()
If ActiveWorkbook.Name = "Имя_нужной_книги" Then
With ActiveWorkbook.Worksheets("Лист1")
If .Range("h1").Interior.Color = vbRed Then .Range("h1").Interior.Color = xlNone Else .Range("h1").Interior.Color = vbRed
End With
End If
dblTimeLine = DateAdd("s", 1, Now)
Application.OnTime dblTimeLine, "Blinding"
End Sub
Хотя, как предложил выше Nordheim тоже можно, если нужна привязка не к имени листа, а к его порядковому номеру в книге.
Огромное спасибо ребята Nordheim и Irregular Expression!!! Всё супер!!! Только автоматически при открытии книги так и не мигает. Тут предлагали такую конструкцию
Код
Private Sub Workbook_Open()
Blinding
End Sub
Только видимо руки кривые у меня. Не работает. Помогите, немного осталось до супер результата.
Вот этот код в модуль вставляю и ничего не происходит (я имею ввиду при открытии книги автоматически не мигает, приходится запускать отдельно)
Код
Private Sub Workbook_Open()
Sub Blinding()
If ActiveWorkbook.Name = "Имя_нужной_книги" Then
With ActiveWorkbook.Worksheets("Лист1")
If .Range("h1").Interior.Color = vbRed Then .Range("h1").Interior.Color = xlNone Else .Range("h1").Interior.Color = vbRed
End With
End If
dblTimeLine = DateAdd("s", 1, Now)
Application.OnTime dblTimeLine, "Blinding"
End Sub