自动分班级部分代码

作者:宋晓友 来源:本站原创 发布时间:2008-10-31 点击数:

Dim temp As String
定义字符串
Dim banji(50)
定义数组
Dim bj
定义变量
For a = 3 To 555
循环人数循环,do while <>""
temp = Sheet1.Cells(a, 1).Value
读取学号
bj = Val(Mid$(temp, 6, 2))
读取班级
banji(bj) = banji(bj) + 1
累加
Next a

For b = 1 To bj
Sheet2.Cells(b, 2).Value = banji(b)
Next b

录入者:宋晓友 责任编辑:宋晓友

相关信息

.
  • 没有相关内容

设为首页 | 加入收藏 | 联系站长 | 友情链接 | 版权申明