|
▼Asaki さん:
>先ずは、マクロの記録をお試しください。
>ご自分で、コードをいろいろいじってみることをお薦めします。
>このような掲示板は、コード作成依頼場所ではありません。
>ご自分で、ある程度の試行錯誤をしていただくべきでしょう。
当然のことながら、進展がないのは私自身の事です。説明不足ですいません。
asakiさんの回答を元に
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim row As Integer
Dim col As Integer
Dim old_row As Integer
Dim old_col As Integer
Dim i As Integer
With Application
'.EnableEvents = False
' MsgBox "test"
row = ActiveCell.row
col = ActiveCell.Column
If row > 1 Then
Range(Cells(row - 1, 2), Cells(row - 1, 5)).Interior.ColorIndex = 0
End If
Range(Cells(row + 1, 2), Cells(row + 1, 5)).Interior.ColorIndex = 0
Range(Cells(row, 2), Cells(row, 5)).Interior.ColorIndex = 6
old_row = row
old_col = col
'Target.EntireRow.Select
'Target(1).Activate
'.EnableEvents = True
End With
End Sub
で、好きな色にして、好きな範囲を変えるまではできました。
しかし、これを実行していると、コピー・貼り付けができなくて
困っている状態でして。
失礼が、あったことを重ね重ねお詫びします。
失礼しました。
|
|