マクロで別ブックのセルを参照して判定させたいです

質問

まず二つのブックがあって仮にＡブック、Ｂブックとします。

Ａブックでマクロを作成していて、二つのブックには商品番号が入っているので一致するのものがあるかを調べます。
二つの商品番号が一致したら、Ｂブックの商品番号の列（Ａ列）の並びにあるコード（Ｄ列）が正しい数字（０ or １)かどうかを判定します。

このマクロが上手く組めなくて困っています。
どなたかわかる方教えてください。お願いします。

回答No.2

Wendy02 · ベストアンサー

こんばんは。

マクロは、どんな組み立てをしているのですか？
たとえば、お話だけでしたら、関数のCountIf でも、間に合うような気がするのです。
わざわざ、マクロにするためには、他にもいろいろ条件があってしているのではないでしょうか？そうでないと、マクロの意味がなくなってしまうようにも思えます。

単純にマクロにするなら、 WorksheetFunction.CountIf で、戻り値だけを拾えばよいように思います。

お礼

回答ありがとうございました。

確かに他にも色々な条件があって、その中の一つとしてマクロで作りたかったものなのです。
WorksheetFunction.CountIfを今まで知らなかったのですが、これを使えば自分が望んだものを作れそうな気がします。
ありがとうございました。

回答No.1

zap35

質問文だけではあまり具体的なマクロは書けませんが、activeなシートのA1セルの値でブックＢ・シート１のＡ列を検索し、合致した行のＤ列の値を取得するならこんなコードでも可能です。ご参考まで。

Sub macro1()
Dim trg As Range
　Set trg = Workbooks("b.xls").Sheets("sheet1").Range("A:A") _
　　　.Find(ActiveSheet.Cells(1, 1).Value)
　If trg Is Nothing Then
　　MsgBox ("B.xlsには合致するコードはありません")
　Else
　　MsgBox ("合致するコードのD列の値は" & trg.Offset(0, 3).Value)
　End If
End Sub

お礼

回答ありがとうございました。
Findが上手く使えてなかったので、こういう風に使う方法もあるんだと勉強になりました。