工作表模組下植入:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
Me.UsedRange.EntireColumn.Interior.ColorIndex = xlNone
'↑令本表使用格的整欄底色為無色
.EntireColumn.Interior.ColorIndex = 6
'↑令選取格的整欄底色為黃色
End With
End Sub作者: hcm19522 時間: 2024-2-2 09:45