我選擇了這個代碼,當TiveCell位于6行后面時,選擇并更改整個行的內部顏色(綠色)。我需要更改此代碼,以選擇并更改activecell所在行“I”和“J”列的內部顏色(顏色=9359529)。與此代碼類似,但不需要整行,只需要I和J列。有人能幫我嗎?
Dim lTarget As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row >= 6 Then
If Not lTarget Is Nothing Then
lTarget.EntireRow.Interior.ColorIndex = 0
End If
Target.EntireRow.Interior.Color = 9359529
Set lTarget = Target
End If
End Sub
用你的例子和我認為你的要求,這是實現我認為你要求的最簡單的方法。
選擇中只有一行,或者只想更改第一行
這可以更改為使用范圍對象,但這很容易理解