エクセルで数字を入力したら文字に変換される方法

解決済

質問者：hanauta00
質問日時：2014/03/14 23:46
回答数：4件

いつもお世話になります。

エクセルで500名のアンケート入力をしています。
Ａ列に氏名、Ｂ，Ｃ，Ｄから順に第一から第三希望を入力する必要があり、選択肢は
７つ（りんご、トマト、イチゴ、なす、ピーマン、みかん、にんじん）とあって、重複しない３つを選んでいます。
今までは仮に１，２，３と数字を入力してから置換で置き換えていました。
（誰が何を選んだかを確認したいので、数字のままでは困る）
置換えではなく、１を押したら「りんご」２は「トマト」と入力される方法はないでしょうか？
ちなみに、キーボードだけで操作したいのでリストは使いたくなく、ユーザー定義もイマイチでした。。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： keithin
回答日時：2014/03/15 00:13

＞１を押したら「りんご」２は「トマト」と入力される方法はないでしょうか？

余計な事は何も無しで。

手順：
シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub Worksheet_Change(byval Target as excel.range)
　dim h as range
　on error resume next
　for each h in application.intersect(target, range("B:D"))
　select case h.value
　case 1
　　h = "りんご"
　case 2
　　h = "ばなな"
　case 3
　　h = "みかん"
　case 4
　　h = "ちょこ"
　case 5
　　h = "すいか"
　case 6
　　h = "とまと"
　case 7
　　h = "こたつねこ"
　end select
　next
end sub

ファイルメニューから終了してエクセルに戻る
ＢからＤ列に１から７や、他の言葉を記入したり削除したりいろいろ触ってみる。