我正在研究一个宏,该宏在dData范围内循环并标识哪些单元格具有白色字体颜色。然后,它更改与dData white相邻的任何单元格的字体颜色。下面的代码是我到目前为止所拥有的。它尚不起作用,但是,我走在正确的轨道上吗?
谢谢!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim dData As Range
Dim Cell As Range
Set dData = Sheets("Sheet1").Range("l2:l10000")
For Each Cell In dData
If Cell.Font.Color = 2 Then
Cell.Offset(0, -1).Font.Color = 2
End If
Next Cell
End Sub
这似乎为我工作。
Sub Test()
Dim dData As Range
Dim Cell As Range
Set dData = Sheets("Sheet1").Range("l2:l10000")
For Each Cell In dData.Cells
If Cell.Font.Color = 16777215 Then
Cell.offset(,1).Font.Color = 16777215
End If
Next
End Sub
另请注意,范围dData
仅限于Sheet1
在我的计算机上,“白色”是一个很长的值,16777215
它在2010 Excel中对我有用,我认为应该在2007年使用。在Excel 2003中,我不确定。
尝试这个
Sub Sample()
Dim dData As Range, aCell As Range
Set dData = Sheets("Sheet1").Range("L2:L10000")
For Each aCell In dData.Cells
If aCell.Font.ColorIndex = 2 Then _
aCell.Offset(, 1).Font.ColorIndex = 2
Next
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句