红包墙 / 拆红包 /抽奖系统V1.0

aecn · 发表于 2021-1-5 12:58

本帖最后由 aecn 于 2021-1-5 21:55 编辑

起因：元旦小孩班上搞抽奖拆红包活动。

之前的是手工固定的红包个数，改成按设定生成红包个数。形状排列经版主 liulang0808 老师的指导下完成。
随机算法由 Chip_Kenny 老师提供，进度条忘了是哪位老师了。

在论坛混这么久，第一次发作品，其实算不上什么原创，充其量就是提供思路、UI和代码拼凑，实在是惭愧。
代码写得不好，还请各位老师优化及斧正。

在此谢谢帮助过我的老师！

微信图片_20210105125208.png

觉得不错的可以赏个小花，谢谢

jy03342543 · 发表于 2021-1-5 13:26

做的不错图片设计的很精美楼主应该花了不少功夫收藏了,感谢楼主分享.

xiaomils · 发表于 2021-1-5 13:29

很好的作品！！

02761752696 · 发表于 2021-1-5 14:30

很有趣谢谢分享

aecn · 发表于 2021-1-5 14:53

jy03342543 发表于 2021-1-5 13:26
做的不错图片设计的很精美楼主应该花了不少功夫收藏了,感谢楼主分享.

对，一个像素都要对齐
有强迫症，没办法

vvw123 · 发表于 2021-1-5 16:27

aecn 发表于 2021-1-5 14:53
对，一个像素都要对齐
有强迫症，没办法

太实用了，感谢提供

yjh_27 · 发表于 2021-1-5 16:36

aecn 发表于 2021-1-5 14:53
对，一个像素都要对齐
有强迫症，没办法

返回按钮加一句
Sub Black()
Sheet2.Visible = xlSheetHidden
Sheet1.Activate
End Sub

gaozengxun · 发表于 2021-1-5 21:29

我们WPS打开总出错，不过太谢谢了，改天好好研究研究。

aecn · 发表于 2021-1-5 21:48

yjh_27 发表于 2021-1-5 16:36
返回按钮加一句
Sub Black()
Sheet2.Visible = xlSheetHidden

好的，yjh_27老师
我之前想的是Sheet2隐藏了就自动只显示Sheet1了，不过这是在没有第三个表的情况下

one_freshman · 发表于 2021-1-6 11:44

挺有趣的小工具，感谢分享。

		自动登录	找回密码
密码			免费注册

[原创] 红包墙 / 拆红包 /抽奖系统V1.0

评分