マクロ 指定の書式に合致したら〇をつける

質問

添付のように条件に合致したら〇を付けるマクロを教えてください
A~F列、H列、それぞれに条件付き書式が設定してあり、合致すると赤か黒の太字になるようにしてあります。
A~F列に赤or黒フォント太字の数字があり、かつH列に赤の太字の文字列がある場合にJ列に〇を付けたいです。
実際には、300行くらいまであります。
前に、質問したら少しだけ教えてもらえたのですが、初心者のため、調べてもわかりません。至急使いたいので、コピペできるように作っていただけますでしょうか？

回答No.2

imogasi

ＶＢＡの要素的には、初心者でもできそうな内容だと思う。
＞300行くらいまであります
異なる行同士で関連して考えなくてよいなら、１行の判別を３００回ぐらいＦｏｒ　Ｎｅｘｔ繰り返し構文で、繰り返せば仕舞。
各１セルの表示形式は、簡単なＶＢＡでとらえられるよ。設定する方法と
裏表。
＞コピペできるように作っていただけますでしょうか。
こんな要求を堂々と質問に書いた人はいない。
ここの回答者は小間使いではない。
金を払ってやってもらうのが、現在社会の流儀だが、友人、同僚などで、周りにできるひとが、見つからないか探したら。
（とはいうものの）参考
Ａ１に文字を入れてフォントを勘亭流に設定して
Sub test01()
MsgBox Cells(1, "A").Font.Name
End Sub
を実行すれば、ＡＲＰ勘亭流Ｈ０４のようなのが帰ってくる。
太字かどうかは、太字設定にしたセルでは
Sub test02()
MsgBox Cells(1, "B").Font.Bold
End Sub
でＴＲＵＥが返る。
赤字はフォントの色の場合は
http://officetanaka.net/excel/vba/cell/cell04.htm
Excelのバージョンによる違いでややこしい。
https://kokodane.com/mini_macro-55.htm
フォントの色を取得するユーザー定義関数
というやりかたもある。セルに結果が文字や数字で返り、固定されるから
それらの列（ワーク列）を対象に関数（ＡＮＤ関数など利用）で条件を満たすか、考えたらどうだろう。
セルの表示形式の設定は、マクロの記録を取ると、コードがわかる。活用のこと。

回答No.1

akauntook

>初心者のため、調べてもわかりません。至急使いたいので、コピペできるように作っていただけますでしょうか？

いや…ちょっと。

誰もが最初は初心者で、調べたり勉強して初心者ではなくなったわけですし、初心者ではなくても、労力がかかることには変わりないです。

それをタダでやれと言うのは、今まで努力して勉強した人は馬鹿で、できる人にやらせれば良いのにどうしてならなかったの？

と言うようにバカにされているような気になってしまいます。

初心者でも、どんな人でも誰かに任せてすぐにやってもらえてフェアな方法は、お金を払うことです。

すぐにと言うなら、それなりの金額を提示する必要があると思います。