分享一个超强功能抽奖、分组的模版，vb的excle。兼求大侠修改。

lvpmeng · 发表于 2021-9-1 13:47

偶的一个款抽奖程序，感觉非常强大，分享给大家。

唯一的缺点就是不能抽全部的人，就是获奖人数总和要小于待抽人数，无法实现全员抽取。

鄙人才疏学浅，修改了一行带代码，直接导致出现“超出边界”错误，

希望有前辈大虾可以修改实现全员抽取功能。

修改“ If Application.WorksheetFunction.CountA(Sheet2.Range("B2:B9999")) <= Range("H13") Then MsgBox RngG13.Value & "抽奖人数已大于或等于抽取人数，无法抽奖！",”
将=去掉以后会出现“超出边界”错误。

ahhk · 发表于 2021-9-1 16:50

看这下是不是你想要的效果！

lvpmeng · 发表于 2021-9-1 13:55

界面如图所示

linuxcool · 发表于 2021-9-1 14:07

感谢楼主分享，有点意思。我希望我是年终被抽中的人，怎么没有看到特等奖？

邹宝文 · 发表于 2021-9-1 14:44

谢谢分享，学习一下

yixiqiao · 发表于 2021-9-1 14:46

可以抽奖的不错的实用

lnshijia · 发表于 2021-9-1 14:54

厉害了啊

蜘蛛人 · 发表于 2021-9-1 15:28

谢谢分享，学习一下

vvolf · 发表于 2021-9-1 16:17

今年我就用这个抽，希望能让自己榜上有名！

cart0206 · 发表于 2021-9-1 17:28

学习一下谢谢分享

帐号		自动登录	找回密码
密码			注册[Register]

[其他转载] 分享一个超强功能抽奖、分组的模版，vb的excle。兼求大侠修改。

免费评分

免费评分