主题：[求助]求一个筛选按钮公式

在第一个表中有一个窗口，窗口中的“确定筛选”按钮的公式要求是：从表“年度院校提档线”中筛选出符合1录取批次，2符合文史理工，3符合录取年度的，平均分差值最高在M与最低在N之间的院校。（M与N是根据高考成绩的平均分差值自己设定的）。并把筛选结果复制到一个新表中：例如“筛选结果表”。这个按钮公式如何写？请教老师！！谢谢老师了

自己顶一下，求助老师。谢谢

没看懂，老师您看看这个公式怎么写？

我知道这个公式有点难，实在难为老师了，还是先谢谢老师。老师如果有时间还是帮忙写一下。

感谢老师，帮忙写一下吧。谢谢！！

Dim Filter As String
With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        Filter = "录取批次 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComboBox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "文理分科 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComboBox3")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "录取年度 = '" & .Value & "'"
    End If
End With
<!--[if !supportLineBreakNewLine]-->
<!--[endif]-->

If e.Form.Controls("GF").Checked = True '
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "平均分差值 <= GF"
End If
If e.Form.Controls("DF").Checked = True '
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "平均分差值 >= DF"
End If
If Filter > "" Then
    Tables("年度院校提档线").Filter = Filter
End If

输入高分与低分部分，总是有问题，不知所错·

谢谢蓝版，是我想要的结果。真的感谢！！

老师，如果从表A跳转到表B中，用什么命令？

谢谢老师，已经成功了。最后一个问题，如何把筛选的结果复制到一个新表中。

老师，上面这段代码中，如果加上一列逻辑标记，语句如何加。比如：在“年度院校提档线”表中有一列逻辑列，筛选得出结果后，在这个逻辑列中打上对勾。这个语句如何添加？谢谢老师！