エクセルのマクロを教えてください。

数字を入れるだけで値を出したいです。

シート1の
I列に1を入れると男、2を入れると女
J列に1を入れると東京、2を入れると北海道、3を入れると大阪、4を入れると高知、
Q列に1を入れると確定、2を入れると未確定、
R列に1を入れると○、2を入れると×、0を入れると○×

このように数字を入れるだけで該当する値を表示させたいです。
マクロ以外では行いたくないです。

マクロのコードを教えてください。

No.1 回答者： kup-ue 回答日時： 2022/01/19 09:19

なぜに関数でなくマクロを所望？

マクロを起動するにはトリガーとなるものが必要だが、セルの入力によるものなら、関数を使うのが常道。
関数からマクロというかサブルーチンを呼んでも良いですしね。

入力が終わってから一斉に処理するなら、マクロ的にサブルーチンを呼ぶという考えもありますけどね。

ここら辺は、理解されてますか？

関数を使えば、セルに入力が終わった時点で、関連するセルの値を規則に従って変更するルーチンが簡単に書けますが、まず上に上げたことくらいから勉強しないと、答えがわかっても応用が全く効かなくなるでしょうね。

No.2 回答者： satoumasaru 回答日時： 2022/01/19 09:20

自分で一度マクロをくんでみて、それで質問される方がよいですよ。

ここはマクロの作製を請け負うサイトではありませんので。

マクロって融通がききません。
行を追加したり列を追加したりするとそれだけでグチャグチャになりす。

それにこの程度だったらVLOOKUP関数でやる方がはるかに楽ですし融通もつくと思いますよ。

No.3 ベストアンサー 回答者： tatsumaru77 回答日時： 2022/01/19 10:03

シート１のシートモジュールに以下のマクロを貼り付けてください。

（標準モジュールに貼り付けてはいけません）
I列のケースについてのみサポートしています。
これをコピーして他の列も作ってください。
不明点があれば、補足してください。

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 9 Then 'I列の場合
If Cells(Target.Row, Target.Column).Value = 1 Then
Cells(Target.Row, Target.Column).Value = "男"
End If
If Cells(Target.Row, Target.Column).Value = 2 Then
Cells(Target.Row, Target.Column).Value = "女"
End If
End If
Application.EnableEvents = True
End Sub

この回答へのお礼

ありがとうございました。
思うことができました！

お礼日時：2022/01/20 09:19

No.4 回答者： 初心者ですが何か。 回答日時： 2022/01/19 10:04

初心者なのでちょっと疑問はあります。

表示したいセルに値を入力したとして、それを変換する数式はそのセルに書けるのでしたっけ？って所でしょうか。
或いは数式を極めるとそんな技を習得できるのかな？
出来ないから未だ初心者なのか～。

まぁ入力規則で入力出来る項目を限定させてしまうってのならわかります。

No.5 回答者： ぐーるぐる 回答日時： 2022/01/19 13:40

この程度でマクロは不要ですよ。

関数で十分できます。

No.6 回答者： 初心者ですが何か。 回答日時： 2022/01/19 14:26

No.4です。

あ～。
１と入力させるセルと”？”任意の語句を表示させるセルが同じとは書いてないですものね。
てっきりTarget.Valueを条件で入力セルの値書き換えしかないと思い込んでました。