- 締切済み
エクセルでCtrl+Fでの検索機能と同様の関数・ツールはありますか？
以前今回と少し似た質問をさせていただいた者です。 前回ご回答頂いた方本当にありがとうございました。 その延長にあたるのですが、現在以下のようなデータベースを作成しています。 A B C DEFG・・・・・ 1 氏名 所属 生年月日 成績 2 鈴木 営業1 2000/1/1 0000000 3 山田 営業2 2000/1/1 0000000 4 佐藤 営業3 2000/1/1 0000000 ・ ↑web管理画面へのハイパーリンク ・ ・ ・ （見辛くて申し訳ございません。A=氏名 B=所属 C=生年月日 DEFG・・・=成績 です。 またweb管理画面へのハイパーリンクは所属の項目に対してです） このような状態から A B C DEFG・・・・・ 1 検索 検索用セル 2 氏名 所属 生年月日 成績 3 鈴木 営業1 2000/1/1 0000000 4 山田 営業2 2000/1/1 0000000 5 佐藤 営業3 2000/1/1 0000000 ・ ↑web管理画面へのハイパーリンク ・ というように検索用のセルを作成し そのセル内に氏名を入力するとその氏名のセルへジャンプするという機能を探しています。 簡略に言うとexcelのCtrl+Fでの検索機能を常時設置しておきたいのです。 そこで今回質問させていただきたいのは 1上記のような関数またはツールはあるか？ 2もしできるとしたら、それはシートの指定 （sheet1でそれを機能させた場合sheet2を指定し、sheet2へのみジャンプする） という設定はできるか？ という2点です。 （2点目に関してはセルやシートの指定できないアドインでの検索ソフトは見つけたのですが重く、 セルに空白があると認識しなかったりという不便な点があるからです。 当方のPCが低スペックなのが一番いけないのですが・・・ 有名なフリーソフトなのでご存知の方も多いかとは思いますが以下サイトのソフトです。 http://database.k-solution.info/） 使用PCはwindows2000sp4・excel2000です。 長文にて大変失礼いたしました。 何卒よろしくお願い致します。
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- imogasi
- ベストアンサー率27% (4737/17069)
まあＶＢＡがらみになりますが マクロの記録で、Ａ列を氏名検索し、そのマクロを少し手直しして、 検索のキッカケをＡ１セルのイベントSelectionChange にする。（セルを選択すると処理を発動） ーー Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then MsgBox "検索実行" End If End Sub をＳｈｅｅｔ１のSelectionChangeイベントに作る。 これでＡ１をクリックすると「検索実行」と表示される。 セルを選択すると処理を発動されることが確認できる。 ーー 検索のマクロの記録は Range("A:A").Select Selection.Find(What:=Range("B1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, MatchByte:=False, SearchFormat:=False).Activate のようなものが出来る。 マクロの記録を変えたのは Range("A:A").Select ＜－－具体的Ａ列範囲 What:=Range("B1")＜－－具体的な検索する名前 の２箇所だけ。 ーー 最終的に Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then MsgBox "検索実行" Range("A:A").Select Selection.Find(What:=Range("B1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, MatchByte:=False, SearchFormat:=False).Activate ActiveCell.Select End If End Sub とする。 ーーー さて操作は 例データ Ａ列 Ｂ列 検索ボタン 大野 大下 大木 鈴木 大山 田中 石井 木村 大野 の例で、大野とＢ１に入れてＡ１をクリックすると、大野のセルを指す。 ーーー ＞関数またはツールはあるか 上記で判るように、ツールですと発表するほどそんな大げさな内容のものではない。 関数はＭＡＴＣＨ関数で「大野」の行番号はわかるが具体的にそこを示せない。 ＝＝＝＝＝＝＝ 条件付き書式なら出来そうだ 例データ Ａ列 Ｂ列 大山 ＜ーーＢ１．検索する氏名 大下 大木 鈴木 大山 田中 石井 木村 大野 Ａ列を選択しておいて 書式ー条件付き書式ー数式が で数式に =A2=$B$1 と入れてセルのパターン色を薄い色を設定ーＯＫ Ｂ１に大山と入れると大山のあるセルが色が付く。 大山の行全体にも上記数式を変えると色はつけられる。
