[[20070120231143]]　『名前の検索』（Rica）　ページの最後に飛ぶ

『名前の検索』（Rica）

 エクセルで実現できるかどうかも分かりませんので、方法を教えて下さい。　
 名前／なまえ／年齢／電話番号／住所からなるデータべースがあります。
 所定のセルで名前を検索するのに、「名前」や「なまえ」を入力する方法
 ではなく、メニューを開くような感じで検索出来ないでしょうか？
　
 イメージとしてはA3～E3に１番目のデータが入っていて、以下の行に
 全員のデータが入っています。
 A1に[あ～わ」のメニューがあって、例えば「さ」行を選ぶと
 「さ～そ」がでてきて「し」を選ぶと登録してある名前
 「塩川、･･･、清水、･･･、白石」がでてきて、その名前を選ぶと
　データベースにある名前のセルに移動する。こんな感じです。

 A2に項目があるとして
A2を選択＞データ＞フィルタ＞オートフィルタ
で▼をクリックするとオプションがあります。
名前の最初の一文字を入力し「を含む」で検索するとその漢字を含む
名前が表示されます。
ご質問のように、名前の最初のひらがなでオートフィルタをかけるにはふりがなの欄を
設けてその列でオートフィルタをかける必要がありますので、この方法でドウでしょう？
それをマクロの記録で記録すると↓のようになります。

 Sub Macro1()

 ' マクロ記録日 : 2007/1/21

    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="=*○*", Operator:=xlAnd
　　　　　　　　　　　　　　　　　　　　　　　　 ~~入力した漢字
 End Sub

 A1に入力して検索とのことですので
少し書き換えると↓のようになります。

 Sub 検索()
    Range("A1").Select
    Selection.AutoFilter Field:=4, Criteria1:="=*" & Range("A1").Value & "*", Operator:=xlAnd
 End Sub
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　(oni)

 oniさん、ありがとうございます。
 教えて頂いたマクロを実行する方法を教えて下さい。（Rica）

 A1に検索する名前の漢字一文字を入力して
ツール>マクロ＞マクロ　で
実行するマクロを選択して実行です。
　
 オットォ!(・o・ノ)ノ
その前に
↑の
Sub 検索()
・
・
End Sub
をコピーして
エクセルで
Alt+F11で Visual Basic Editorを開き
挿入＞標準モジュール
でコピーしたコードを貼り付けます。
　　　　　　　　　　　　　　　　　　　　　　　(oni)

 oniさん、ありがとうございます。
 名前の一部または全部の文字を入力するのではなく、メニュー方式で検索する方法は
 ありませんか？オートフィルタが階層式にして検索できませんか？(Rica）

 オートフィルタでやるには
検索するためのデータが一覧表に必要となります。
      A　　　　　　　　B　      C　　　　　　　D　　　　　　　　E　　　F
[1] 検索文字１	検索文字2　 氏名	　　　ふりがな　　　　　年齢　　TEL
[2]　　た　　　　　	た	　高橋はるみ　　たかはし　はるみ			
[3]　　は	　　　　　は	　橋本　昌　　　はしもと　まさる			
[4]　　あ	　　　　　い	　石原慎太郎　　いしはら しんたろう			
[5]　　ま	　　　　　ま	　松沢成文　　　まつざわ　しげふみ			
[6]　　か	　　　　　か	　神田真秋　　　かんだ　まさあき			
[7]　　な	　　　　　の	　野呂昭彦　　　のろ　あきひこ			
[8]    や	　　　　　や	　山田啓二　　　やまだ　けいじ			
[9]    あ	　　　　　お	　太田房江　　　おおた　ふさえ			
[10]   さ	　　　　　そ	　そのまんま東　そのまんまひがし			
[11]   あ	　　　　　い	　伊藤祐一郎　　いとう　ゆういちろう			
[12]   な	　　　　　な	　仲井眞弘多　　なかいま　ひろかず			
 　　　↑　　　　　 ↑B2=LEFT(D2,1)下にコピー 　↑ D2　=PHONETIC(C3)下にコピー
　　　あかさたな別のデータを入力
　
 上のような表でA列でオートフィルタ
 B列でオートフィルタ
 C列でオートフィルタ
と言う方法がありますが
　　　　　　　　　　　　　　　　　　　　　　(oni)

 oniさん
 セルの移動を考えることなくこれでデータが絞り込んでいけそうです。
 確認してみます。ありがとうございました。
 当初考えていたのは、エクセルの「編集(E)」-「検索（F)」の
「検索する文字列（N）」に 入れる文字列を階層別の簡易リストボックスで
 行うイメージでした。（年賀状作成ソフトの名前検索機能と同じ）
                  　　　　　　　　　　　　　　　　　　　　(Rica)

 ああ～
Ricaさんもうご覧になってないかな（汗
上の式修正しました。ごめんなさい
B2=LEFT(A2)下にコピー 
↓　
B2=LEFT(D2,1)下にコピー 
です。　
　　　　　　　　　　　　　(oni)

 oniさん、ちゃんと読んでますよ～
 ありがとうございま～す。(Rica)

コメント返信：

[ 一覧(最新更新順) ]

[[20070120231143]] 『名前の検索』（Rica） ページの最後に飛ぶ

[[20070120231143]]　『名前の検索』（Rica）　ページの最後に飛ぶ