[已解决]请帮忙分析一下为什么按钮命令执行后无变化

xzwdk

首先感谢xdragon老师昨天给我耐心的指导。
根据xdragon老师的指导案例，我进行了对比修改。目的是想查询输出结果是由下拉框里面的哪个条件产生的。
现在我想用按钮指令替代Worksheet_Change指令，如附件。应该如何修改按钮指令里面的程序，来实现Worksheet_Change指令执行的相同结果？
谢谢！

最佳答案

月排行榜 / 总排行榜

zjdh

2013-10-26 14:18

改变F5单元内容后，点按钮。
Dim d2, d3, l3
Private Sub ComboBox1_Change()
    [e5] = d2(ComboBox1.Value)
End Sub

Private Sub CommandButton1_Click()
    Application.EnableEvents = False
    Dim arr, i&, m&
    arr = [a22:b32]
    Set d2 = CreateObject("Scripting.Dictionary")
    Set d3 = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(arr)
        If Not d2.exists(arr(i, 1)) Then
            d2(arr(i, 1)) = arr(i, 2)
            m = m + 1
            d3(arr(i, 2)) = m
        End If
    Next
    ComboBox1.List() = d2.keys
    l3 = Sheet1.Range("F5")
    ComboBox1.ListIndex = d3(l3) - 1
    Application.EnableEvents = True
End Sub

跳转到最佳答案楼层

zjdh

你那Worksheet_Change整段宏要清除掉啊！
另外这句语句应改为
[e5] = d2(ComboBox1.Value)

zjdh

改变F5单元内容后，点按钮。
Dim d2, d3, l3
Private Sub ComboBox1_Change()
    [e5] = d2(ComboBox1.Value)
End Sub

Private Sub CommandButton1_Click()
    Application.EnableEvents = False
    Dim arr, i&, m&
    arr = [a22:b32]
    Set d2 = CreateObject("Scripting.Dictionary")
    Set d3 = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(arr)
        If Not d2.exists(arr(i, 1)) Then
            d2(arr(i, 1)) = arr(i, 2)
            m = m + 1
            d3(arr(i, 2)) = m
        End If
    Next
    ComboBox1.List() = d2.keys
    l3 = Sheet1.Range("F5")
    ComboBox1.ListIndex = d3(l3) - 1
    Application.EnableEvents = True
End Sub

xzwdk

zjdh 发表于 2013-10-26 14:18
改变F5单元内容后，点按钮。
Dim d2, d3, l3
Private Sub ComboBox1_Change()

谢谢老师的指导。看来是我太粗心了。
我把生成List的功能放到模块里面去了，如附件，可是点击下菜单后确报错了。并且将这一句[e5] = d2(ComboBox1.Value)禁止后，发现下拉框也无法载入List。这是为什么呢？

fffox

l3 = Sheet1.Range("F5")
把变量l3限定为F5的值，然后在TEST过程里，用
Sheet1.ComboBox1.ListIndex = d3(l3) - 1
把下拉列表选择的值限定为F5对应的选项，造成下拉框无法选择

zjdh

查询2.rar (12.85 KB, 下载次数: 5)

2013-10-26 16:14 上传

点击文件名下载附件

xzwdk

zjdh 发表于 2013-10-26 16:14

谢谢老师。我感觉您的这次附件内容和3楼的结果是一样的，请确认一下附件是否上传错了？谢谢

zjdh

我不知你的新要求是什么，请重新描述一下。

xzwdk

zjdh 发表于 2013-10-28 08:19
我不知你的新要求是什么，请重新描述一下。

请老师分析一下我在四楼的附件，谢谢。

zjdh

xzwdk 发表于 2013-10-28 08:28
请老师分析一下我在四楼的附件，谢谢。

你的宏颠来倒去的，看不懂你的要求，你用文字描述吧！