根据另一栏内容编写特定文本

Question

我想知道是否可以根据另一栏内容编写特定的文本。

比如我有这个专栏

我想做的是：每次我在“水果”列中写上“芒果”时，它都会自动在“颜色”列中写上“绿色”。

提前谢谢您！

Answer 1

您可以使用大的 Select-Case 条件：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    For Each rng In Target
        Select Case rng.Formula
            Case "Mango": rng.Offset(0,1).Formula = "Green"
            Case "Apple": rng.Offset(0,1).Formula = "Pink"
            Case "Tangerine": rng.Offset(0,1).Formula = "Orange"
            Case "Cherry": rng.Offset(0,1).Formula = "Red"
    Next rng
End Sub

这会自动将水果右侧的单元格公式更改为所选颜色。那些没有写成 Fruit 的将被忽略。