|
▼Asaki さん:
>終わりのところをなんなんですが。。。
>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 は同名のプロパティがありますから、変数には利用されないことをお薦めします。
早速作成したところ、うまくできました。
細かなコメントも再三に渡っていただきありがとうございました。
|
|