締切済み

エクセルでCtrl+Fでの検索機能と同様の関数・ツールはありますか？

2008/07/03 18:15

以前今回と少し似た質問をさせていただいた者です。前回ご回答頂いた方本当にありがとうございました。その延長にあたるのですが、現在以下のようなデータベースを作成しています。 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です。長文にて大変失礼いたしました。何卒よろしくお願い致します。

coolest
お礼率25% (1/4)

オフィス系ソフト
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

みんなの回答

imogasi
ベストアンサー率27% (4737/17069)

2008/07/03 21:22 回答No.1

まあＶＢＡがらみになりますがマクロの記録で、Ａ列を氏名検索し、そのマクロを少し手直しして、検索のキッカケをＡ１セルのイベント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 と入れてセルのパターン色を薄い色を設定ーＯＫＢ１に大山と入れると大山のあるセルが色が付く。大山の行全体にも上記数式を変えると色はつけられる。