Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

21491 / 76732

←次へ　｜　前へ→


	【60638】マッチングしたIPアドレスを抽出したい

こまつ - 09/3/6(金) 10:19 -


	引用なし

	パスワード

Option Explicit

Sub pro1()
'変数の宣言
　　Dim SH1 As Worksheet
　　Dim SH2 As Worksheet
　　Dim C As Long '行
　　Dim L As Long '列
　　Dim H As Variant
　　Dim H2 As Variant
　　Dim buf As Variant
　　Dim buf2 As Variant
'定数の宣言
　　Const AL = 1 'A列
　　Const BL = 2 'B列

　　Set SH1 = Worksheets("VRSRV11")
　　Set SH2 = Worksheets("IPアドレス")
　　
H = SH1.Range("B1:B525")
H2 = SH2.Range("A1:A865")
　　
　　For L = 1 To 865
　　　　buf = H(L, BL)　←この部分で引数のエラーになります。
　　　　buf2 = H2(L, AL)
　　　　　　If buf = buf2 Then
　　　　　　　　Debug.Print buf
　　　　　　End If
　　Next L
End Sub

VRSRV11シートのB1:B525には、IPアドレスが入っております。
そのIPアドレスと同じIPアドレスがIPアドレスシートにあった場合は、
表示するとしてるのですが、上記矢印部分でエラーとなります。
原因を教えていただけないでしょうか？

1 hits

▼

【60638】マッチングしたIPアドレスを抽出したい こまつ 09/3/6(金) 10:19

≪