エクセルで連続文字を文字に変換したい。

質問

エクセルで連続文字を文字に変換したい。
例：Ａ1のセルに連続数字を打つと下のように変換できる関数を教えてください。
　　　010→Ａ先生　020→Ｂ先生　030→Ｃ先生・・・・・・
　　　（全部で40人の先生を変換したいです）

回答No.1

merlionXX · ベストアンサー

どこかに対照表を作っておいてVLOOKUP関数で引っ張ってくるのはいかがでしょう？

たとえばH1～I40に対照表をつくったとしたら、B1セルに
=VLOOKUP(A1,$H$1:$I$40,2,FALSE)
とすれば、A1に入れた文字列に対応して先生が表示されます。

但し、A1とH1～H40は書式を文字列にしておかないと010等頭が0で始まる数字は入力できませんね。

参考URL：

http://www.yoshikawa.co.jp/ybs/skilup/ybs0308.htm

回答No.5

mshr1962

セルの書式設定で可能なのは3人までですので40人は不可
IMEの単語登録やオートコレクトを使う方法もありますが、
設定したPCに依存したり、他に入力するときの妨げになるので不可

別セルで良いなら、他の方も言われてるVLOOKUP等の関数を使って別セルに表示というのが一般的です。

同セルだと、マクロのChange（変更時）イベントを使うしかないです。
一例
Private Sub Worksheet_Change(ByVal Target As Range)
'イベントの発生する範囲を設定
If Target.Row > 1 Then '2行目以降(1行目ははずす)
If Target.Column = 1 Then 'A列限定
Select Case Target.Value
Case "010"
Target.Value = "A先生"
Case "020"
Target.Value = "B先生"
End Select
End If
End If
End Sub

回答No.4

imogasi

シートに作った対応表から検索すればよい。
ビジネス・仕事でエクセルを使うものの常識ですよ。
（１）VLOOKUP関数
（２）MATCH関数
（３）ユーザー関数
などあるが、（１）が常識的。
ーー
参考までに（３）を載せる。
例データ
F1:G7
010 山田先生
020 木下先生
030 鈴木先生
040 北野先生
050 小島先生
060 野田先生
070 大村先生
ユーザー定義関数。標準モジュールに
Function fnd(a)
r = Range("F1:F10").Find(what:=a).Row
fnd = Cells(r, "G")
End Function
A1:A3セルに
A列　　　B列
020 木下先生
050 小島先生
070 大村先生
B1には
=fnd(C15)
と入れる。式を下方向に複写する。
結果
上記B列。

回答No.3

mu2011

NO1様の様に表検索(VLOOKUP関数）した方が良いと思います。
（１）検索表は別シート（仮にsheet2）のＡ列に番号（セルの書式設定で表示形式を文字列とする）、Ｂ列は番号に対応する名前を定義しておきます。
（２）抽出側シート（仮にsheet1）のＡ１（セルの書式設定で表示形式を文字列とする）、Ｂ１以下の数式を設定して下さい。
　　=IF(A1<>"",VLOOKUP(A1,Sheet2!A:B,2,FALSE),"")
　　A1の検索値でsheet2のA:B列範囲のＡ列を検索し、見つかったらその隣（数式内の２がＡ列を１から数え２つ目のＢ列を指す）のセル内容を抽出します。
　　又、「IF(A1<>"",抽出,""」は、A1に入力されていれば抽出、なければ空白にします。
　　因みにIF関数は最大７つですからNO2様の方法は出来ません。

回答No.2

esupuresso

【B1】セルにIF関数を入力

=IF(A1=10,"A先生",IF(A1=20,"B先生",IF(A1=30,"C先生",IF(A1=40,"D先生",IF(A1=50,"E先生",IF(A1=60,"F先生",・・・・・と40人分のIF関数を入力
「010」は数値にすると「10」になり文字列にして「010」と変換するとエラーになります
【B1】の式を40人分オートフィルでコピーします
【A1】セルに「10」を入力すると「A先生」が自動入力されます

果たして40人分の関数が入力できるかどうか・・・？