首选你需要在工作表中插入一个ActiveX控件的combobox（组合框）控件，在属性中设置好ListFillRange和linkedCell。
在vbe编辑器中插入模块，分别写每个以地名命名的模块。
在写一个combobox的change事件，当组合框的value发生变化时，执行相对应的value的模块。比如下面的代码：
Private Sub ComboBox1_Change()
With Me.ComboBox1
If .Value = "南京" Then Call 南京
If .Value = "北京" Then Call 北京
If .Value = "天津" Then Call 天津
If .Value = "上海" Then Call 上海
End With
以上步骤完成后，当你在组合框中选择性对应的值，就可以执行你需要的宏代码了。
用工作表事件：
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024