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运行 运行效果
注意：
设置宏安全性，否则可能无法运行
工具——宏——安全性
选择启动宏
因篇幅问题不能全部显示，请点此查看更多更全内容