Office中国论坛/Access中国论坛

标题: 如何编写以下几个vba [打印本页]

作者: rmrmrm123 时间: 2011-8-17 20:05
标题: 如何编写以下几个vba
0.1  0.1统计 0.2统计 0.3统计
0.2    5          3          3
0.3
0.1
0.4
0.2
0.1
0.5
0.1
0.6
0.3
0.1
0.2
0.3

我想把按钮1做在别的工作簿上应该如何实现(查看一b2文件)
  5    3       3

第一: 使用按钮2,book文件中使现运算的功能

也就是说把按钮和程序写在另一个工作簿上

第二: 使用按钮2,让book文件最后的数值写在b2文件中相同的位置

0.1 0.8 0.6 0.84          5行          4行
0.25 0.96 0.87 0.7          2             1 (4-7)
0.3 0.74 0.32 0.66       2             2 (8-11)
0.78 0.38 0.87 0.3       3             2 (12-15)
0.24 0.11 0.4 0.18       2             1 (16-19)
0.2 0.12 0.64 0.15       1             2 (20-23)
0.87 0.34 0.66 0.34
0.42 0.22 0.5 0.36
0.44 0.69 0.82 0.75
0.9 0.87 0.37 0.84
0.85 0.55 0.87 0.66
0.1 0.81 0.45 0.8
0.2 0.2 0.87 0.42
0.45 0.76 0.18 0.87
0.2 0.29 0.84 0.96
0.69 0.84 0.75 0.34
0.1 0.9 0.7 0.87
0.2 0.96 0.37 0.24
0.85 0.74 0.3 0.91
0.87 0.38 0.89 0.48
0.4 0.11 0.41 0.17
0.2 0.28 0.2 0.87
0.66 0 0.69 0.34
0.58 0.26 0.54 0.22
0.63 0.69 0.44 0.55

一:我想统计每5行有多少个0.87,显示在f列

二:我想统计每4行有多少个0.87但是有附加条件(保留有数据的最后2行,从第1行
开始减去被除的余数

举个例子:

上面25行数据,保留最后有数据的2行,那么是从(1-23)行;

从第1行开始减去被除的:也就是说23/4=5余3,从上往下减3行,那么就是
(4-23)行里每4行进行统计，显示在i列

三:我想把vba宏的按钮做在b2工作簿上应该怎么做
详情在附件上，请大家帮忙，谢谢！！！！！！

作者: pureshadow 时间: 2011-8-18 10:51
每五行有多少个0.87用公式：
=COUNTIF(INDIRECT("a"&ROW(A1)*5-4&":d"&ROW(A1)*5),0.87)
每四行有多少个0.84用公式：
=COUNTIF(INDIRECT("a"&ROW(A1)*4&":d"&ROW(A1)*4+3),0.87)
宏按钮你已经做到了

作者: rmrmrm123 时间: 2011-8-22 18:08
谢谢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)