|
▼ピスタチオ さん:
>遅くなってすいません
久しぶりですね。忘れられたのかなぁ…と思っていました
>ミチタチコさんFlgとはなんですか?
ごめんなさい・・・変数なんですが、記入が出来ていませんでした。
再度コードを書きました。変数も書いています
標準モジュールに下のコードを貼り付けて
’***************
Dim Flg As Boolean ’これが抜けていました。ご免なさい m( )m 。
Sub フリッカ()
If Flg Then
Range("A5").Interior.ColorIndex = 3
Range("C5").Interior.ColorIndex = 7
Range("B6").Value = "I Love You!!"
Flg = False
Else
Range("A5").Interior.ColorIndex = xlNone
Range("C5").Interior.ColorIndex = xlNone
Range("B6").Value = ""
Flg = True
End If
Application.OnTime Now + TimeValue("00:00:01"), "フリッカ"
End Sub
ThisWorkBookに下のコードを貼り付けてください
’***************
Private Sub Workbook_Open()
フリッカ
End Sub
この状態で一旦名前をつけて保存してください。
後は、このエクセルを開くとフリッカーがシートに現れます。
時間設定は自在に変えられます。(現在1秒間隔で設定しています)
→00:00:01
|
|