自习室竞答:选中的行填色

zzmxy

方法1：【条件格式】
1. 选中A1:I12单元格区域，
2. 应用“条件格式”，选择“公式”，如下：

1. =ROW()=CELL("row")

复制代码

3. 选择符合条件的背景填充为“浅蓝色”，确定即可！
4. 变动选区后，需按F9刷新。

方法2：【VBA】
1. 在当前工作表的代码窗口输入下面代码即可：

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Row < 13 And Target.Column < 10 Then
   
3.         Range("A1:I12").Interior.ColorIndex = xlNone
   
4.         With Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Interior
   
5.             .ThemeColor = xlThemeColorAccent5
   
6.             .TintAndShade = 0.599993896298105
   
7.         End With
   
8.     End If
   
9. End Sub

复制代码

lantian1005

谢谢分享谢谢分享谢谢分享

wuliwm

看看答案~~~

笨笨-猪

学习下{:29:}

wen191244510

哈哈哈，看答案

qhx

好哦真好啊

zzhdi

看一下怎么这么难

ch99love

借鉴学习一下

liyuwork

学习！支持

catstory

真好要用到，学习