|
まこさんさん、こんにちは。
こんなんでどでしょ?。こっちは、マクロ板です。
角田さん版も、今から確認させて頂きます。
Sub TEST()
Dim 数値A As Integer
Dim 数値B As Integer
Dim 数値C As Integer
Dim I As Long
数値A = InputBox("数値Aを入力してちょうだい!", "検索値入力")
数値B = InputBox("数値Bを入力してちょうだい!", "検索値入力")
数値C = InputBox("数値Cを入力してちょうだい!", "検索値入力")
For I = 1 To Range("A1").End(xlDown).Row
If (数値A = Range("A" & I)) And (数値B = Range("B" & I)) And (数値C = Range("C" & I)) Then
Range("A" & I & ":C" & I).Select
MsgBox "一致行は、" & I & "です。"
Exit Sub
End If
Next
MsgBox "該当データは、無かったよ。"
End Sub
|
|