- 1、本文档共17页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
excel分段统计教本(Excel subsection statistics textbook)
excel分段统计教本(Excel subsection statistics textbook)
Keep the segment statistics from B2 to L69 to the table at the start of B70
Sub segment Statistics ()
Range (A70).Value = 2.0~2.99 segmentation
Range (A71).Value = 3.0~3.99 segmentation
Range (A72).Value = 4.0~4.99 segmentation
Range (A73).Value = 5 segments
V2 = 0
V3 = 0
V4 = 0
V5 = 0
Dim RNG As Range
For, Each, RNG, In, Range (B2:B69)
If (rng.Value = 2 Then)
If (rng.Value 3) Then V2 = V2 + 1
End If
If (rng.Value = 3 Then)
If (rng.Value 4) Then V3 = V3 + 1
End If
If (rng.Value = 4 Then)
If (rng.Value 5) Then V4 = V4 + 1
End If
If rng.Value = 5 Then
V5 = V5 + 1
End If
Next
Range (B70).Value = V2
Range (B71).Value = V3
Range (B72).Value = V4
Range (B73).Value = V5
V2 = 0
V3 = 0
V4 = 0
V5 = 0
For, Each, RNG, In, Range (C2:C69)
If (rng.Value = 2 Then)
If (rng.Value 3) Then V2 = V2 + 1
End If
If (rng.Value = 3 Then)
If (rng.Value 4) Then V3 = V3 + 1
End If
If (rng.Value = 4 Then)
If (rng.Value 5) Then V4 = V4 + 1
End If
If rng.Value = 5 Then
V5 = V5 + 1
End If
Next
Range (C70).Value = V2
Range (C71).Value = V3
Range (C72).Value = V4
Range (C73).Value = V5
V2 = 0
V3 = 0
V4 = 0
V5 = 0
For, Each, RNG, In, Range (D2:D69)
If (rng.Value = 2 Then)
If (rng.Value 3) Then V2 = V2 + 1
End If
If (rng.Value = 3 Then)
If (rng.Value 4) Then V3 = V3 + 1
End If
If (rng.Value = 4 Then)
If (rng.Value 5) Then V4 = V4 + 1
End If
If rng.Value = 5 Then
V5 = V5 + 1
End If
Next
Range (D70).Value = V2
范围(“D71”)价值= V3。
范围(“显示”)。值= V4
范围(“科技”)价值= V5。
V2 = 0
V3 = 0
V4 = 0
V5 = 0
在每个范围的RNG(“E2:e69”)
如果(rng.value = 2)然后
如果(rng.value<3)然后V2 = V2 + 1
最后如果
如果(rng.value = 3)然后
如果(rng.value<4)然后V3 = V3 + 1
最后如果
如果(rng.value = 4)然后
如果(rng.value<5)然后V4 = V4 + 1
最后如果
如果随机值= 5。
V5 + V5 + 1
最后如果
下一个
范围(“至”)价值= V2。
范围(“E71”)价值= V3。
范围(“与”)价值= V4。
范围(“E73”价值= V5)。
V2 = 0
V3 = 0
V4 = 0
V5 = 0
在每个范围的RNG(“F2:点”)
如果(rng.value = 2)然后
如果(rng.value<3)然后V2 = V2 + 1
最后如果
如果(rng.value = 3)然后
如果(rng.value<4)然后V3 = V3 + 1
最后如果
如果(rng.value = 4)然后
如果(r
您可能关注的文档
- 4 工程勘察测量(4 Engineering Survey and survey).doc
- 4-6list gre红宝 txt(4 - 6list gre红宝 txt).doc
- 40cr(40铬钢).doc
- 485通信(485 communications).doc
- 42式太极拳攻防用法图解(一)(Diagram of offensive and defensive use of 42 Style Taijiquan).doc
- 4m1e管理知识(4M1E management knowledge).doc
- 45钢(45 carbon steel).doc
- 4习题 第四章化学平衡(4 exercises, fourth chapters, chemical balance).doc
- 4月1日 《地心之旅》 张少泉(Journey to the inner earth in April 1st, Zhang Shaoquan).doc
- 4机电工程管理与实务选择题(4 Mechanical and electrical engineering management and practical choice).doc
- excel基础 如何在表头下面衬张图片_word联盟.doc
- ext json servlet 构建的动态树(Ext JSON Servlet构建的动态树).doc
- ext核心api详解(一) - ext类(Ext core API Xiangjie (a) - ext).doc
- fag(FAG).doc
- fb代表什么电子器件(What FB stands for electronic devices).doc
- fc-757at全自动高频天线调谐器(Fc-757at automatic high frequency antenna tuner).doc
- ff 档(ff 档).doc
- fazz高达(Fazz高达).doc
- fifa2006按键(fifa2006按键).doc
- flash as 3.0 代码(3代码闪光).doc
文档评论(0)