ベストアンサー

データの抽出について

2002/12/11 17:17

こんにちは。初めて質問をします。以下のことがやりたいのですが、やり方＆ソフトがわかりません。急に必要なのです。わかる方、どうかよろしくお願いいたします！ (1)文章があって、その中に「店舗名」「住所」「責任者」が何度も出てくるので、元データ表を作って、一度打ち込むだけで表示させるようにしたい。（リンク？） (2)できるなら選択式にしたい。現在弊社の店は２０店舗のみなので…さらに「A店」を選択すると、住所や電話番号の部分が自動的に入力できたら、さらに効率的。こんなことってできるのでしょうか？利用環境はWinMXです。エクセルは中級者の下ぐらいです。エクセルやワードで作る方法がありましたら、ぜひ教えてください！困っています。よろしくお願いいたします！

saitaman
お礼率71% (5/7)

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

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

質問者が選んだベストアンサー

ベストアンサー

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

2002/12/11 19:46 回答No.3

下記を例としてやって見て、納得後実際本番のケースを考えてください。初めての人には難しいかも知れないがエクセルに詳しい人が居れば、協力して頑張ってください。ほんとうはＶＬＯＯＫＵＰ関数等の利用の方を勧めたいが。機能的には下記が望み通りでしょう。テスト済み。（１）(表の用意）本当は目立たない、範囲に置くのですが見やすいようにＡ１：Ｃ３にしています。エクセルのワークシートのＡ１：Ｃ３に下記データを作る。東京丸の内１丁目神田新橋新橋２丁目古橋有楽町有楽町有田（２）（表上にリストボックスを貼り付け）Ａ．表示－ツールバー－ＶｉｓｕａｌＢＶａｓｉｃをクリック。Ｂ．金槌とスパナがＸ状のアイコン（コントロールツールボックス）をクリックＣ．リストボックスをクリック。Ｄ．ワークシート上にマウスポインタを持ってくると、＋状になる。適当な表上で左上から右下方向へ、擦るように動かす。Ｅ．後は四角形の各辺の小さい四角を動かして、適当な四角形にする。Ｆ．リストボックスの中で、マウス右クリックする。プロパティウインドウが出る。Ｇ．ColumnCountの右枠に「３」と入れる。Ｈ．ListFillRangeの右枠に、「Ａ１：Ｃ３」と入れる。シート上の表の範囲を指定する。とくにLinkedCellは空白にしておく。（ＶＢＡを作成）Ａ．リストボックスの中でダブルクリックする。Ｂ．ＶＢＥ画面が出る。　　左上のGeneralの▼をクリックし、ListBox1をクリックし、　　右上の▼をクリックしClickをクリックする。Ｃ．Private Sub ListBox1_Click() End Subとなる。この空白部へ下記を貼り付ける。Ｄ．下記３行をコピーアンド貼り付けする。 ActiveCell = ListBox1.List(ListBox1.ListIndex, 0) ActiveCell.Offset(0, 1) = ListBox1.List(ListBox1.ListIndex, 1) ActiveCell.Offset(0, 2) = ListBox1.List(ListBox1.ListIndex, 2) Ｅ．ワークシートに戻り、「三角定規と鉛筆」のアイコンをクリックして凹みをなくす。これで使える状態になる。（使用）Ａ．データを入れるセルをポイントし、選択したいリストボックスの行をクリックする。対応した３列データが瞬時自動的にセットできる。Ｂ．前回と同じ行を選択すると効かないので、一旦仮に別に移って、選択したい行をクリックすること。Ｃ．自動セットを停止したい時は、「三角定規と鉛筆」のアイコンをクリックして、凹ますとよい。

質問者

お礼 2002/12/11 22:15

…できました！！でも、例えばA１に「東京支部」と打ち込んだだけで、B50に「上野３丁目」と表示させられたら、もっといいのですが…何度もすみません、できますでしょうか？？？

その他の回答 (2)

0011Allen
ベストアンサー率56% (108/192)

2002/12/11 18:20 回答No.2

データの挿入の事でしょうか。ワードでなら「定型句」として登録しておけば挿入できるようになります。ツールバーに定型句のツールを表示させておいて、繰り返し使用する文章を選択し「新規作成」をクリックし適当な名前をつけます。次からは定型句のプルダウンメニューから選択して挿入できます。表、図等を含めて一纏めにして登録できますので、結構便利ですよ。

質問者