点击下拉框里指定条件，便能显示查询结果的VBA

WYS67

lss001 发表于 2018-10-6 16:08
→_→←_←~

完全实现了心中所想！感谢老师的辛勤劳动！明日送花【今天用完了】

WYS67

lss001 发表于 2018-10-6 16:08
→_→←_←~

老师：为什么按钮总是居于E:F中间，导致E1:E8的参数看不清。不能放在F1:F2中间吗？移动了几次，关闭工作簿重新打开后就又回到了原位置。
还有，不能在下拉框中自动显示下拉显示项数为：指定条件列的条件总数【30】个吗？而不是默认的8个吗？

lss001

对于下拉框位置问题
把→ws.Shapes.AddFormControl(xlDropDown, 245, 1, 40, 40).Name = "myDropDown"
中的245左边距，1上边距，40宽度，40高度
改为您要的！

WYS67

lss001 发表于 2018-10-6 21:34
类1中下面代码是写代码测试用，请改为以下句
把→   If Target.Column = 1 And Target.Row > 4 Then
  ...

If Target.Column = 1 And Target.Row > 4 Then Call auto_open
        Call auto_open: x = Cells(2, 5)
        Cells(2, 5) = "": Cells(2, 5) = x
    End If

改成这样吗？

lss001

WYS67 发表于 2018-10-6 21:38
If Target.Column = 1 And Target.Row > 4 Then Call auto_open
        Call auto_open: x = Cells(2,  ...

把→   If Target.Column = 1 And Target.Row > 4 Then
        Call auto_open: x = Cells(2, 5)
        Cells(2, 5) = "": Cells(2, 5) = x
    End If

改为→If Target.Column = 1 And Target.Row > 4 Then Call auto_open

WYS67

lss001 发表于 2018-10-6 21:56
把→   If Target.Column = 1 And Target.Row > 4 Then
        Call auto_open: x = Cells(2, 5)
   ...

删除 4行
If Target.Column = 1 And Target.Row > 4 Then
        Call auto_open: x = Cells(2, 5)
        Cells(2, 5) = "": Cells(2, 5) = x
    End If

原位置添加一行 ？   If Target.Column = 1 And Target.Row > 4 Then Call auto_open

lss001

WYS67 发表于 2018-10-6 22:22
删除 4行
If Target.Column = 1 And Target.Row > 4 Then
        Call auto_open: x = Cells(2, 5)

完全可以地！

WYS67

lss001 发表于 2018-10-6 22:26
完全可以地！

谢谢老师！我已删除过，目前运行没有发现问题！

WYS67

lss001 发表于 2018-10-6 22:26
完全可以地！

应用到实际工作表时，出现1004错误！

lss001

WYS67 发表于 2018-10-6 22:52
应用到实际工作表时，出现1004错误！

可把附件发上来测试！