条件となる１つのセルと合致するセルを選択するマクロ

質問

一覧になっているデータ表題部のセルの中から、条件となる別のセルと合致するセルを選択するマクロを教えて下さい。ちなみに、データ表題部は、“年月日”データで、条件となる１つのセルも“年月日”で、検索値としては検索のつど変わります。なお、セルの選択は、セル番地の表示ではなく、そのセルを指定する「セルの選択」で、お願いしたいと思います。なにぶん、マクロ初心者なので、よろしくお願い致します。

回答No.2

某HN クロメート(Chromate)（@CoalTar） · ベストアンサー

良くわからないが、下記のようなことかなあ
添付図参照
C2セルに
=HYPERLINK("#A"&MATCH(C1,A:A,0))
C2セルをクリックすると 一致するA列にジャンプする

お礼

言葉足らずで、更には、専門用語も分からない記述の中で、本当にありがとうございました。まさに、私が求めていた解答です。私の課題が解決しました。

回答No.3

MarcoRossiItaly

No.2 さんの図から考えると、「条件」ってこういうことかなぁ…。

Option Explicit

Sub Find_and_Select_Cells()

　　Dim a As Range, ip As Range, r_1st As Range, r_each As Range, r_all As Range

　　Set a = Range("a:d") '検索対象の長方形のセル範囲（ ip を含まない範囲）を指定
　　Set ip = Range("f1") '検索値を指定するセル（ a に含まれないセル）を指定

　　If WorksheetFunction.CountIf(a, ip.Value) = 0 Then
　　　　MsgBox "該当セルなし"
　　　　Exit Sub
　　End If

　　Set r_1st = a.Find(ip.Value)
　　Set r_each = r_1st
　　Set r_all = r_each

　　Do
　　　　Set r_each = a.FindNext(r_each)
　　　　If r_each.Address = r_1st.Address Then Exit Do
　　　　Set r_all = Union(r_all, r_each)
　　Loop

　　r_all.Select

End Sub

お礼

回答ありがとうございます。せっかくのＶＢＡですが、私の意図したものとはちょっとちがっていたみたいです。