f(会社名)=電話番号 といった関数の作成方法

私の勤める会社では、FAX送信状をエクセルで作成
しているのですが、会社名と電話(FAX)番号を、
別々に手打ちする作業がとても非効率的で難儀して
います。

そこで、素人考えですが

VBAで【f(会社名)=電話番号】という関数を作成

ということが出来ないかと考えております。

当方、プログラムのど素人でございますが、どなたか
ヒントになるようなことをご存知でしたらご教授
いただけないでしょうか？
また、この方法以外にもっとスマートな方法をご存知
でしても教えていただきたく存じます。

よろしくお願いいたします。

No.3 ベストアンサー 回答者： imogasi 回答日時： 2006/06/07 19:57

こんなのはＶＬＯＯＫＵＰ関数でできますよ。

別シートに会社名とＦＡＸ電話番号の対照表を作る
Ｓｈｅｅｔ２のＡ列とＢ列とする
Ａ列を入力規則のリストのに指定する・
Ｓｈｅｅｔ１のＡ列会社名前を範囲指定し、名前ボックスに「会社」と入れる。
Ｓｈｅｅｔ１のＡ１：Ａ３０を指定して、データー入力規則ーリスト
範囲に　「=会社」と入れる
これでＳｈｅｅｔ１のＡ列をクリックすると会社名一覧が出る。
クリックして選択する。
Ｓｈｅｅｔ１のＢ列に
関数
=IF(A1="","",VLOOKUP(A1,Sheet2!$A$1:$B$30,2,FALSE))
を入れてＢ３０まで式を複写しておく。
Ｂ１以下に自動でＦＡＸ番号が現れます。
ーーー
ＶＢＡでもＷｏｒｋｓｈｅｅｔＦｕｎｃｔｉｏｎ．Ｖｌｏｏｋｕｐ（略）が使えますが。なぜＶＢＡが出てきたのでしょうか。
ＶＢＡはＦｉｎｄで探して、見つかったセルの右のセルの値を採るなどの方法がありますが。

この回答へのお礼

迅速な回答ありがとうございました。
Vlookup関数の存在を知りませんでした。
我流でPCを使っているので、このような
重要関数の存在を知ることがありませんでした。

本当にありがとうございました。

お礼日時：2006/06/08 17:19

No.2 回答者： Turbo415 回答日時： 2006/06/07 17:38

やりたいこととして、送り状に相手先の名前とFAX番号を入れて印刷した紙を、FAXに掛けて送るのでしょうか？

でしたら、VBAでやらなくても、エクセルなら関数で可能です。VLOOKUP関数を使って、やるのが一番簡単です。

この回答へのお礼

迅速な回答ありがとうございました。
Vlookup関数の存在を知りませんでした。
我流でPCを使っているので、このような
重要関数の存在を知ることがありませんでした。

本当にありがとうございました。

お礼日時：2006/06/08 17:18

No.1 回答者： hana-hana3 回答日時： 2006/06/07 17:13

作ることは出来ますが・・・

ＶＬＯＯＫＵＰ関数の方が手軽かと思います。

この回答へのお礼

迅速な回答ありがとうございました。
Vlookup関数の存在を知りませんでした。
我流でPCを使っているので、このような
重要関数の存在を知ることがありませんでした。

本当にありがとうございました。

お礼日時：2006/06/08 17:18