Excel宏来更改活动单元格

时间:2015-10-25 16:06:21

标签: excel vba excel-vba

我在Excel中创建了一个表单。根据用户如何完成一个单元格,更改下一个填充的单元格(例如:如果他们回答“X”时填写A10,他们将移动到B1,如果他们回答“Y”,他们将移动到B3。)< / p>

为了引导用户浏览表单,我创建了一组复杂的条件格式规则,它们将“突出显示”(背景填充)他们需要填写的下一个单元格。一旦完成单元格,该单元格上的格式就会消失并切换到下一个单元格。

我的条件格式正是我想要的。我的问题是:有没有办法让活动单元遵循相同的路径。通过设置引导条件格式的相同公式规则,还是有办法让宏自动将活动单元格设置为条件格式的“突出显示”单元格?

1 个答案:

答案 0 :(得分:0)

试试这个:

Private Sub Worksheet_Change(ByVal Target As Range)
    Const NEUTRAL = 16777215
    Dim r As Range
    For Each r In Cells.SpecialCells(xlCellTypeAllFormatConditions)
        If r.DisplayFormat.Interior.Color <> NEUTRAL Then
            r.Select
            Exit For
        End If
    Next
End Sub

注意:如果未突出显示的单元格颜色与纯白色不同,则可以在顶部编辑NEUTRAL

注意:这假定您希望选择要跳转到的单元格是工作表中使用条件格式突出显示的唯一单元格。