Question

如何在Excel中设置关联的两个下拉列表框?

我的问题是这样的，首先在A1中做一个下拉列表，这个里面比如有1、2、3，三个选项，然后B1与A1关联，但是B1是空白的，也就是后期可以输入数值，然后输入的数值可以与A1的1、2、3相对应，并可以保存。比如A1选1,然后在B1中输入4，然后A1选2在B1中输入5，A1选3在B1中输入6。这时保存，然后B1中就形成了4,5,6的下拉列表同时与A1中的1，2，3相关联对应。在A1选1时B1出现4，在A1选2时B1出现5，在A1选3时B1出现6，同样在B1选4时A1出现1,在B1选5时A1出现2，同样在B1选6时A1出现3。我这个问题自己觉得有点难度，编程或什么方法只要能解决问题就可以，希望弄一个模板发我邮箱76915128@qq.com。请看清问题在回答，不是简单的下拉列表。请高手指教！！！！！

Answer 1

1.找一个空白的位置，建立一个列表，包含所有的学院的名字，如下图。

2.在院校名称这一栏的最下面，选中一个单元格，然后点击菜单栏上面的 数据——有效性

3.在有效性对话框中，点击设置，在设置的面板，设置允许的属性为 序列。然后点击 来源，也就是红色箭头所示的位置。

4.可以看到一个预览的界面，如下图，可以拖拽鼠标来选中刚才建立的这个学院名称的列表，然后点击红色箭头所示的位置，这样就可以回到有效性的对话框。

5.在有效性的对话框中，我们勾选 “忽略空值”（数据源的空值不纳入下拉菜单）和“提供下拉箭头”（在单元格右边出现一个小三角）。点击确定就完成了设定。

6.接着选中一个单元格，点击右边的小三角，打开下拉菜单看一看是不是所有的院校都在下拉菜单里面。但是，这样设定以后，只有这一个单元格有下拉菜单，它下面的所有单元格都没有下拉菜单，还是达不到效果。

7.向下拖动这个单元格的右下角，这样就可以快速的设置下面的单元格。通过此设置以后，下面的所有单元格都具有了下拉菜单。

Answer 2

在工作表标签上击右键，查看代码，在代码窗口中粘贴以下代码，即可

Private Sub Worksheet_Change(ByVal Target As Range) '当发生数据变动事件时执行
On Error Resume Next      '容错
Dim a '声明变量，以暂存相关数据。
Application.EnableEvents = False
'以下部分判断是否A列发生变动。Case后面是A列的选项。根据你的实际情况修改选项。
If Target.Column = 1 Then
Select Case Target
Case "中国"        '注：选项若是数字，可以不用""围，直接写成case 1 下同。
a = 4  '若选择了“中国”，则变量a赋值为4
Case "俄国"
a = 5
Case "英国"
a = 6
End Select
Target.Offset(, 1) = a  '注：变动单元格同行右侧的格子填入变量a保存的值。
End If
'注：以下部分，判断是否B列发生变动，并进行相应处理。
If Target.Column = 2 Then
Select Case Target
Case 4
a = "中国"
Case 5
a = "俄国"
Case 6
a = "英国"
End Select
Target.Offset(, -1) = a '注：变动单元格同行左侧的格子填入变量a保存的值。
End If
a = vbNull '清空变量a
Application.EnableEvents = True
End Sub

附件中有样本文件。可下载试用。

追问

你说的和我要的不太符合，希望你能在看看，然后帮我解决问题。看的出你应该能解决这个问题，只是你没仔细看问题

追答

附件中，拿去用吧（巴蜀兄弟连ydnmc2011提供）

追问

这个不能用啊。调试就出错