A列の一つがH列の枠組みの中にあればH列の該当する数の文字色を赤に変更

A1000までとH1000までランダムに入力されていて
A列の一つがH列の枠組みの中にあればH列の該当する数の文字色を赤に変更
Tを横にした形のが一段一段降りていって検索する感じです。
例）A３の時、H列はH１～H５・・・ここからスタートです。
　　A４の時、H列はH２～H６
　　A５の時、H列はH３～H７
　　A６の時、H列はH４～H８
　　A７の時、H列はH５～H９
　　　　　・
　　　　　・
　　　　　・
H列H１～H５の中にA３の同じ数字があれば（あたっとしてH列H２）を赤にする。
H列H２～H６の中にA４の同じ数字があれば（あたっとしてH列H５）を赤にする。
　　　　　・　
　　　　　・
　　　　　・
上記のマクロを教えてもらえないでしょうか？お願い致します。

質問者からの補足コメント

• [条件付き書式]もマクロもサッパリポンですよ。[条件付き書式]何ぞ何のことやら。いっっぱんの本に載っている、マクロなら出来ますけど、上記のような一つずつ下に向かって検索していくのは普通素人には解らないと思います。解るのであればここに投稿しませんよ。同じ波動を感じます。私は文面から打ち込んだ人の波動をある程度読み取る事ができます。今は呪い返し・想念返しのエネルギーは使っていませんがよく似たのを使っています。

  No.1の回答に寄せられた補足コメントです。 補足日時：2017/11/23 08:51

• 貴方の答えは議論するためのものであって私の質問の答えではないと思いますが！”議論を目的とする投稿などはできません”とされているのに上記の答えはいかがなものかと！

    補足日時：2017/11/23 09:55

No.2 ベストアンサー 回答者： tom04 回答日時： 2017/11/23 16:12

こんにちは！

Sub Sample1()
Dim i As Long, c As Range, myRng As Range
Application.ScreenUpdating = False
Range("H:H").Font.ColorIndex = xlAutomatic
For i = 3 To Cells(Rows.Count, "A").End(xlUp).Row
Set myRng = Cells(i - 2, "H").Resize(5)
If WorksheetFunction.CountIf(myRng, Cells(i, "A")) > 0 Then
For Each c In myRng
If c = Cells(i, "A") Then
c.Font.ColorIndex = 3
End If
Next c
End If
Next i
Application.ScreenUpdating = True
MsgBox "完了"
End Sub

こんな感じをお望みなのでしょうか？m(_ _)m

この回答へのお礼

うれしいです。ありがとうございました。もしよければ、私のサイトからhttps://sites.google.com/site/ruriokami/のshutdown.EXEダウンロードして使ってください！これは、私がいつも使っているソフトです。なかなか便利ですよ！もともとウインドウズにあるソフトで時間を計算上０秒でshutdown出来るものです。実際はいろんな描画あり数秒ありますけど。ありがとうございました。(^^)

お礼日時：2017/11/23 21:39

No.1 回答者： mike_g 回答日時： 2017/11/23 08:18

[条件付き書式]だけなら“御茶の子さいさい”で出来るけど、それをマクロ化するのが分からない(あるいはマクロはサッパリポン)ということですか？

それとも[条件付き書式]もマクロもサッパリポンと？

Excel で、貴方が出来ることに何がありますか？