当同一工作簿中不同工作表中同一行的“A”列中出现“X”时,如何为一张 Excel 工作表中的整行添加阴影?
答案1
尝试一下这个小宏:
Sub ShadyRow()
Dim s1 As Worksheet, s2 As Worksheet, N As Long
Dim i As Long
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
N = s1.Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To N
If s1.Cells(i, "A").Value = "X" Then
s2.Cells(i, "A").EntireRow.Interior.Color = RGB(100, 100, 100)
End If
Next i
End Sub
答案2
回答
应用以下“使用公式确定要格式化的单元格Tab 2
“对您希望应用阴影的所有单元格进行条件格式设置:
=INDIRECT("'Sheet 1'!R"&ROW()&"C1",FALSE)="X"
将其替换Sheet 1
为实际工作表名称Tab 1
,并在条件格式对话框中根据需要定义格式。
笔记
- 仅当工作表名称中包含一个或多个空格时,才需要使用工作表名称两侧的单引号。
- 参数
FALSE
告诉INDIRECT
它使用 R1C1 样式的引用,而不是 A1 样式的引用。 - 使用适当的字符串连接构造,可以轻松地将条件格式公式指向此工作表或另一工作表上的单元格,以便
Tab 1
用户可以通过编辑包含目标工作表名称的相关单元格来更改确定突出显示的工作表(此处)。