Excel VBA Ｆ列の特定値が１００、M列の値がゼロの時にＸ列の値に◎を付け加えたいのですが

◎を付加したいのですが・・・・

F列　　　Ｇ列　H列　I列　J列　K列　Ｌ列　Ｍ列　・・・Ｘ列
１００　　　　　　　　　　　　　　　　　　０　　　　　あああ　◎
１２０　　　　　　　　　　　　　　　　　　１　　　　　ＢＢＢ
１５０　　　　　　　　　　　　　　　　　　２　　　　　ＣＣＣ
５００　　　　　　　　　　　　　　　　　　３　　　　　ＤＤＤＤ
１００　　　　　　　　　　　　　　　　　　１０　　　　ＪＪＪＪ
１７０　　　　　　　　　　　　　　　　　　６　　　　　ＧＧＧＧ
１００　　　　　　　　　　　　　　　　　　０　　　　　ＨＨＨＨ　◎
・
・
・
最終行は月によって変わるんです・・・

F列の数値が１００かつ、M列の値が０の場合のみ、X列に◎を入れたいのです。
ご教示お願いします。。。

No.1 ベストアンサー 回答者： soixante 回答日時： 2017/06/24 22:18

Dim r As Long

r=2
Do While Cells(r,6).Value<>""
If Cells(r,6).Value=100 And Cells(r,13).Value=0 Then
Cells(r,24).Value="◎"
End If
r=r+1
Loop

この回答へのお礼

すみません。だいぶ時間がたってしまいました。
本当にありがとうございました。
勉強になります。
少しづつ、力をつけていきたいと思います。

お礼日時：2017/07/04 12:20