Question

我想在Excel 2013中查看命名的单元格范围，如果这些单元格中的文本是白色，那么我想将该单元格右侧单元格中的文本颜色设置为白色。任何人都可以帮助这个可怜的vba编程newb了吗？非常感激。祝你有美好的一天！

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Range("DateOut").Select
    For Each Cell In Selection
        If Cell.Font.ColorIndex = 2 Then
            Cell.Offset(, 1).Font.ColorIndex = 2
        End If
    Next

    End Sub

Answer 1

代码工作正常

   Private Sub Worksheet_SelectionChange(ByVal Target As Range)    
    Range("DateOut").Select
    For Each Cell In Selection
        If Cell.Font.ColorIndex = 2 Then
            Cell.Offset(, 1).Font.ColorIndex = 2
        End If
    Next    
    End Sub

你有哪些部分遇到麻烦？如果您在添加代码的位置时遇到问题

右键单击工作表名称，然后选择查看代码并粘贴

Answer 2

请尝试：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     For Each Cell In Range("DateOut")
     If Cell.Font.ColorIndex = 2 Then Cell.Offset(, 1).Font.ColorIndex = 2
     Next
End Sub

Excel 2013中的着色单元格

2 个答案: