|
遅くなって申し訳ないです。こんな感じでしょうか?
検索文は、1つにしようと思ったのですが、怠けてしまいました。
今晩、飲み会ですのでこれにて失礼します。何かありましたら、
どなた様かフォロー願いますね。
Sub サンプル()
Dim 製品コード As String
Dim I As Integer
製品コード = InputBox("製品コード入力をして下さい。", "製品コード")
For I = 2 To 9
If Cells(I, 1).Value = 製品コード Then
MsgBox "製品コード【 " & 製品コード & " 】" & vbLf & _
" 商品名…" & Cells(I, 2).Value & vbLf & _
" 数量…" & Cells(I, 3).Value & vbLf & _
" 単価…" & Cells(I, 4).Value, vbInformation, "【 検索結果 】"
Exit Sub
End If
Next
For I = 2 To 9
If Cells(I, 5).Value = 製品コード Then
MsgBox "製品コード【 " & 製品コード & " 】" & vbLf & _
" 商品名…" & Cells(I, 6).Value & vbLf & _
" 数量…" & Cells(I, 7).Value & vbLf & _
" 単価…" & Cells(I, 8).Value, vbInformation, "【 検索結果 】"
Exit Sub
End If
Next
MsgBox "製品コード【 " & 製品コード & " 】は、有りません。", vbInformation, "【 検索結果 】"
End Sub
|
|