セル背景や文字を点滅させる方法

#1 #3 です。

＞マクロについて勉強したい...

とのことでしたね。コメントを多く入れておきましたので、ご参考下さい。
また、さらに改造して、「A列にデータを入力すると」になっています。


【以下コード】

'API宣言---魔法の呪文みたいなもの
Private Declare Sub Sleep Lib "KERNEL32.dll" _
　　(ByVal dwMilliseconds As Long)

'EXCEL既定のイベント
Private Sub Worksheet_Change(ByVal Target As Range)
　　
　　'セルが変化したら、以下のコードを実行
　　'変化のあったセルは　Target　であらわされる
　　
　　'変数の宣言
　　Dim i As Integer
　　Dim ColorDat
　　
　　'カラーインデックス定義
　　ColorDat = Array(15, 48, 16, 56, 16, 48, 15)
　　
　　'エラートラップ
　　On Error Resume Next
　　'変化のあったセル＝TargetがA列(列番号＝1）であれば
　　'End If までの挟まれたコードを実行
　　If Target.Column = 1 Then
　　　　'そのセル背景色を
　　　　With Target.Interior
　　　　　　'配列ColorDatに書かれたデータ数だけ繰り返す
　　　　　　For i = 0 To UBound(ColorDat)
　　　　　　　　'ColorDatのi番目のカラー番号でセル背景色を塗る
　　　　　　　　.ColorIndex = ColorDat(i)
　　　　　　　　'API 30ミリ秒 Wait
　　　　　　　　Sleep 30
　　　　　　Next i
　　　　　　'最後にセルの背景色を解除
　　　　　　.ColorIndex = xlNone
　　　　End With
　　End If

End Sub

＞私がマクロやVBAに興味を持ったきっかけでしたものでその方法を初めに知りたくて皆様にお願い致しました。

＞点滅を速くできるのであればまさに私の探し求めてた事が実現できます。

では。

色の書き換えにWAIT処理を入れる必要があるのですが、EXCELのWAITは１秒単位でしかかけられません。
この場合、VBA初心者には敷居が高いのですが API を使います。とは言え簡単な部類です。

#2 macchan1 さんのコードを改造し、セルがフラッシュするように見せるものです。
Sleepのあとの数字で、スピードを調整します。

同じく、セルに10以下の数字が入力されるとイベント発生です。
頑張って下さいね（^^）

'API宣言
Private Declare Sub Sleep Lib "KERNEL32.dll" _
　　(ByVal dwMilliseconds As Long)

Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim i As Integer
　　Dim ColorDat
　　
　　If Target.Value < 10 Then
　　'カラーインデックス定義
　　ColorDat = Array(15, 48, 16, 56, 16, 48, 15)
　　
　　For i = 0 To UBound(ColorDat)
　　　　Target.Interior.ColorIndex = ColorDat(i)
　　　　Sleep 50 'API 50 msec Waitします
　　Next i
　　Target.Interior.ColorIndex = xlNone

　　End If
End Sub

あまりお奨めできませんがマクロの勉強ということなので例を考えてみました。

例えばフォント色を変えるイベントマクロで入力した数字によって点滅のように見せることができます。

シート名を右クリックして「コードの表示」から以下のコードをコピーペーストしてみてください。
10未満の数を入力したときフォントが点滅しているように見えます。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
If Target.Value < 10 Then
For i = 1 To 5
Target.Font.ColorIndex = 2
Application.Wait Now() + TimeValue("00:00:01")
Target.Font.ColorIndex = 0
Application.Wait Now() + TimeValue("00:00:01")
Next
End If
End Sub

EXCELにはセル背景や文字を点滅させる方法はありません。

VBAで擬似的にはできないこともありませんが。

1.　フラッシュの原理として
　　A）セルの背景色書き換え
　　B）文字色の書き換え
　　のマクロを書く
2.　Ontimeで数秒ごとにマクロ実行

と単純です。例えば、文字なら「黒」「白」を一定時間ごとに色を切り替えれば、点滅しているように見えます。

しかし、この場合常に数秒置きにマクロが実行されることになりますので、EXCELがまともに動作しなくなります。したがって、やめた方がよいでしょう。「目立たせたい」のであれば、「色使いやフォントの使い方によるデザイン」で勝負すべきです。

＞マクロについて勉強したい...

とのことですが、セルや文字の点滅ではなく、別のテーマにした方が良いと正直思います。