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

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

[复制链接]
发表于 2012-3-6 19:43:49 | 显示全部楼层
xiaofx11 发表于 2012-3-6 16:58
rand函数在VBA中的用法rnd()

定义的数组是一个39行1列的二维数组,用法arr(i,1)
  1. Private Sub CommandButton1_Click()
  2. arr = [a2:a40]
  3. For i = 1 To 39
  4. K = Int(1 + 39 * Rnd())
  5. T = arr(i, 1)
  6. arr(i, 1) = arr(K, 1)
  7. arr(K, 1) = T
  8. Next i
  9. [B2:B40] = arr
  10. End Sub
复制代码
多谢撒。
回复 支持 反对

使用道具 举报

发表于 2012-3-6 19:49:33 | 显示全部楼层
本帖最后由 wmhlwx 于 2012-3-6 20:25 编辑
  1. Private Sub CommandButton1_Click()
  2. rrow = Range("A60000").End(xlUp).Row
  3. arr = [a2].Resize(rrow-1)
  4. For i = 1 To rrow - 1
  5. K = Int(1 + (rrow-1) * Rnd())
  6. T = arr(i, 1)
  7. arr(i, 1) = arr(K, 1)
  8. arr(K, 1) = T
  9. Next i
  10. [B2].Resize(rrow-1) = arr
  11. End Sub
复制代码
原理出来了,自动变格就很简单了.

多取了个空值。不过那个不会影响结果,还是修改一下。

点评

你这个还是有问题,组长已经选出来了,就不能这样放,4个组长随一块儿了,咋办?现在报道40个人,随好了,新来10个,又全部打乱重新分?  发表于 2012-3-7 07:14
不错,不过还是有点问题……  发表于 2012-3-6 19:56
回复 支持 反对

使用道具 举报

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

使用道具 举报

发表于 2012-3-6 22:06:12 | 显示全部楼层
yabo-j 发表于 2012-3-6 21:04
名单里没我啊

哪个名单?
回复 支持 反对

使用道具 举报

发表于 2012-3-7 10:41:49 | 显示全部楼层
wmhlwx 发表于 2012-3-6 19:49
原理出来了,自动变格就很简单了.

多取了个空值。不过那个不会影响结果,还是修改一下。

按组长分,就要细化了,只是提供一种随机排序的思路。
回复 支持 反对

使用道具 举报

发表于 2012-3-7 11:47:04 | 显示全部楼层
wmhlwx 发表于 2012-3-7 10:41
按组长分,就要细化了,只是提供一种随机排序的思路。

我在名单中找到了,但不知分在哪一组?

点评

组还没分出来  发表于 2012-3-7 17:29
回复 支持 反对

使用道具 举报

发表于 2012-3-7 15:07:02 | 显示全部楼层
分组方法一定要用VBA 来写吗?

点评

最好是VBA吧,学以致用嘛……  发表于 2012-3-7 17:27
回复 支持 反对

使用道具 举报

发表于 2012-3-7 20:12:48 | 显示全部楼层
班主任请看看,虽然我是用函数做的。VBA真的还不会诶!{:soso_e130:}

11117班用函数分组方法.rar

9.2 KB, 下载次数: 26

点评

值得鼓励,这个方法解决了组长的问题。不过还是得等所有人到齐后再重新分……  发表于 2012-3-8 06:40

评分

参与人数 1登攀 +3 收起 理由
hustnzj + 3

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2012-3-8 00:09:16 | 显示全部楼层
peter.mingliang 发表于 2012-3-7 20:12
班主任请看看,虽然我是用函数做的。VBA真的还不会诶!

这几天看论坛里随机数据分类的方法和你这个差不多。。。做出来也就是这个样子 ,,,VBA  一点头绪的没有唉。。。。。
回复 支持 反对

使用道具 举报

发表于 2012-3-8 00:10:22 | 显示全部楼层
yabo-j 发表于 2012-3-6 21:04
名单里没我啊

有报名吗?
回复 支持 反对

使用道具 举报

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

本版积分规则

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