白话Excel函数公式 Office易学宝微视频教程合集(Excel+Word+PPT)
笨办法学VBA(从入门到精通) 高效办公必会的Office实战技巧
财务总监的Excel私房课 网易云课堂-Excel数据透视表应用大全
Excel图表神技
查看: 4893|回复: 27

11117班第一次班委会-随机分组

[复制链接]
发表于 2012-3-6 05:56:17 | 显示全部楼层 |阅读模式
本帖最后由 hustnzj 于 2012-3-8 06:46 编辑

经过自我推荐,现在我宣布VBA初级11117班委正式成立,从今天起11117将在你们的带领下努力学习、友好竞争、互帮互助……

班长:加油小猫
副班长:Mas_T_er
组长:
勤动脑体不动心
xuzi999
vipme
peter.mingliang

交给班委会第一个任务:随机分组
要求:
1. 把已报道的人员随机分成四组,四个组长各带一组,班长不入组,将来再报道的学员再均分到各组;随机分组的方案要商讨方可通过(个人建议使用VBA);
2. 起组名;
3. 公布。

第二个任务:商量如何在班内开展各组间友好竞赛、互帮互学。
回复

使用道具 举报

发表于 2012-3-6 09:04:28 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2012-3-6 09:37:35 | 显示全部楼层
本帖最后由 xiaofx11 于 2012-3-7 09:22 编辑


班委跟贴


名单如下:

报名名单.rar (0 Bytes, 下载次数: 50)
回复 支持 反对

使用道具 举报

发表于 2012-3-6 10:37:37 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2012-3-6 10:38:39 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2012-3-6 13:59:26 | 显示全部楼层
我还不在名单里啊
回复 支持 反对

使用道具 举报

发表于 2012-3-6 14:02:19 | 显示全部楼层
xiaofx11 发表于 2012-3-6 09:37
班委跟贴

名单如下:

把握加上呗 不在名单里呢

点评

加班级QQ群7705153  发表于 2012-3-6 14:56
回复 支持 反对

使用道具 举报

发表于 2012-3-6 15:20:40 | 显示全部楼层
没开会,不知道组咋分的

点评

不是说了让班委分组吗?大家一起动手写VBA  发表于 2012-3-6 16:27
回复 支持 反对

使用道具 举报

发表于 2012-3-6 16:34:02 | 显示全部楼层
  1. Private Sub CommandButton1_Click()
  2. ARR = [a2:a40]
  3. For i = 1 To 39
  4. K = Int(1 + 39 * rand)
  5. T = ARR(i)
  6. ARR(i) = ARR(K)
  7. ARR(K) = T
  8. Next i
  9. [B2:B40] = ARR
  10. End Sub
复制代码
好长时间不用VBA。 我写的代码为啥不工作。

点评

要是新童鞋来报道了,你还要改程序?最好能自动……  发表于 2012-3-6 17:42
回复 支持 反对

使用道具 举报

发表于 2012-3-6 16:58:50 | 显示全部楼层
本帖最后由 xiaofx11 于 2012-3-6 16:59 编辑
wmhlwx 发表于 2012-3-6 16:34
好长时间不用VBA。 我写的代码为啥不工作。


rand函数在VBA中的用法rnd()

定义的数组是一个39行1列的二维数组,用法arr(i,1)
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 入学

本版积分规则

快速回复 返回顶部 返回列表