【VBA マクロ】条件に合うセルを検索して、その行のD列に0を入力する sheet1のA列に4月〜

【VBA マクロ】条件に合うセルを検索して、その行のD列に0を入力する

sheet1のA列に4月〜3月までの月が入っています。
sheet2のA1には4月〜3月のいずれかの月が入っています。
sheet2のA1をsheet1のA列から検索して、その行のD列へ0を入力したいです。
ご教授お願いします。

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

• スミマセン！
  A1～A12までの範囲だけです。

    補足日時：2016/08/23 13:37

No.2 ベストアンサー 回答者： ryo_ky 回答日時： 2016/08/23 12:34

前提としてsheet1のA列にある4月〜3月までの月というのはA1～A12までの範囲ですか．それともそれ以降にも4月～3月というのが続くのでしょうか？

というのも１つの方法としてA列の上から順にSheet2のA1と合致しているかを見て，
合っている場合にその行のD列に0を打つなら繰り返し演算で良いと思いましたので（For Nextを使う）

例
Sub test()
Dim i As Integer
For i = 1 To 12
If Worksheets("Sheet1").Cells(i, 1) = Worksheets("Sheet2").Cells(1, 1) Then
Cells(i, 4) = 0
End If
Next
End Sub


関数なら下記式で同じような事ができますね．
=IF(ISERROR(MATCH(A1,Sheet2!$A$1,0)),"",0)

この回答へのお礼

ありがとうございます！
思い通りに出来ました！

お礼日時：2016/08/26 12:43

No.1 回答者： daaa- 回答日時： 2016/08/23 12:05

試案で良いから、マクロ張ってください。