统计大量数据加班加得筋疲力尽，希望大神帮帮忙设计

caijiaqian · 发表于 2020-2-19 21:33

本帖最后由心电感应于 2020-2-19 23:49 编辑

求大神帮忙设计个这样的xls 文档 Sheet1 为查询界面人员情况项目（可以多选） Sheet2为原始数据（不断更新），在线求等待这个搞不好工作每天都花几个小时慢慢统计！浪费时间之余对掌握疫情情况也是有阻碍！

NadrsSaber · 发表于 2020-2-19 22:06

表格要这么多列吗?
多条件查询, 要哪些条件呀?
可以把附件发出来, 弄一些模拟数据?

qqaa266 · 发表于 2020-2-19 22:15

没有附件，查询条件的要求也很笼统，只能给个框架你了，如果你对VBA不熟悉，这个框架对你也没啥用
Sub kdfj()

   Dim sh As Worksheet
   Set sh = Sheet1
   rw = sh.Cells(65536, 1).End(xlUp).Row '查询整个工作表有多少行记录
   cl = sh.Cells(1, 200).End(xlToLeft).Column '查询整个工作表有多少列记录
   For i = 2 To rw '按行
      For j = 1 To cl '按列
         temp = sh.Cells(i, j) '取出每一行中的每一个单元格的内容，然后在下面的条件判断语句中判断是否符合条件
         If temp = str1 And temp = str2 And temp = str3 And temp = str4 And temp = str5 Then 'str1查询的条件1，这里有5个条件，按需增删
            ......
         End If
      Next j
Next i

End Sub

caijiaqian · 发表于 2020-2-19 22:28

qqaa266 发表于 2020-2-19 22:15
没有附件，查询条件的要求也很笼统，只能给个框架你了，如果你对VBA不熟悉，这个框架对你也没啥用
Sub kdf ...

这个我看得明我自己研究了一段时间也实操过一些简单的谢谢我先试试

caijiaqian · 发表于 2020-2-19 22:29

NadrsSaber 发表于 2020-2-19 22:06
表格要这么多列吗?
多条件查询, 要哪些条件呀?
可以把附件发出来, 弄一些模拟数据?

我先按3楼的研究一下其实我只需要有个框架基本上能摸到怎么做！需要点时间实践！确实不行才上附件~因为附件中包含大量人员身份信息
先谢谢！！！！

caijiaqian · 发表于 2020-2-19 22:30

qqaa266 发表于 2020-2-19 22:15
没有附件，查询条件的要求也很笼统，只能给个框架你了，如果你对VBA不熟悉，这个框架对你也没啥用
Sub kdf ...

附件我上一个空白的表格可以吗？》

qqaa266 · 发表于 2020-2-19 22:35

你可以随便放一两行模拟数据就行了，不过你的查询条件好笼统，让人觉得完全是老虎吃天，无从下嘴

caijiaqian · 发表于 2020-2-19 23:27

我从新再上个想要的效果图

FOB_FN_L · 发表于 2020-2-20 01:16

qqaa266 发表于 2020-2-19 22:15
没有附件，查询条件的要求也很笼统，只能给个框架你了，如果你对VBA不熟悉，这个框架对你也没啥用
Sub kdf ...

查询条件写成小窗体让其可在表格的界面中选择要查找的某列或某几列呀，这种类似的在EXCELPX网站上有类似的~~~

caijiaqian · 发表于 2020-2-20 12:20

FOB_FN_L 发表于 2020-2-20 01:16
查询条件写成小窗体让其可在表格的界面中选择要查找的某列或某几列呀，这种类似的在EXCELPX网站上有 ...

好的看看谢谢

		自动登录	找回密码
密码			免费注册

[求助] 统计大量数据加班加得筋疲力尽，希望大神帮帮忙设计