Excelで…

質問

Excelで関数を使ってAは1、Bは5と自動入力出来るようにVLOOKUPを使って入力したんですが、Aは1、Bは5と設定したので、ABは15と出るようにしたいのですがエラーが出てしまいます。どうしたらいいんでしょうか？

回答No.7

imogasi · ベストアンサー

ツール－マクロ－ＶＢＥで出てくる画面のメニューで
挿入－標準モジュールをクリックして出てくる画面に
Function bngo(a)
s = ""
For i = 1 To Len(a)
x = Asc(Mid(a, i, 1))
If x >= Asc("A") + 9 Then x = Asc("A") - 1
s = s & Trim(Str(x - Asc("A") + 1))
Next i
bngo = s
End Function
を貼りつけ、Ａ列にＡＢＣなどが入るとして、ワークシートＢ列Ｂ１に=bngo(A1)と入れて下へ複写すれば良い。
Ｊより後は０にしました。
また半角英字大文字を入れることにして上記はプログラムしてます。小文字の場合は３箇所のＡをａに変えてください。
ABC 123
A 1
AJ 10
BD 24
AK 10
AJDF 1046

お礼

ありがとうございます。
できました。本当に助かりました。
ありがとうございました。

回答No.6

SAKURAMYLOVE

回答が質問者抜きでどんどん進んでますが、これでよいのでしょうか。
ここはひとつ質問者の補足を待って何をしたいのか見極めて回答したほうが良いのではないでしょうか。

補足

説明不足ですみませんでした。
ようは、在庫管理をExcelでしたいのですが、A=1、B=2、C=3、D=4、E=5、F=6、G=7、H=8、I=9、J=0に当てはめて、例えばA1のセルにDGHと入力したらB1のセルに478と自動的に出るようにしたいんです。こんな感じなのですが、何と説明したらいいのか…　分かりにくい説明で申し訳ないんですが宜しくお願いします。

回答No.5

imogasi

A,B,AB,BAしかないのなら
=SUBSTITUTE(SUBSTITUTE(A1,"A","1"),"B","5")
ＶＬＯＯＫＵＰを使うなら（選択肢が小数なら）
=VLOOKUP(A1,{"A",1;"B",5;"AB",15},2,FALSE)
または丁寧には
=IF(ISERROR(VLOOKUP(A1,{"A",1;"B",5;"AB",15},2,FALSE)),"",VLOOKUP(A1,{"A",1;"B",5;"AB",15},2,FALSE))
質問例では３つなのだが、実際の例ではどれだけの組み合わせがあるのでしょうか。回答の適否がガラッと変るからです。
＃１さんの「これだけじゃわかりませんよ・・」にそういう意味から同感。

回答No.4

jindon

VLOOKUPですよね。

Lookup table に AB:15のセットを増やせませんか？
A 1
B 5
AB 15

回答No.3

milomilo

こんばんは。

この場合は　IF　文のほうが使いやすいのではないでしょうか？

例文　Ａ１に　Ａ、Ｂ，ＡＢを入力すると想定して

Ａ２に　=IF(A1="A",1,IF(A1="B",2,IF(A1="AB",15)))

といれると　なると思いますが・・

だめでしょうか？

回答No.2

SAKURAMYLOVE

無理やりなら、VLOOUP関数を&で結合すればできます。
即ち、A1にABが、A,Bのデータ1,2は、D1:E2にはいっているとして、
=VLOOKUP(LEFT(A1,1),$D$1:$E$2,2,0)&VLOOKUP(RIGHT(A1,1),$D$1:$E$2,2,0)
ただ、何の目的でしょう？
それによってはもっとよい方法があるような気がするのですが。

回答No.1

b206

これだけじゃわかりませんよ・・・