VBAによる数字入力で文字列表示

質問

いつもお世話になります。
WIN7 EXCELL2010です。

一つのシートに４ヶ月分があって合計３つのシートがあります。
１月のみの記入するところのマクロは下記のマクロのように何とか作成しました。

一つのシートでRangeが４ヶ所に分かれている場合で

B6:B8(下記のマクロ) B18:AF20 B30:AF32 B B42:AF44

ですが下記のマクロをどう変えればベストかを誠に申し訳ありませんがご指導いただけないでしょうか。

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If Intersect(Target, Range("B6:AF8")) Is Nothing Then Exit Sub
.Font.ColorIndex = 0
Application.EnableEvents = False
Select Case .Value
Case 0: .Value = Empty
Case 1 To 3
.Value = Choose(.Value, "営業", "休日", "特休")
Case 4 To 9
.Value = Choose(.Value - 3 , "出勤",”代休”,”有給”,”休出”,”遅刻”,”早退”)
End Select
Application.EnableEvents = True
End With
End Sub

回答No.1

cj_mover · ベストアンサー

こんにちは。

４つの領域に対して一様の処理ということのようですから、
次のようにすれば宜しいかと。
因みに
　　　　If .Count > 1 Then Exit Sub
は、複数範囲の値変更、例えば貼り付けたり、纏めて消去したり
して時のエラーにならない対策として付け加えました。
大体、_Changeイベントにはセットになっている記述ですので、
標準化する意味ではあった方がいいかも知れませんが、
求める仕様によっては不向きかも知れませんので、
採否はお任せします。

Private Sub Worksheet_Change(ByVal Target As Range)
　　With Target
　　　　If .Count > 1 Then Exit Sub
　　　　If Intersect(Target, Range("B6:AF8,B18:AF20,B30:AF32,B42:AF44")) Is Nothing Then Exit Sub
　　　　.Font.ColorIndex = 0
　　　　Application.EnableEvents = False
　　　　Select Case .Value
　　　　Case 0
　　　　　　.Value = Empty
　　　　Case 1 To 3
　　　　　　.Value = Choose(.Value, "営業", "休日", "特休")
　　　　Case 4 To 9
　　　　　　.Value = Choose(.Value - 3, "出勤", "代休", "有給", "休出", "遅刻", "早退")
　　　　End Select
　　　　Application.EnableEvents = True
　　End With
End Sub

お礼

御回答いただき誠に有難うございます。
早速試させていただきました。
スムーズにでき省力化ができて大変うれしいです。