如何在Excel中用VBA实现在下拉列表中选中一个值，然后为其他单元格赋值的操作

Question

例如：G13列下拉选中"上海"，然后为G38，G51，G55这些单元格赋值 "1"
试过用Macro Record，但是每次选好后，都不能自动触发
请各位大神给个答案，而且要自动触发事件
谢谢谢谢

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$G$13" Then
        Select Case Target.Value
            Case "上海": [G38] = 1: [G51] = 1: [G55] = 1
            Case "北京": [G38] = 2: [G51] = 2: [G55] = 2
            Case "天津": [G38] = 3: [G51] = 3: [G55] = 3
            Case "武汉": [G38] = 27: [G51] = 27: [G55] = 27
        End Select
    End If
End Sub

详见附件，修改起来应该不复杂吧！

Answer 2

你只讲了上海，没有说其他，这里以上海为例，你可以加上其他的。如果有数据可以引用，直接引用即可。这里是直接赋值

代码如下（单元格事件）

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$G$13" Then Exit Sub '不是G13单元格，退出程序
    If Target.Value = "上海" Then
        [G38] = 1
        [G51] = 1
        [G55] = 1
    End If
End Sub