Excel VBA質問箱 IV

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

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


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

21487 / 76732

←次へ　｜　前へ→


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

こまつ - 09/3/6(金) 11:31 -


	引用なし

	パスワード

▼Jaka さん：
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("A1:B525")
H2 = SH2.Range("A1:B865")
Application.ScreenUpdating = False
　　For L = 1 To 525
　　　　buf = H(L, BL)
　　　　For C = 1 To 512
　　　　　　buf2 = H2(C, AL)
　　　　　　If buf = buf2 Then
　　　　　　　　SH1.Range(C, 4).Value = buf　←この部分でエラー
　　　　　　　　 'Debug.Print buf
　　　　　　End If
　　　　Next C
　　Next L
Application.ScreenUpdating = True
End Sub

ご回答ありがとうございます。
先ほどの質問は解決したのですが、得られた結果を
転記する際にエラーとなってしまうのです。
rangeメソッドエラーとなってしまいます。
原因の教示をお願いします。

1 hits

▼

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