VBA如何根据单元格背景色跳过周末实现工序自动排程

核心修改思路是替换原有固定列偏移的逻辑，每次向右定位单元格时自动跳过背景为灰色的周末单元格，直到找到可填充的工作日单元格再写入对应步骤内容。

实现代码 #

Sub Process()
    Dim currentCell As Range
    Dim stepNum As Integer
    ' 灰色周末单元格的ColorIndex值，若实际填充色不符可自行调整
    Const WEEKEND_COLOR_INDEX As Integer = 15
    
    ' 校验选中单元格是否为流程起始格
    If Selection.Value <> "Step 6" Then Exit Sub
    
    Set currentCell = Selection
    ' 依次填充Step5到Step1
    For stepNum = 5 To 1 Step -1
        ' 向右偏移1格后检查是否为周末灰色格
        Set currentCell = currentCell.Offset(0, 1)
        ' 遇到周末格持续右移直到找到工作日格
        Do While currentCell.Interior.ColorIndex = WEEKEND_COLOR_INDEX
            Set currentCell = currentCell.Offset(0, 1)
        Loop
        ' 写入对应步骤
        currentCell.Value = "Step " & stepNum
    Next
    
    ' 填充Finish标记
    Set currentCell = currentCell.Offset(0, 1)
    Do While currentCell.Interior.ColorIndex = WEEKEND_COLOR_INDEX
        Set currentCell = currentCell.Offset(0, 1)
    Loop
    currentCell.Value = "Finish"
End Sub

注意事项 #

• 代码中WEEKEND_COLOR_INDEX常量对应周末灰色单元格的色号，如果你表格里的灰色填充不是15，可以选中任意一个周末灰色单元格，在VBA编辑器的立即窗口输入?Selection.Interior.ColorIndex按回车获取准确色号，替换常量值即可。
• 运行代码前必须选中已经填入Step 6的流程起始单元格，否则代码会直接退出不会执行填充。
• 逻辑完全匹配周三启动场景：周三填Step6、周四Step5、周五Step4，之后自动跳过周六周日两个灰色格，到周一填Step3、周二Step2、周三Step1，下一个工作日填Finish。

内容的提问来源于stack exchange，提问作者Luis124