Excel2003でマクロの自動起動と、フォームを使った検索と結果の表示

質問

はっきりいってVBAやったことないです。
でも、作ってくれって言われて、次のことがしたいです。
Excel２００３で、住所の漢字と振り仮名のシートを作り、検索のマクロをつくり、そのマクロを自動起動させたい。
検索にはコンボボックスで漢字の住所の一覧を出し、振り仮名を表示ボタンでプロンプトで検索結果を表示したいです
マクロの作成も、ＶＢｅｄｉｔｏｒの利用もまったく初めてです。
Ｅｘｃｅｌは表の作成や式の入力、グラフ作成など一通り使用できます。
全盲なので、できるだけ、キーボード操作を教えてください。
よろしくお願いします。

回答No.2

zap35 · ベストアンサー

視覚障害がありながらグラフ作成もできるというのはすごいと思いますが、それはひとまず置くとして、質問の内容だけでは「こんな方法があります」という一般論ででしか回答ができません。それはマクロを作成するために必要な情報が足りないからです。

そこで補足質問です。
１．住所の漢字と振り仮名のシートがあるのは分かりましたが、何を入力して、何を検索するのですか？　質問文では「コンボボックスで漢字の住所の一覧を出し」とありますが、コンボボックスで選択した漢字住所をもとにして、振り仮名を表示させれば良いのでしょうか？

２．住所のレコードは何行くらいありますか？　またそれは日々増えるデータですか？
　行数が多いとなるとコンボボックスで選択する方法は、スクロールが必要になるのであまり便利な方法とはいえなくなります。

３．住所が入力されているシートのデータ配列を教えてください
　例）１行目がタイトル、A2から下方向に漢字住所。B2から下方向に振り仮名　など

なお全くのVBA初心者にはユーザーフォームや検索系のマクロはハードルが高いです。シート上に配置したコンボボックスとVLOOKUP関数の組み合わせならVBAの知識は不要なので、この方法もご検討されてはいかがでしょうか

お礼

作ったのは私ではありませんが、作成ができましたので、お礼申し上げます。
また、今回行った手順も一応書いておきます。
●まず、データをテーブルに入力します。

●その後、ドロップリストを作成したいセルをクリックし、［データ］メニューの［入力規則］をクリックします。

●［入力の値種類］のコンボボックスから、［リスト］を選択します。

●［元の値］に、'='を先頭に付けて、絶対参照（$を付けた形式;$a$1:$d$30）で住所の漢字が入力された範囲を指定します。

●［空白を無視する］のチェックボックスと［ドロップリストから選択する］のチェックボックスをオンにして（初期状態でオン）、［ＯＫ］をクリックします。
★リストが出来上がります。

●振り仮名を表示したいセルに次の書式で入力します。
=if(［リストを設置したセル番地］="","",vlookup(［リストを設置したセル番地］,［検索を行う範囲のセル番地の範囲］,［検索対象の列番号（第２引数で指定した範囲の左側から１・２・３・．．．）］,0))
★住所の漢字の列がＥ列で、振り仮名がＦ列、リストの設置セルがＢ３の場合の例は、
=if(b3="","",vlookup(b3,e1:g80,2,0))

●住所データが入力されたセルを選択し、［書式］メニューから［列］をクリックします。

●［保護］タブをクリックし、［表示しない］のチェックボックスをオン（初期状態はオフ）にし、［ＯＫ］を押します。

以上です。
たいへん有用なヒントをありがとうございました。
今後ともよろしくお願いします。
作成者がファイルを公開してくれています。
http://homepage2.nifty.com/polyposis/excel/

補足

基本はExcelのデータがユーザーに簡単に変更できないようにすることです。
１．レコード数は６０件くらい、変更はありません。
2.シート構成はA列に漢字、Bれつにふりがなです。
必要ならタイトル行を設けてもいいと思います。

関数を使うとテーブルを保護しないと変更されてしまいますよねえ。
マクロだと、シートの表示を非表示に設定できますよねえ。
今後ともよろしくお願いします。