VBA实现EXCEL多表格多条件查询
需积分: 31 71 浏览量
更新于2023-03-16
7
收藏 156KB DOC 举报
VBA实现EXCEL多表格多条件查询
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
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
下载后可阅读完整内容，剩余2页未读，立即下载
2019-01-18 上传
2022-12-02 上传
2018-12-11 上传
2023-06-11 上传
2010-04-30 上传
2021-11-30 上传
源代码2100
- 粉丝: 1
- 资源: 1
我的内容管理
展开
最新资源
- 全国江河水系图层shp文件包下载
- 点云二值化测试数据集的详细解读
- JDiskCat：跨平台开源磁盘目录工具
- 加密FS模块：实现动态文件加密的Node.js包
- 宠物小精灵记忆配对游戏：强化你的命名记忆
- React入门教程：创建React应用与脚本使用指南
- Linux和Unix文件标记解决方案：贝岭的matlab代码
- Unity射击游戏UI套件：支持C#与多种屏幕布局
- MapboxGL Draw自定义模式：高效切割多边形方法
- C语言课程设计：计算机程序编辑语言的应用与优势
- 吴恩达课程手写实现Python优化器和网络模型
- PFT_2019项目：ft_printf测试器的新版测试规范
- MySQL数据库备份Shell脚本使用指南
- Ohbug扩展实现屏幕录像功能
- Ember CLI 插件：ember-cli-i18n-lazy-lookup 实现高效国际化
- Wireshark网络调试工具：中文支持的网口发包与分析
