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

数字を入力と該当文字にする。

C列に1と入れると東京都、2で埼玉県、3で神奈川県、4で千葉県
D列に1と入れると男性、2で女性
F列に1と入れると10代、2で20代、3で30代、4で40代、5で50代、6で60代、7で70代以上
と言った具合に数字を入力すると文字に変えたいです。

マクロのコードを教えてください。
セルの書式ユーザー設定で作りたくはないです。

宜しくお願いします。

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2022/03/30 10:33

こんにちは

仕様変更時、ご自身で直せることを期待して
雑に走り書きサンプルです。
ちょっと時間がないので説明は割愛します
対象のシートモジュールへ
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C:D,F:F")) Is Nothing Then Exit Sub
Application.EnableEvents = False
With Target
If IsNumeric(.Value) And .Value <> "" Then
Select Case .Column
Case 3
If .Value >= 1 And .Value <= 4 Then .Value = Split("東京都,埼玉県, 神奈川県, 千葉県", ",")(.Value - 1) Else GoTo myNG
Case 4
If .Value >= 1 And .Value <= 2 Then .Value = Split("男性,女性", ",")(.Value - 1) Else GoTo myNG
Case 6
If .Value >= 1 And .Value <= 7 Then .Value = Split("10代,20代,30代,40代,50代,60代,70代以上", ",")(.Value - 1) Else GoTo myNG
End Select
Else
If .Value = "" Then GoTo myEnd Else GoTo myNG
End If
End With
myEnd:
Application.EnableEvents = True
Exit Sub
myNG:
MsgBox ("入力が適切ではありません")
Application.Undo
GoTo myEnd
End Sub
入力が指定数値以外の場合、メッセージ出力と入力前に戻します（空白は例外、複数セル範囲の対応はご自身で加えてください）
もし、条件に合っていない部分があればご自身で・・

この回答へのお礼

ありがとうございます！！
とても助かりましたぁ！

お礼日時：2022/03/30 11:28