エクセルで数字を入力すると単語に変換される方法

質問

例えばA１セルで「１２３」と入力すると、A１セルで「お菓子」と変換する方法を探しています。

A１セルに「１２３」→Enter→A１セルに「お菓子」
B１セルに「４５６」→Enter→B１セルに「ジュース」　

登録したい単語が多く、エクセルではなくマクロでないと無理でしょうか？
V関数を使った、数字を入力すると別列に単語が自動入力される方法は存じております。
あくまで同セルでの入力・変換する方法です。
Excel2007を使用しております。
ご存知の方がいらっしゃいましたら、ご教授の程よろしくお願い致します。

回答No.1

keithin · ベストアンサー

どうしてもヤリタイのでしょうから次のようにすれば出来ますが，お薦めはしませんね。

準備：
シート２のＡ列に変換前の値，１２３や４５６を列記する
シート２のＢ列に対応する値，みかんやりんごを列記しておく

シート１に戻り，シート名タブを右クリックしてコードの表示を選び
現れた画面に下記をコピー貼り付ける

private sub worksheet_change(byval Target as excel.range)
　dim h as range
　dim ha as range
　dim hz as range
　dim res as range

　set hz = application.intersect(target, range("A:A"))
　if hz is nothing then exit sub

　for each ha in hz.areas
　for each h in ha
　　if h <> "" then
　　　set res = worksheets("Sheet2").range("A:A").find(what:=h.value, lookin:=xlvalues, lookat:=xlwhole)
　　　if not res is nothing then
　　　　application.enableevents = false
　　　　h = res.offset(0, 1).value
　　　　application.enableevents = true
　　　end if
　　end if
　next
　next
end sub

ファイルメニューから終了してエクセルに戻る
シート１のＡ列に１２３や７８９と記入する。

＃参考
Ａ列にまとめてデータをコピー貼り付けたり，削除したりといったふつーのエクセルの操作に対応するよう，少し手順が増えています。

回答No.4

imogasi

別セルに出なくて入力した同じセルに出したいとなるとＶＢＡを使うことになる。エクセルはそういうもんであって、高望みして居るか、他人に使ってもらおうというシステム開発敵意とが出ているためだろう。
自分は勉強して無いからＶＢＡを避けているのかも。ＶＢＡを勉強しないと関数で出来る程度しか出来ないよ。
一応
Ｓｈｅｅｔ２のＡ２：Ｂ４　に
123 梅
124 桃
125 栗
など入れてＳｈｅｅｔ１に３桁数字を入れてみると、匂いだけかげる。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo p1
Application.EnableEvents = False
Target = Application.WorksheetFunction.VLookup(Target, Worksheets("Sheet2").Range("a1:B100"), 2, False)
p1:
Application.EnableEvents = True
End Sub
のようなので実験は可能だが、これを完成させるには色々勉強が必要。
本荒いエクセルＶＢＡでは荷が重過ぎる。辞書などの面で。

回答No.3

mt2008

オートコレクトを使ってみてください。

Excel2007だと
Officeボタン→[Excelのオプション]→[文章校正]→[オートコレクトのオプション]ボタンを押下。
[オートコレクト]タブの「入力中に自動修正する」にチェックを入れて
修正文字列：123
修正後の文字列：お菓子

と、入力して＜OK＞で終了。これでセルに「123」と入れると「お菓子」と修正されます。

回答No.2

mshr1962

private sub worksheet_change(byval Target as excel.range)

If Taget.Row = 1 '1行目限定
If Taget.column >= 1 or Taget.column <= 5 Then 'A-E列限定

Select Case Target.Value 'コード変換
Case 123
Taget.Value = "お菓子"
Case 456
Taget.Value = "ジュース"
Case.Else '確認メッセージ
Msgbox "コードが入力されていないか、登録されていないコードです。"
End Select
End If
End If

End Sub