查看: 7563|回复: 3
怎么将表格里面有多少行数据统计出来
阅读权限20
在线时间 小时
(5.35 KB, 下载次数: 26)
10:55 上传
点击文件名下载附件
各位大虾，我现在需要将原始数据文件夹里面每个局的每一类别里面有多少条数据汇总出来填在一个表里面，每个月都需要做，希望大虾能帮我写一个小控件。
多少局是不确定的，类别可以基本确定为三类，但是如果控件能适应自动识别四类，五类等最好，或者在代码写下注释，我根据实际需要自己修改下VBA。
多谢大侠们了
阅读权限95
在线时间 小时
Sub Macro1()
& & Dim cnn As Object, rs As Object, SQL$, Mypath$, MyFile$, arr, brr(), i&
& & Set cnn = CreateObject(&adodb.connection&)
& & arr = Range(&a1&, [iv1].End(1))
& & ReDim brr(1 To 100, 1 To UBound(arr, 2))
& & On Error Resume Next
& & Mypath = ThisWorkbook.Path & &\原始档案\&
& & MyFile = Dir(Mypath & &*.xls&)
& & Do While MyFile && &&
& && &&&n = n + 1
& && &&&If n = 1 Then cnn.Open &Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=& & Mypath & MyFile
& && &&&brr(n, 1) = Split(MyFile, &.&)(0)
& && &&&For i = 2 To UBound(arr, 2)
& && && && &SQL = &select * from [Excel 8.0;Database=& & Mypath & MyFile & &].[& & arr(1, i) & &$]&
& && && && &Set rs = CreateObject(&adodb.Recordset&)
& && && && &rs.Open SQL, cnn, 1, 3
& && && && &brr(n, i) = rs.RecordCount
& && &&&Next
& && &&&MyFile = Dir()
& & rs.Close
& & cnn.Close
& & Set rs = Nothing
& & Set cnn = Nothing
& & [a1].CurrentRegion.Offset(1).ClearContents
& & [a2].Resize(n, UBound(arr, 2)) = brr
阅读权限95
在线时间 小时
& & & & & & & &
(13.3 KB, 下载次数: 33)
11:38 上传
点击文件名下载附件
阅读权限30
在线时间 小时
Option Explicit
Private Sub CommandButton1_Click()
& & Dim tmp As String
& & Dim strFilePath As String
& & Dim sh As Worksheet
& & Dim xlsApp As New Excel.Application
& & Dim i As Long
& & Dim iRow As Long
& & strFilePath = ThisWorkbook.Path & &\原始档案\&
& & tmp = Dir(strFilePath & &*.xls&)
& & iRow = 2
& & With xlsApp
& && &&&.Visible = False
& && &&&Do While tmp && &&
& && && && &Cells(iRow, 1) = Replace(tmp, &.xls&, &&)
& && && && &.Workbooks.Open strFilePath & tmp
& && && && &
& && && && &For i = 1 To .Worksheets.Count
& && && && &
& && && && && & Cells(iRow, i + 1) = .Worksheets(i).Range(&A65536&).End(xlUp).Row - 1
& && && && &
& && && && &Next
& && && && && &
& && && && &.ActiveWorkbook.Close False
& && && && &
& && && && &iRow = iRow + 1
& && && && &
& && && && &tmp = Dir
& && && && &
& && &&&Loop
& && &&&.Quit
& & End With
& & Cells(iRow, 1) = &总计&
& & For i = 2 To Range(&IV1&).End(xlToLeft).Column
& && &&&Cells(iRow, i) = &=sum(& & Cells(2, i).Address & &:& & Cells(iRow - 1, i).Address & &)&
& & Set xlsApp = Nothing
& & MsgBox &ok&
11:39 上传
点击文件名下载附件
17.36 KB, 下载次数: 14
最新热点 /1
只要3分钟，完成微软安卓版Office体验问卷，微软官方定制好礼就送到你面前：证书、卫衣、电脑内胆包等,好礼多，中奖几率高，极具纪念意义!
嘘，一般人，我不告诉他。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师君，已阅读到文档的结尾了呢~~
2005年4月-2009年3月计算机二级C语言真卷及参考答案
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
2005年4月-2009年3月计算机二级C语言真卷及参考答案
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer--144.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口某算法的程序框图如图所示，其中输入的变量x在1，2，3，…，24这24个整数中等可能随机产生（I）分别求出按程序框图正确编程运行时输出y的值为i的概率pi（i=1，2，3）；（II）甲乙两同学依据自己对程序框图的理解，各自编程写出程序重复运行n次后，统计记录输出y的值为i（i=1，2，3）的频数，以下是甲乙所作频数统计表的部分数据．甲的频数统计图（部分）运行次数n
输出y的值为1的频数
输出y的值为2的频数
输出y的值为3的频数30
14
6
10…
…
…
…7
376
697乙的频数统计图（部分）运行次数n
输出y的值为1的频数
输出y的值为2的频数
输出y的值为3的频数30
12
11
7…
…
…
…1
696
353当n=2100时，根据表中的数据，分别写出甲、乙所编程序各自输出y的值为i（i=1，2，3）的频率（用分数表示），并判断两位同学中哪一位所编程序符合要求的可能系较大；（III）将按程序摆图正确编写的程序运行3次，求输出y的值为2的次数ξ的分布列及数学期望． - 跟谁学
在线咨询下载客户端关注微信公众号
搜索你想学的科目、老师试试搜索吉安
在线咨询下载客户端关注微信公众号&&&分类：某算法的程序框图如图所示，其中输入的变量x在1，2，3，…，24这24个整数中等可能随机产生（I）分别求出按程序框图正确编程运行时输出y的值为i的概率pi（i=1，2，3）；（II）甲乙两同学依据自己对程序框图的理解，各自编程写出程序重复运行n次后，统计记录输出y的值为i（i=1，2，3）的频数，以下是甲乙所作频数统计表的部分数据．甲的频数统计图（部分）运行次数n
输出y的值为1的频数
输出y的值为2的频数
输出y的值为3的频数30
14
6
10…
…
…
…7
376
697乙的频数统计图（部分）运行次数n
输出y的值为1的频数
输出y的值为2的频数
输出y的值为3的频数30
12
11
7…
…
…
…1
696
353当n=2100时，根据表中的数据，分别写出甲、乙所编程序各自输出y的值为i（i=1，2，3）的频率（用分数表示），并判断两位同学中哪一位所编程序符合要求的可能系较大；（III）将按程序摆图正确编写的程序运行3次，求输出y的值为2的次数ξ的分布列及数学期望．某算法的程序框图如图所示，其中输入的变量x在1，2，3，…，24这24个整数中等可能随机产生（I）分别求出按程序框图正确编程运行时输出y的值为i的概率pi（i=1，2，3）；（II）甲乙两同学依据自己对程序框图的理解，各自编程写出程序重复运行n次后，统计记录输出y的值为i（i=1，2，3）的频数，以下是甲乙所作频数统计表的部分数据．甲的频数统计图（部分）运行次数n
输出y的值为1的频数
输出y的值为2的频数
输出y的值为3的频数30
14
6
10…
…
…
…2100
1027
376
697乙的频数统计图（部分）运行次数n
输出y的值为1的频数
输出y的值为2的频数
输出y的值为3的频数30
12
11
7…
…
…
…2100
1051
696
353当n=2100时，根据表中的数据，分别写出甲、乙所编程序各自输出y的值为i（i=1，2，3）的频率（用分数表示），并判断两位同学中哪一位所编程序符合要求的可能系较大；（III）将按程序摆图正确编写的程序运行3次，求输出y的值为2的次数ξ的分布列及数学期望．科目:最佳答案（I）变量x是在1，2，3，…，24这24个整数中随机产生的一个数，共有24种可能，当x从1，3，5，7，9，11，13，15，17，19，21，23这12个数中产生时，输出的y值为1，故P1=1224=12；当x从2，4，8，10，14，16，20，22这8个数中产生时，输出的y值为2，故P2=824=13；当x从6，12，18，24这4个数中产生时，输出的y值为3，故P3=424=16；故输出的y值为1的概率为12，输出的y值为2的概率为13，输出的y值为3的概率为16；（II）当n=2100时，甲、乙所编程序各自输出的y值为i（i=1，2，3）的频率如下： 
 输出y值为1的频率
