マクロでこんなことできるのでしょうか？

質問

こんにちわ。
仕事柄エクセルを良く使っています。
いまいちマクロについてよくわからないのですが、
エクセルのセルに入力する際に、
「１」と入力すれば、りんごと表示、
「２」と入力すれば、みかんと表示、
というように、
種類ごとに入力できるよう、マクロを使って
できるのではないか？と、知り合いにいわれました。
これは可能ですか？
そして、できるのなら、とても詳しく
方法を教えていただきたいと思います。

回答No.3

noname#49904 · ベストアンサー

それはマクロではなく、vlookup関数を使います。
　A列に、1,2,3……9,10と入れて、B列に上からリンゴ、ナシ、みかん……と入れます。
　A1セルからB10セルまでを選択してExcelのメニュー→挿入→名前→定義で「商品」などという名前を登録します。

　長い文章は苦手なので詳しくはヘルプ、参考書で身につけてください。

お礼

マクロではない違うやり方があったのか！！っというきもちです。
参考になりました。有難うございました。

回答No.5

imogasi

入力規則で、似たようなことが出来ます。
Ｇ１：Ｇ５に
りんご
みかん
なし
くり
メロン
入力をＡ１：Ａ１０として、Ａ１：Ａ１０を範囲指定。
データ－入力規則－「設定」タブ－リスト－（元の値）でシートのＧ１：Ｇ５を範囲指定－「Ｘ」をクリック－ＯＫ。
Ａ列のセルをクリック－リストから選択しクリックで
値がセルにセットされる。
マクロを使って出来ますが、イベントと言うものを捕らえるマクロなので、少し勉強してからがよいと思います。
（例）
Private Sub Worksheet_Change(ByVal Target As Range)
x = Array("", "りんご", "みかん", "なし", "くり", "メロン")
If Target.Column = 1 Then
If Val(Target) < UBound(x) + 1 Then
Application.EnableEvents = False
Target = x(Val(Target))
Application.EnableEvents = True
End If
End If
End Sub
Ｃｈａｎｇｅイベントには、色々欠点があること。
上記でエラーが出ると,あとが難しいなどあります。
実際の自分のケースでは上記マクロをどう変えたらよいか,判らないうちは使えません。

お礼

ちょっと難しいですね。私のレベルではここまでは無理かもしれませんが、こういう方法もあることを覚えていたいと思います。
この場をお借りして、回答してくださった皆様にお礼申し上げます。質問をして、こんな短時間にいくつもの回答をいただき、本当に感謝しています。今日中にやり方を調べて、明日会社で仕上げなければならなかったんで、本当に助かりました。
「持つべき者は、ＯＫＷｅｂの仲間の皆様」
といっても過言ではないくらいです。
本当に有難うございました。

回答No.4

matrix4

vlookupで

2ページに、

A1 B1
1 りんご
2 みかん
3 ばなな

1ページに
A2
=IF(A1="","",VLOOKUP(A1,Sheet2!$A$1:$B$3,2,0))
をしたへ、ドラッグ

マクロでもできるとはおもいます・・

お礼

参考になりました。有難うございました。

回答No.2

bin-chan

数多くの過去の質問・回答がありますので、
キーワード「VLOOKUP」で過去の質問検索を行ってみてください。

ＯＳのカテゴリで質問なさってますが、「コンピューター [家庭向け] > ソフトウェア > Microsoftアプリケーション 」の方が良いでしょう。（教えて！ｇｏｏの場合）

お礼

過去の回答の中で参考にできるＨＰを見つけました。
参考になりました。ありがとうございました。

回答No.1

marbin

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

の中に

Select Case

で入力した値が1の場合は

MsgBox "りんご"

2の場合は

MsgBox "みかん"

でもいいですし(入力後はエンターでセルの位置が変わるので
注意)、

1をリンゴに、2をみかに置換、でもいいと思います。

お礼

早速のお返事有難うございました。
エクセルは難しいですね。
参考になりました。