エクセルで数字を言葉にする 複数バージョン

こちらの方法で、エクセルの数字を文字に置き換えています。
（１と入力したらりんご、２と入力したらみかん　など）
https://oshiete.goo.ne.jp/qa/8514181.html

これを、複数行いたい場合、どのように入力すればよいのでしょうか？
例：
A~C　は　１＝りんご　２＝みかん
E~H　は　１＝あか　２＝あお　など…

No.2 ベストアンサー 回答者： siffon9 回答日時： 2018/08/05 04:26

今後、対象列が追加される場合を考慮して汎用性を持たせてみました。

変数listに、対象列を変換候補を追加していって下さい。


Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim list As Variant
　　Dim area As Variant
　　Dim flag As Boolean
　　
　　' 対象列を追加する場合はここに追加する
　　list = Array( _
　　　　　　Array("A:C", "りんご", "みかん"), _
　　　　　　Array("E:H", "あか", "あお", "きいろ"), _
　　　　　　Array("I", "やま", "うみ") _
　　　　)
　　
　　flag = True
　　For Each area In list
　　　　If Not Application.Intersect(Target, Me.Columns(CStr(area(0)))) Is Nothing Then
　　　　　　flag = False
　　　　　　Exit For
　　　　End If
　　Next
　　If flag Then Exit Sub
　　
　　If IsNumeric(Target.Value) Then
　　　　If CLng(Target.Value) > 0 And CInt(Target.Value) <= UBound(area) Then
　　　　　　Target.Value = area(Target.Value)
　　　　End If
　　End If

End Sub

この回答へのお礼

応用も聞いて助かりました！ありがとうございました

お礼日時：2018/08/18 03:08

No.4 回答者： mike_g 回答日時： 2018/08/05 13:09

》 A～C は 1=りんご 2=みかん

》 E～H は 1=あか　 2=あお

添付図参照
A～C の書式を、
[=1]"りんご";[=2]"みかん";""
に、
E～H の書式を、
[=1]"あか";[=2]"あお";""
に、
それぞれ設定しているだけ。此れじゃダメ？

この回答へのお礼

条件付き書式を使ったのでしょうか？

お礼日時：2018/08/18 03:06

No.3 回答者： めぐみん_ 回答日時： 2018/08/05 07:29

実際のデータ量（変換の組み合わせ数）によるかなと、思いますよ

No.1 回答者： tom04 回答日時： 2018/08/05 00:11

こんばんは！

Private Sub Worksheet_Change(ByVal Target As Range)
　If Intersect(Target, Range("A:C,E:H")) Is Nothing Or Target.Count > 1 Then Exit Sub
　　With Target
　　　If .Column <= 3 Then
　　　　Select Case .Value
　　　　　Case 1
　　　　　　.Value = "りんご"
　　　　　Case 2
　　　　　　.Value = "みかん"
　　　　End Select
　　　Else
　　　　Select Case .Value
　　　　　Case 1
　　　　　　.Value = "あか"
　　　　　Case 2
　　　　　　.Value = "あお"
　　　　End Select
　　　End If
　　End With
End Sub

こんな感じではどうでしょうか？m(_ _)m