VBA中基于背景色跳过单元格的代码

Question

我必须创建一个调度代码，该代码将生成到相应日期的步骤。这个过程是6个步骤，每一步需要一天，但它不能在周末完成，我有彩色涂层灰色。是否有一种方法可以在VBA中编码，即如果进程在星期三开始，它将为Wed生成步骤6-4，然后在周一继续执行步骤3-1的其余部分？下面是我创建的代码，用于将步骤生成到相应的框中。我很感激你的帮助！

Sub Process()

Dim c As Range

If Selection.Value = "Step 6" Then
Selection.Offset(0, 1).Value = "Step 5"
Selection.Offset(0, 2).Value = "Step 4"
Selection.Offset(0, 3).Value = "Step 3"
Selection.Offset(0, 4).Value = "Step 2"
Selection.Offset(0, 5).Value = "Step 1"
Selection.Offset(0, 6).Value = "Finish"

End If


End Sub

Answer 1

谢谢你的投入！我能够根据周末的灰色创建和测试代码。

ActiveCell.Value = "Step 1"
If Selection.Offset(0, 1).Interior.ColorIndex = 15 Then
Selection.Offset(0, 4).Value = "Step 2"
Selection.Offset(0, 5).Value = "Step 3"
ElseIf Selection.Offset(0, 2).Interior.ColorIndex = 15 Then
Selection.Offset(0, 1).Value = "Step 2"
Selection.Offset(0, 5).Value = "Step 3"
ElseIf Selection.Offset(0, 3).Interior.ColorIndex = 15 Then
Selection.Offset(0, 1).Value = "Step 2"
Selection.Offset(0, 2).Value = "Step 3"

End If

End Sub