[已解决]根据结果查询条件

xzwdk

目前通过下拉菜单实现了结果查询。请问我想在E5中输入结果，能否实现下拉框内容自动变化呢？

最佳答案

月排行榜 / 总排行榜

xdragon

2013-10-24 16:04

xzwdk 发表于 2013-10-24 15:30
xdragon老师肯定比较忙。

老师谈不上的 -。- 互相帮助吧。。。已经弄好了，你看下吧

刚才确实在弄工作的事情。哈哈

跳转到最佳答案楼层

xdragon

楼主，其实你已经做出来了。。。只做了略微的修改

huangcaiguang

应该引入电脑员个变量，加一个OFFSET函数可以实现

xzwdk

xdragon 发表于 2013-10-24 13:10
楼主，其实你已经做出来了。。。只做了略微的修改

呵呵，谢谢。不能实现。是不是您未保存就上传了？请帮忙看看

xdragon

xzwdk 发表于 2013-10-24 13:16
呵呵，谢谢。不能实现。是不是您未保存就上传了？请帮忙看看

我这里可以啊。。。。我直接打开我上传附件看的

xdragon

1. Private Sub ComboBox1_Change()
   
2. Dim arr, i&
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. arr = [a9:B19]
   
5.     For i = 1 To UBound(arr)
   
6.     d(arr(i, 1)) = arr(i, 2)
   
7.     Next i
   
8. 
   
9. [e5] = d(ComboBox1.Value)
   
10. End Sub

复制代码

要不你自己加这段代码吧。。。

xzwdk

xdragon 发表于 2013-10-24 13:26
要不你自己加这段代码吧。。。

老师帮忙看看。我将您提示的代码复制进去了。保存了。在E5里面输入信息后，下拉框没有变化。

xdragon

额。。看来是我的意思理解反了，不过你这个E5就一个名称，下拉框也改为就一个吗？

xzwdk

xdragon 发表于 2013-10-24 13:44
额。。看来是我的意思理解反了，不过你这个E5就一个名称，下拉框也改为就一个吗？

我想实现:
1、下拉框选择后，E5中显示名称。
2、在E5中输入名称，下拉框对应的条件也自动对应上。例如当E5里面输入“M2”,对应的下拉框里面的内容变为“B”.

xzwdk

xdragon老师肯定比较忙。