エクセルで条件に合ったセルを選択する方法を教えてください

Question

以下の様な表があります。

　　A列　　　　　　B列　　　　　　C列　　　　　　　D列
1　　　-　　[2016/01/01］　[2016/02/01］　[2016/03/01］・・・
2　[ID_001］　　　あ　　　　　　　あ　　　　　　　あ
3　[ID_002］　　　あ　　　　　　　あ　　　　　　　あ
4　[ID_003］　　　あ　　　　　　　あ　　　　　　　あ
　・
　・
　シート内の空いているところにIDと月日を入力するスペースを作り、
それぞれ[ID_002］　[2016/03/01］と入力するとD3が選択されるようにするにはどのようにすればよいでしょうか？
VBAでも関数の組み合わせでも良いので、ご教授いただけますでしょうか。
宜しくお願い致します。

GooUserラック · Accepted Answer

「For …」などを直せば可能です。レイアウトを示していただければ変更可能です。ご自分でトライするときのヒントをいくつか・「Cells(Rows.Count, 1).End(xlUp).Row」は、A列の最後の行番号になります。・「Cells(1, Columns.Count).End(xlToLeft).Column」は、1行目の最後の列番号になります。たとえば、検索対象のデータが C列と 2行目にあった場合は以下のコードになります。（レイアウトは下図） ---------------------------------------------------------------- Sub 検索() Dim 行データ As String Dim 列データ As String Dim 行番号 As Long Dim 列番号 As Long 行データ = InputBox("行データを入力して下さい") For 行番号 = 3 To Cells(Rows.Count, 3).End(xlUp).Row If Cells(行番号, 3).Value = 行データ Then Exit For Next If Cells(行番号, 3).Value <> 行データ Then MsgBox ("行データが見つかりませんでした。") Exit Sub End If 列データ = InputBox("列データを入力して下さい") For 列番号 = 4 To Cells(2, Columns.Count).End(xlToLeft).Column If Cells(2, 列番号).Value = CDate(列データ) Then Exit For Next If Cells(2, 列番号).Value <> CDate(列データ) Then MsgBox ("列データが見つかりませんでした。") Exit Sub End If Cells(行番号, 列番号).Select End Sub ----------------------------------------------------------------

GooUserラック · Answer

Sub 検索()

Dim 行データ As String
Dim 列データ As String
Dim 行番号 As Long
Dim 列番号 As Long

行データ = InputBox("行データを入力して下さい")
For 行番号 = 10 To 142
If Cells(行番号, 1).Value = 行データ Then Exit For
Next
If Cells(行番号, 1).Value <> 行データ Then
MsgBox ("行データが見つかりませんでした。")
Exit Sub
End If
列データ = InputBox("列データを入力して下さい")
For 列番号 = 7 To 24
If Cells(9, 列番号).Value = CDate(列データ) Then Exit For
Next
If Cells(9, 列番号).Value <> CDate(列データ) Then
MsgBox ("列データが見つかりませんでした。")
Exit Sub
End If
Cells(行番号, 列番号).Select

End Sub

shorun · Answer

B6にID ,B7に日付を入力して　選択値をB3に出力した場合の例です。
INDEX関数とMATCH関数の組み合わせた式は
添付図の最下行の式を試してください。
なお入出力セルが上記と異なれば、式中のB6とB7を修正する必要があります。

GooUserラック · Answer

こちらの方が使いやすいかも

--------------------------------------------------------------------
Sub 検索()

Dim 行データ As String
Dim 列データ As String
Dim 行番号 As Long
Dim 列番号 As Long

行データ = InputBox("行データを入力して下さい")
For 行番号 = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(行番号, 1).Value = 行データ Then Exit For
Next
If Cells(行番号, 1).Value <> 行データ Then
MsgBox ("行データが見つかりませんでした。")
Exit Sub
End If
列データ = InputBox("列データを入力して下さい")
For 列番号 = 2 To Cells(1, Columns.Count).End(xlToLeft).Column
If Cells(1, 列番号).Value = CDate(列データ) Then Exit For
Next
If Cells(1, 列番号).Value <> CDate(列データ) Then
MsgBox ("列データが見つかりませんでした。")
Exit Sub
End If
Cells(行番号, 列番号).Select

End Sub
--------------------------------------------------------------------

GooUserラック · Answer

・検索時に入力した値と、セルを選択した時の数式バーの値は同じでしょうか？
・「Cells(1, 列番号).Value」を「Cells(1, 列番号).Text」にしてもダメでしょうか？（セルには日付だけが入っているんですよね。日付を検索するときは「#2016/03/01#」入力しないと一致しなくなるので「Text」にした方が良いと思います）

GooUserラック · Answer

実は気になっていたのですが「[」と「］」半角と全角です。セルのデータと同じでしょうか？
何でしたら、全角にした状態で比較するようにしましょうか？

GooUserラック · Answer

検索値を入れるセルを使わず「InputBox」を使った物にしました。マクロで「検索」を実行すると、行データ（[ID_002]）と、列データ（[2016/03/01]）を入力する「InputBox」が出ますので、それぞれ入力してください。 ------------------------------------------------------ Sub 検索() Dim 行データ As String Dim 列データ As String Dim 行番号 As Long Dim 列番号 As Long 行データ = InputBox("行データを入力して下さい") For 行番号 = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(行番号, 1).Value = 行データ Then Exit For Next If Cells(行番号, 1).Value <> 行データ Then MsgBox ("行データが見つかりませんでした。") Exit Sub End If 列データ = InputBox("列データを入力して下さい") For 列番号 = 2 To Cells(1, Columns.Count).End(xlToLeft).Column If Cells(1, 列番号).Value = 列データ Then Exit For Next If Cells(1, 列番号).Value <> 列データ Then MsgBox ("列データが見つかりませんでした。") Exit Sub End If Cells(行番号, 列番号).Select End Sub ------------------------------------------------------

GooUserラック · Answer

マクロ（ＶＢＡ）は使っても良いですか？

GooUserラック · Answer

こんな感じで綺麗に並んでいるのでしょうか？

エクセルで条件に合ったセルを選択する方法を教えてください

「For …」などを直せば可能です。

Sub 検索()

B6にID ,B7に日付を入力して 選択値をB3に出力した場合の例です。

こちらの方が使いやすいかも

・検索時に入力した値と、セルを選択した時の数式バーの値は同じでしょうか？

実は気になっていたのですが「[」と「］」半角と全角です。

検索値を入れるセルを使わず「InputBox」を使った物にしました。

マクロ（ＶＢＡ）は使っても良いですか？

こんな感じで綺麗に並んでいるのでしょうか？

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

B6にID ,B7に日付を入力して　選択値をB3に出力した場合の例です。