VBA实现EXCEL多表格多条件查询

VBA实现EXCEL多表格多条件查询

建立查询窗体

设置窗体相关属性

输入代码

Private Sub CommandButton1_Click()

Dim c As Range

Dim c1, n, i As Integer

n = 0

For i = 1 To Workbooks.Count

For Each c In Sheets(i).UsedRange

If c.Value >= 150 And c.Value <= 160 Then c1 = c1 + c.Value

n = n + 1

End If

‘更多条件……

Next

Next

TextBox1.Text = n TextBox2.Text = c1

End Sub

按F5运行运行效果

注意：

设置宏安全性，否则可能无法运行工具——宏——安全性

选择启动宏