VBA 検索したセルに入力

質問

ExcelのVBAを使用して
データの入力されたファイルに行列から検索したセルに数値を入力したいのです。
例えば、名前（行）と、日付（列）
2つの条件で、セルを検索し、該当するセルに、データ（数字とか）を
入力したいのです
------------------------------------
　6/1 6/2 6/3 6/4 ・・・
a
b
c
・
・
------------------------------------
例えば、A5に名前、B5に日付、データエリアがB10:Z20の場合
=INDEX(B10:Z20,MATCH(A5,A10:A20,0),MATCH(B5,B9:Z9,0))
で、該当するセルを探すことはできたのですが、
このセルに、データを入力したいときは、
ROWやCOLUMNで、行番号、列番号を取り出して
Cellsで、入力すればいいのかな？と考えていますが
もっと簡単にできるのでしょうか？
（FIND関数は、使ったことがなく、どうなんだろう？と）
それでいいよ　とか、こっちの方が簡単　とかあれば、教えてください

回答No.1

kon555 · ベストアンサー

縦横をワークシート関数のMATCHで探してcellでデータを入力するのがVBAとしては楽だと思います。FINDはシート自体のオプションなどに左右されたりするので。
https://shimaydo.com/vbamatchsetu001/

お礼

ワークシート関数というものについても勉強するつもりです。確かに記述していたままでは、ダメでした。

回答No.3

imogasi

ＶＢＡですが、下記をやって見ると質問のようなことができるようだ
A1:A10に
a
b
c
d
f
d
c
g
h
d
Cのセルを見つけて、入力した値に置き換える。
ーー
標準モジュールに
Sub test01()
Range("a1:A10").Find("c").Select
x = InputBox("データ入力をどうぞ")
Selection = x
End Sub
これは１セルしか見つからない・存在しない例ですが、複数セルに（この例では）「ｃ」がある場合や
、他の「d」などにも目標が変わって続く場合もできそうです。
でも質問者はＶＢＡの経験が判らないから、最終までのコードは略。変化後が決まっているなら、対応関係を保持して、「置換」で１発処理できそう。
小生は、ＶＢＡでエクセル関数を使うのは中途半端と思っている。

回答No.2

kkkkkm

日付でFindを使うと見つからないパターンが出てくるので他の方法です。
日付だけの一例ですが、名前の方も同じようにしてください。

Matchの場合
Sub testMatch()
Dim mRst As Variant
Dim FCol As Boolean

mRst = Application.Match(Range("B5").Value * 1, Range("B9:Z9"), 0) '日付の場合は検索値に*1とする
'mRst = Application.Match(CDate("2023/6/3") * 1, Range("B9:Z9"), 0) '直接日付を指定する場合

If IsError(mRst) Then
FCol = False
Else
FCol = True
End If
If FCol = False Then
MsgBox "日付が見つかりません", vbCritical
Exit Sub
End If

Range("B9").Offset(0, mRst - 1).Select

End Sub

Matchを使わない場合
Sub testEach()
Dim mRng As Range
Dim mCol As Long, mRow As Long
Dim FCol As Boolean

For Each mRng In Range("B9:Z9")
If mRng.Value = Range("B5").Value Then
' If mRng.Value = CDate("2023/6/10") Then '直接日付を指定する場合
mCol = mRng.Column
FCol = True
Exit For
End If
Next
If FCol = False Then
MsgBox "日付が見つかりません", vbCritical
Exit Sub
End If

Cells(9, mCol).Select

End Sub

お礼

とても丁寧で、キッチリしたコメントをいただきありがとうございます。これもまた、勉強させていただきます。