Excelで、VBAのcase文のような使い方のできる関数（セルに入力して使う関数）はないでしょうか。

タイトルの通りなのですが、

たとえば、
A1のセルの値が 1 だったら B1は "仕入先"
A1のセルの値が 2 だったら B1は "得意先"
A1のセルの値が 3 だったら B1は "社員"
のようにしたいのです。

if文を駆使すれば可能なのは理解しているのですが、もう少しスマートに式を書けないかな、と思って質問しました。

No.2 ベストアンサー 回答者： mu2011 回答日時： 2006/08/15 11:50

条件が少ない場合、

=IF(A1<>"",LOOKUP(A1,{1,2,3},{"仕入先","得意先","社員"}),"")や=IF(A1<>"",CHOOSE(A1,"仕入先","得意先","社員"),"")
条件が多い場合、
=IF(A1<>"",VLOOKUP(A1,$C$1:$D$m,2FALSE),"")
・関係表リストを別に設定します。
　C1(1),D1(仕入先）
　C2(2),D2(得意先）
　C3(3),D3(社員）
　Cn(x),Dm（ｙｙｙ）

No.3 回答者： misatoanna 回答日時： 2006/08/15 11:50

VLOOKUP関数の回答が出ていますので、

=CHOOSE(A1,"仕入先","得意先","社員")
または
E1:E3 に "仕入先","得意先","社員" と順に入力しておき、
=INDEX(E1:E3,A1)

No.1 回答者： free-goo 回答日時： 2006/08/15 11:45

ＶＬＯＯＫＵＰ関数では　ダメなのでしょうか？？

別の場所に、マスターみないなものを作成する。下記　例ですが

Ｈ１に　１　Ｉ１に「仕入先」
Ｈ２に　２　Ｉ２に「得意先」
Ｈ３に　３　Ｉ３に「社員」

Ｂ１に　関数　＝ＶＬＯＯＫＵＰ（Ａ１，Ｈ１：Ｉ３，２，ＦＡＬＳＥ）

と、云う具合ですが・・・・ＶＢＡでは、ないですが・・・