如何使用VBA代碼更改單元格顏色?

我選擇了這個代碼,當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
? 最佳回答:

用你的例子和我認為你的要求,這是實現我認為你要求的最簡單的方法。

選擇中只有一行,或者只想更改第一行

這可以更改為使用范圍對象,但這很容易理解

Dim lTarget As Range
Const TargetCol1    As Integer = 9
Const TargetCol2    As Integer = 10

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
        
        Cells(Target.Row, TargetCol1).Interior.Color = 9359529
        Cells(Target.Row, TargetCol2).Interior.Color = 9359529
        
        Set lTarget = Target
    End If
End Sub
主站蜘蛛池模板: 视频一区二区在线播放| 国产香蕉一区二区精品视频| 亚洲福利视频一区二区三区| 精品人妻中文av一区二区三区| 精品亚洲福利一区二区| 激情内射日本一区二区三区| 国产在线一区二区视频| 精品国产一区二区三区不卡 | 在线免费视频一区| 色狠狠一区二区三区香蕉| 在线观看午夜亚洲一区| V一区无码内射国产| aⅴ一区二区三区无卡无码| 日韩熟女精品一区二区三区| 波多野结衣中文字幕一区二区三区 | 日韩视频在线观看一区二区| 国产精品一区二区久久乐下载 | 国产福利一区二区在线视频 | tom影院亚洲国产一区二区 | 精品少妇一区二区三区在线 | 精品国产一区二区22| 无遮挡免费一区二区三区| 国产人妖视频一区二区破除| 精品视频一区二区| 区三区激情福利综合中文字幕在线一区亚洲视频1 | 久久99久久无码毛片一区二区| 日韩有码一区二区| 亚洲日本一区二区一本一道 | 日韩精品福利视频一区二区三区| 亚洲国产精品无码第一区二区三区 | 精品伦精品一区二区三区视频 | 人妻少妇精品视频一区二区三区| 久久精品岛国av一区二区无码| 久久se精品一区二区| 久久久久人妻一区二区三区vr| 97精品国产一区二区三区| 天堂一区人妻无码| 国产成人综合精品一区| 末成年女A∨片一区二区| 亚洲AV无码一区二区三区性色| 国产精品成人免费一区二区 |