0

我有一个动态 Excel 电子表格，其中添加和删除了行。出于这个原因，我不能使用它们的范围来定位单元格。case是否可以通过在场景中使用它们的名称来定位单元格？

这是我现在的工作代码：

Select Case Target.Address


Case "$G$14"
        If Range("RequestorField").Value = "" Then
            Range("RequestorField").Interior.Color = RGB(255, 199, 206)
        Else
            Range("RequestorField").Interior.Color = RGB(215, 228, 188)
        End If

替换$G$14为RequestorField杀死代码。

有任何想法吗？谢谢！

ps：这一切都在WORKSHEET_CHANGE函数中，因此我需要使用“case”。

4

1 回答 1

3

利用Target.Name.Name

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Name.Name

    Case "RequestorField"
        If Range("RequestorField").Value = "" Then
            Range("RequestorField").Interior.Color = RGB(255, 199, 206)
        Else
            Range("RequestorField").Interior.Color = RGB(215, 228, 188)
        End If 
    End Select

End Sub
于 2013-06-07T15:30:17.457 回答