|
終わりのところをなんなんですが。。。
F12キーを押すと、SelectionChangeでやっている色をつけたり、の処理のOn/Offを切り替えます。
適当にアレンジしてください。
初期起動時は On です。
ThisWorkbook に
Private Sub Workbook_Open()
blnSelectRowOn = True
Application.OnKey "{F12}", "chgSelection"
End Sub
標準モジュールを追加して、
Public blnSelectRowOn As Boolean
Sub chgSelection()
blnSelectRowOn = Not blnSelectRowOn
End Sub
対象シートのSelectionChangeイベントを、↓こんな感じにすると、
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim new_row As Long
Dim new_col As Long
Dim old_row As Long
Dim old_col As Long
If blnSelectRowOn Then
new_row = ActiveCell.Row
new_col = ActiveCell.Column
If new_row > 1 Then
Range(Cells(new_row - 1, 2), Cells(new_row - 1, 5)).Interior.ColorIndex = 0
End If
Range(Cells(new_row + 1, 2), Cells(new_row + 1, 5)).Interior.ColorIndex = 0
Range(Cells(new_row, 2), Cells(new_row, 5)).Interior.ColorIndex = 6
old_row = new_row
old_col = new_col
End If
End Sub
行番号を格納するような変数は、Long型が無難です。
また、Row は同名のプロパティがありますから、変数には利用されないことをお薦めします。
|
|