エクセルにて入力内容とは異なる表示

質問

エクセルのセルへの入力を例えば「１」を入力すると
表示は「男性」、「２」と入力すると「女性」と表示させることはできるのでしょうか？
宜しくお願いいたします。

回答No.7

imogasi

>3つ以上のケースがある場合は、動かないようですが、そういう仕組みになっているのでしょうか
そうです。あくまで既回答も傍流の機能で、エクセルの解説書でも解説の無い本も多い。
ーー
ＶＢＡでやればできることはできる。
表示でなく値そのものを変えてしまうので、上記と厳密に言うと違うが(注）。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
a = Array(1, "東京", 2, "大阪", 3, "名古屋", 4, "福岡", 5, "札幌")
For i = 0 To UBound(a) Step 2
If Target = a(i) Then Target = a(i + 1)
Next
End If
End Sub
Ｓｈｅｅｔ１のシートのイベントモジュールとして張り付け。
Ａ列で１と入れると「東京」の値が入る
VBAのイベントを理解してからのことだが。
ーー
（注）書式だけにするには
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
a = Array(1, "東京", 2, "大阪", 3, "名古屋", 4, "福岡", 5, "札幌")
For i = 0 To UBound(a) Step 2
If Target = a(i) Then Target.NumberFormatLocal = a(i + 1)
Next
End If
End Sub

お礼

imogasiさん、ありがとうございます。
参考にさせていただきます。