如何在<em>Excel</em>中用<em>VBA</em>实现在&l

假设数据有效性在A1单元格
dim a
a=range("A1").value
或者
a=cells(1,1).value

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

代码如下（单元格事件）

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

用单元格事件就可以了

　　代码如下，需e799bee5baa6e997aee7ad94e58685e5aeb9336要使用VBAworksheet事件。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value = "B" Then

  
    With Range("B1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="E,F,G"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .IMEMode = xlIMEModeNoControl
        .ShowInput = True
        .ShowError = True
    End With


End If

End Sub