- 269 名前：デフォルトの名無しさん mailto:sage [2009/05/31(日) 15:09:59 ]
- 昔は>>261や>>262みたいなのは重くて使えなかったのは確かだが、今のパソコンはそれほどでもないんじゃない？
Excel97が出たころは一工夫して下みたいな十字カーソルをやってた。
もっともExcel97はTargetじゃなくSelectionだったかも。
Dim rng As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not rng Is Nothing Then
rng.Interior.ColorIndex = xlColorIndexNone
End If
With Target
Set rng = Union(.EntireRow, .EntireColumn)
End With
rng.Interior.ColorIndex = 8
End Sub
今のExcelは行列番号の色がはっきり違って目立つから全然必要ないと思うんだが。
