| |
▼zucchi さん：
>リスト1を検索してリスト2の中にあるデータと一致するものがあるかどうか
>を検索する
こんにちは〜
フィルタオプション（AdvancedFilter）を使ったらどうでしょう？
入荷リストのB列に対し、禁止リストのA列を抽出条件範囲として一致する行だけ
抽出するのです。
入荷リストのB列と禁止リストのA列の一行目は同一の見出しとしてください。
Sub test1()
Dim ws1 As Worksheet '入荷リストのあるシート
Dim r1 As Range 'ws1のB列
Dim ws2 As Worksheet '出荷禁止リストのシート
Dim r2 As Range 'ws2のA列
Set ws1 = Workbooks("F_Data.xls").Worksheets("入荷リスト")'要変更
Set ws2 = Workbooks("Book1").Worksheets("禁止リスト") '要変更
Set r1 = ws1.Range("A1").CurrentRegion.Columns(2)
Set r2 = ws2.Range("A1").CurrentRegion.Columns(1)
r1.AdvancedFilter xlFilterInPlace, CriteriaRange:=r2
If r1.SpecialCells(xlVisible).Count > 1 Then
MsgBox "この商品番号は出荷禁止です"
Else
ws1.ShowAllData
MsgBox "すべて出荷できます"
End If
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
