エクセルで文字検索を簡単に。

質問

エクセルで文字検索を簡単にする方法はありますか？
Ｂ列２行目以降に年月日（曜日）・・・同じ年月日（曜日）の行がたくさんある場合もあります。
Ｃ列以降はＢ列に関する文字が入力されています。

検索対象は年月ですが、検索するのに標準コマンドで検索すればよいことかと思いますが、年月日（曜日）がかなり増え、簡単に検索する方法がないかと、ネットなどで調べましたがなかなかヒットしません。
Ｈ１９年４月、５月・・・Ｈ２０年１月、２月・・・・○○年月の文字を１行目に作成し、その文字をクリックすると該当する年月の行の始まりまたは、該当する年月の行のいずれかを表示させる方法はありますでしょうか？
エクセルは２０００です。
参考サイト等ご存じでしたらよろしくお願いします。

回答No.6

KURUMITO · ベストアンサー

シート1のＧ2セルへの入力の式は次のようにしてもよいでしょう。

=IF(OR(NOT(ISNUMBER(B2)),Sheet2!$B$1=""),"",IF(AND(YEAR(B2)=YEAR(Sheet2!$B$1&"1日"),MONTH(B2)=MONTH(Sheet2!$B$1&"1日")),MAX(G$1:G1)+1,""))

補足

No.４，５、６ご回答者様
お礼が大変遅くなり失礼いたしました。

ご回答頂いた関数でバッチリ行きました。
別シートへの拾い出しまでしていただき、印刷などに便利です。
完璧です。いろいろと応用がききそうな感じがしました。

この補足に気づかれまして、参考サイト等教えて頂ければ幸いです。

回答No.5

KURUMITO

回答Ｎｏ３，４です。
Ｂ列でご希望の年月のデータのみを別のシートに表示させたいのでしたら次のようにします。
元のデータがシート1の2行目から下方にお示しのようにあるとして、別のシートを例えばシート2とします。
シート2のＡ1セルには抽出年月とでも記載し、Ｂ1セルには平成19年1月のように入力します。H19年1月とは記入しないでください。
その後にシート1ではＦ列までにデータがあるとしてＧ列を作業列とします。Ｇ2セルには次の式を入力して下方にオートフィルドラッグします。

=IF(OR(NOT(ISNUMBER(B2)),Sheet2!$B$1=""),"",IF(AND(YEAR(B2)=YEAR(VALUE(Sheet2!$B$1&"1日")),MONTH(B2)=MONTH(Sheet2!$B$1&"1日")),MAX(G$1:G1)+1,""))

その後にシート2に戻って例えばＡ3セルには次の式を入力してＦ3セルまでオートフィルドラッグしたのちに下方にもオートフィルドラッグします。

=IF(ROW(A1)>MAX(Sheet1!$G:$G),"",IF(INDEX(Sheet1!$A:$F,MATCH(ROW(A1),Sheet1!$G:$G,0),COLUMN(A1))=0,"",INDEX(Sheet1!$A:$F,MATCH(ROW(A1),Sheet1!$G:$G,0),COLUMN(A1))))

これでご希望の表をシート2に表示させることができます。オートフィルタなどの操作を必要としません。

回答No.4

KURUMITO

回答Ｎｏ3です。Ｂ列に文字列などが含まれるのでしたらＡ2セルには次の式を入力して下方にオートフィルドラッグします。

=IF(ISNUMBER(B2),TEXT(B2,"gge年m月"),"")

回答No.3

KURUMITO

A2セルには次の式を入力して下方にオートフィルドラッグします。

=IF(B2="","",TEXT(B2,"gge年m月")）

その後に1行目にカーソルを移して、エクセル2002ですが「データ」メニューから「オートフィルタ」を選択します。
A1セルの▼をクリックしてお望みのH20年1月などを選択すればよいでしょう。

補足

お礼が遅くなり失礼いたしました。

「オートフィルタ」と上手く？？利用する方法ですね。

ご回答いただいたように
以下の式を入れて行ってみました。
＞=IF(B2="","",TEXT(B2,"gge年m月")）

日付以外の文字があると▼の候補にその文字もあがります。
日付だけだと希望通りH20年1月、H22年4月・・・のみ表示してくれます。

よろしければ再度アドバイス頂きたいです。

回答No.2

imogasi

質問の文章がわかりにくい。
シートの実例でも挙げて質問すること、B列やなんのなど書かないで
例　B列B2以下
2011/5/2 打ち合わせ
2011/5/23 営業会議
・・・
と書けばすぐ判る。
ただ同じ月のデータがある場所にまとまっているのかどうか、書いておく。
年月単位で検索したいのかな。
＞Ｈ１９年４月、５月・・・Ｈ２０年１月、２月・・・・○○年月の文字を１行目に作成し
クリックすれば
などVBAで高等な技術になる。それよりA1セルに求める日付か年月かを入力させて考えるのが初心者であればやるべき方法。
ーー
何を＞簡単にする方法、を聞いているのか。
（１）検索条件の指定か
（２）条件指定しての検索が再々起こるので手数なのか。
（３）フィルタの操作が面倒なのか。まさか編集ー検索でやっているのではないでしょうね？
のどれかかな。
本件関数でやるのは、エクセル関数では、検索に適した関数が無く、組み合わせては長い式になる。
VBAで考える
ーー
VBAでなくても、オートフィルタを使えば仕舞いでは。
またはその操作をしてマクロの記録を取り、それをショートカットやボタンに登録できる。
マクロの記録では
Sub Macro3()
Range("B1:B8").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<=2011/5/1", Operator:=xlAnd, _
Criteria2:="<2011/6/1"
End Sub
を年月指定方式に変えて
Sub Macro3()
Selection.AutoFilter
x = InputBox("年月日=")
y = DateSerial(Year(x), Month(x) + 1, 1) '来月１日
z = Format(x, "yyyy/mm/dd") '文字列に変換
u = Format(y, "yyyy/mm/dd")
MsgBox z '確認用、この行抹消してかまわない
MsgBox u
Range("B:B").Select
Selection.AutoFilter Field:=1, Criteria1:=">=" & z, Operator:=xlAnd, _
Criteria2:="<" & u
End Sub

お礼

お礼が大変遅くなり失礼いたしました。

質問内容不手際ですいません。
ＶＢＡまで記載していただきありがとうございました。

回答No.1

merlionXX

オートフィルタ機能をつかったらどうでしょう？

このサイトが参考になります。↓
http://www.eurus.dti.ne.jp/~yoneyama/Excel/filter.htm

お礼

ご回答ありがとうございます。
オートフィルタ機能ですか。
参考サイトのぞいてみます。