エクセルのセルに1を入力したらー、2を入力したら○、3を入力したら△、4なら×、5なら夏、6なら祝、

エクセルのセルに1を入力したらー、2を入力したら○、3を入力したら△、4なら×、5なら夏、6なら祝、がいれられるようにしたいです。
初歩的な質問かもしれませんがどなたか教えていただけたらと思います。

質問者からの補足コメント

• 

  みなさま早速のご回答ありがとうございます。
  
  少し説明が足りていなかったので追加をさせていただきます
  
  具体的には勤務表を作成してます。
  A2〜A5までは名前が書かれています
  B1〜AF1までは日にちが書いています（１日〜３１日）
  自分が行いたいことは、
  B2に１入力でB2が「ー」に変換される、２入力で「○」、３入力で「△」、４入力で「×」、５入力で「夏」、６入力で「祝」、となるような物をイメージしています。
  
  どなたかご存知の方がいましたらよろしくお願います。

    補足日時：2020/08/02 19:38

No.1 回答者： nekoronda 回答日時： 2020/08/02 12:15

セルの入力位置がA１セル、表示位置をB2セルとするなら

B２セルに
=IF(A1=1,"-",IF(A1=2,"〇",IF(A1=3,"△",IF(A1=4,"×",IF(A1=5,"夏",IF(A1=6,"祝",""))))))
と入力してください

No.2 回答者： tom04 回答日時： 2020/08/02 12:39

こんにちは！

=IFERROR(CHOOSE(A1,"ー","○","△","×","夏","祝"),"")

でもいけると思います。m(_ _)m

No.3 回答者： chonami 回答日時： 2020/08/02 14:14

一般機能の範囲で同セルでやるなら、表示のみ変わって中身のデータは1とか2のままということになりますが条件付き書式で可能です。

式でやるならA1に数値を入れて別セルに

=MID("ー○△×夏祝",A1,1)

でもできそうですね。

No.4 回答者： GOMΛFU 回答日時： 2020/08/02 19:59

B2に入力してB2に反映させるにはvbaしかありませんが。

この回答へのお礼

早速のご回答ありがとうございます。
VBAしか方法がないのですね。初心者のため難易度が高く感じてしまいました。自分でももう少し調べたりしたいと思います。ありがとうございました。

お礼日時：2020/08/02 21:37

No.5 回答者： chonami 回答日時： 2020/08/02 20:14

同セルでの回答は既にあります(VBA・条件付き書式)が、それについてはどう思われているのですか？

まるで、誰も書いてないかのようなコメントはどうかと思います。

この回答へのお礼

chonamiさん　ご回答ありがとうございます。エクセル初心者ということもありVBAがわかっておらず条件付きというのも理解しておりませんでした。もう一度回答いただいた内容を実践してみます。すみませんでした。

お礼日時：2020/08/02 21:34

No.6 ベストアンサー 回答者： tom04 回答日時： 2020/08/02 20:32

No.2です。

入力したセルそのもののデータを変更したい！というコトですね。
関数では無理です。
VBAになりますが、一例です。

シートモジュールにしてください。
尚、範囲はB2～AF5セルをしてみました。

Private Sub Worksheet_Change(ByVal Target As Range)
　If Intersect(Target, Range("B2:AF5")) Is Nothing Or Target.Count > 1 Then Exit Sub
　　With Target
　　　If .Value >= 1 And .Value <= 6 Then
　　　　Select Case .Value
　　　　　Case 1
　　　　　　.Value = "－"
　　　　　Case 2
　　　　　　.Value = "○"
　　　　　Case 3
　　　　　　.Value = "△"
　　　　　Case 4
　　　　　　.Value = "×"
　　　　　Case 5
　　　　　　.Value = "夏"
　　　　　Case Else
　　　　　　.Value = "祝"
　　　　End Select
　　　End If
　　End With
End Sub

まずはこの程度で・・・m(_ _)m

この回答へのお礼

tom04様　ご回答ありがとうございます。


関数では無理なこと、エクセル初心者でもわかりやすいように説明してくださりありがとうございます。教えてくださった内容をそのままコピぺしたらできるようになりました。
本当にありがとうございます！

お礼日時：2020/08/02 22:42