0

VBAでお聞きしたいのですがお願いします。 前回の似たような質問しましたが、ご了承ください。

下記のVBAコードで間違っている所教えて下さい。
内容ですが検索した値と一致し指定した箇所に色を付けたいのですが、
関数のVLOOKUPの様に検索は出来るのですが、
For i To～Next i と For h To～Next ｈが変な感じがします。
それと･･･If ～ End Ifの判定した時の使い方は、
これで良いんでしょうか？ご回答お願いします。

Private Sub CommandButton2_Click()
Dim OpenFileName As String
Dim Od1 As Worksheet
Dim Od1Row As Long
Dim Od1Det As String
Dim Sh1 As Worksheet
Dim Sh1Row As Long
Dim Sh1Det As String
Dim i As Long
Dim h As Long

OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
If OpenFileName <> "False" Then
Workbooks.Open OpenFileName
Else
MsgBox "キャンセルされました"
End If

'シート設定
Set Sh1 = ActiveWorkbook.Sheets("Sheet1")
Set Od1 = ThisWorkbook.Sheets("Sheet2")

'最終行の設定
Sh1Row = Sh1.Cells(Rows.Count, 1).End(xlUp).Row
Od1Row = Od1.Cells(Rows.Count, 1).End(xlUp).Row

For i = 0 To Sh1Row - 1
'検索値設定
Sh1Det = Sh1.Range("C3").Offset(i).Value
For h = 0 To Od1Row - 1
Od1Det = Od1.Range("B2").Offset(h).Value
'データ判定
If Left(Sh1Det, 10) = Left(Od1Det, 10) Then
With Sh1.Range("H3:I3").Offset(i)
.Interior.ColorIndex = 15
End With
End If
Next h
Next i
End Sub

質問者が選んだベストソリューション

Yahoo!知恵袋 3902日前