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
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