|
改行でマクロを動かすサンプルです。
Case の条件を増やせば、可能です。
Sub 表示変更のマクロ開始()
Application.OnKey "{ENTER}", "表示変更"
Application.OnKey "~", "表示変更"
End Sub
Sub 表示変更のマクロ終了()
Application.OnKey "{ENTER}"
Application.OnKey "~"
End Sub
Public Sub 表示変更()
If Mid(ActiveCell.Address, 1, 3) = "$C$" Then
' C列だけ色を付ける
Select Case Range(ActiveCell.Address).Value
Case 0.1
Range(ActiveCell.Address).Interior.ColorIndex = 3
Case 0.2
Range(ActiveCell.Address).Interior.ColorIndex = 4
Case 0.3
Range(ActiveCell.Address).Interior.ColorIndex = 5
Case Else
Range(ActiveCell.Address).Interior.ColorIndex = 0
End Select
End If
ActiveCell.Offset(1, 0).Select
End Sub
|
|