输出y值为2的频率 
输出y值为3的频率
甲
10272100
 3762100
 6972100 乙
10512100 
6962100 
3532100 比较频率趋势与概率，可得乙同学所编程序符合算法要求的可能性较大；（III）随机变量ξ的可能取值为：0，1，2，3，P（ξ=0）=C03×(13)0×(23)3=827，P（ξ=1）=C13×(13)1×(23)2=49P（ξ=2）=C23×(13)2×(23)1=29，P（ξ=3）=C33×(13)3×(23)0=127，故ξ的分布列为： ξ
 0
 1
2 
3
P
827 
 49
 29
127 所以所求的数学期望Eξ=0×827+1×49+2×29+3×127=1解析
知识点:&&基础试题拔高试题热门知识点最新试题
关注我们官方微信关于跟谁学服务支持帮助中心标准答案：暂无
答案解析：double fun(int n)
double s=0.0;
for (i=1; i＜=n; i++)
s=s+(1.0/(2*i-1)-1.0/(2*i)); /*计算S= (1-1/2) + (1/3-1/4) +…+ (1/(2n-1)-l/2n) */
[解析] 本题中s=s+(1.0/(2*i-1)-1,O/(2*i));语句是用C程序去表达题目中的每一项，这是关键，其他问题不难理解。
本题选自：
leonh** 回复
20584**：这道题目如果选择B其实也是正确的，根据我国统计局的数据来做的报告，是不靠谱的
leonh** 回复
20584**：这道题目如果选择B其实也是正确的，根据我国统计局的数据来做的报告，是不靠谱的
相关试题：
如需更多试题请下载
相关考试软件
维普考试系列软件是由维普公司研发并推广的一系列自助考试辅导软件，该软件诣在帮助参与各类考试的考生通过考试软件自助进行模拟考试，自我检测和复习考题，本考试软件包含海量的试题试卷，供考生选用，软件安装简便，使用效率高，是参加公共基础知识考试考生的理想选择...
相关考试资讯