excel 里如何用宏根据某个单元格的颜色，设置这个单元格左右五个单元格的颜色？

发布网友发布时间：2022-05-13 07:19

共3个回答

热心网友时间：2024-02-21 09:48

我写了一个，请试用下。

Sub FillBackground()
Dim background, myCell As Range, theRow As Long
Dim startCell As Integer, endCell As Integer
Set myCell = ActiveCell
theRow = myCell.Row()
background = myCell.Interior.Color
startCell = myCell.Column() - 5
If startCell < 1 Then startCell = 1
endCell = myCell.Column() + 5
Range(Cells(theRow, startCell), Cells(theRow, endCell)).Interior.Color = background
myCell.Offset(1, 0).Range("A1").Select '选中下一行同列单元格
End Sub

注意：请在执行宏之前，选中那个基准单元格（就是以这个单元格为基准，把它的颜色向左向右扩展的）。当左边不足5个单元格时，就到第1个为止。

GoodLuck!

热心网友时间：2024-02-21 09:48

条件语句，if then就可以了

热心网友时间：2024-02-21 09:49

if then

excel 里如何用宏 根据 某个单元格的颜色，设置这个单元格左右五个单元格的颜色？

excel 里如何用宏根据某个单元格的颜色，设置这个单元格左右五个单元格的颜色？