超级简单的抽奖工具

2023-05-16

昨天快到中午的时候接到业务部门的一个需求，要求对现有的抽奖软件进行改进。

问题是：现在的抽奖软件每次只能够抽出一个中奖号码，而此次设置的各种奖项的中奖人数加起来有500人，如果使用原有的软件，就意味着需要点击500次，然后记录500次，工作量很大，也比较容易出错。

时间要求的非常紧，只有一个下午，第二天也就是今天就要开始抽奖活动了。

分析了一下，真的是一个紧急的需求，而且还要求将源数据导入到程序中，抽奖完毕，还要将所有中奖的号码导出到Excel。这样的话，如果使用application形式的程序的话，那么不仅编写代码和测试的时间来不及，而且很容易出错，还需要考虑如何导入导出，还需要为业务人员配置数据库，等等。

于是，决定采用一种比较投机取巧的方式——直接使用Excel的VBA来编写。

这样做的好处很明显：

1、避免了数据的导入导出

2、可以让我将精力集中在随机抽取中奖号码的逻辑上。

3、生成的数据非常容易处理，可以将其他需要的字段放在抽奖号码列之外，然后就可以和号码一起复制、处理了。

抽奖的方式直接使用了VBA中提供的随机数函数，从所有的抽奖号码中随机抽取就可以了。

抓个图看看：


  
  
   
   '数据源工作簿中的行列
Const START_ROW_SOURCE As Integer = 2
Const ID_SOURCE As String = "B"
Const RESULT_SOURCE As String = "C"

'抽奖结果工作簿中的行列
Const ID_RESULT As String = "B"
Const FIRST_CELL_RESULT As String = "B5"
Const START_ROW_RESULT As Integer = 5

'数据源最大行
Private maxRow_Source As Integer

'开始抽奖
Private Sub cmdDraw_Click()
    
On Error GoTo ErrorHandler:

    '取得当前的中奖等级
    Dim rewardLevel As String
    rewardLevel = txtLevel.Text
    
    '取得得奖的人数
    Dim rewardCount As Integer
    
    If (Trim(txtCount) <> "") Then
        rewardCount = CInt(txtCount.Text)
    Else
        MsgBox ("请输入中奖人数！")
    End If
    
    maxRow_Source = getMaxRow(shtDataSource)
    
    '清除当前结果
    Dim maxRow_result As Integer
    maxRow_result = getMaxRow(shtDrawResult)
    
    If (maxRow_result > START_ROW_RESULT) Then
        shtDrawResult.Range(FIRST_CELL_RESULT, shtDrawResult.Cells.SpecialCells(xlCellTypeLastCell)).Value = ""
    End If
    
    '已经抽出的数量
    Dim drewCount As Integer
    drewCount = 0
    
    Dim curResultRow As Integer
    curResultRow = START_ROW_RESULT
    
    Dim randomRow As Integer
    Dim currentID As String
    
    Dim currentRewardStatus As String
    
    '循环抽出指定数量的中奖凭证
    While (drewCount < rewardCount)
        
        '取得一个随机数
        randomRow = (maxRow_Source - START_ROW_SOURCE + 1) * Rnd + START_ROW_SOURCE
        
        '该行数据即为被抽中
        currentID = shtDataSource.Range(ID_SOURCE & CStr(randomRow)).Cells.Value
        
        If Trim(currentID) <> "" Then
            
            '检查该凭证是否已经被抽过奖
            currentRewardStatus = shtDataSource.Range(RESULT_SOURCE & CStr(randomRow)).Cells.Value
            
            If Trim(currentRewardStatus) = "" Then
                
                '复制到抽奖结果中来
                shtDataSource.Range(ID_SOURCE & CStr(randomRow)).Copy
                shtDrawResult.Range(ID_RESULT & CStr(curResultRow)).PasteSpecial (xlPasteAll)
                    
                '设置数据源中的中奖栏位
                shtDataSource.Range(RESULT_SOURCE & CStr(randomRow)).Cells.Value = rewardLevel
            
                curResultRow = curResultRow + 1
                
            End If
        End If
        
        drewCount = drewCount + 1
    Wend
    
    GoTo ExitHandler
    
ErrorHandler:
    MsgBox ("出现问题！")
    Exit Sub
    
ExitHandler:
    MsgBox ("完成！")

End Sub


'取得工作簿的最大行
Function getMaxRow(sht As Worksheet) As Integer

    Dim lastCell As Range
    Set lastCell = sht.Cells.SpecialCells(xlCellTypeLastCell)
    getMaxRow = lastCell.Row

End Function

编写完了之后，看看时间，只用了不到两个小时，而且和业务人员说明了一下，完全满足需要，哈哈。

总结一下：对于业务部门提出的需求，开发工具的选择其实很重要，因为那不仅能够节省很多开发工作，节省时间，还能够降低业务人员的学习曲线，毕竟对于他们来说，学习一个没有用过的程序和学习如何使用Excel相比，还是有些难度的。另外就是，程序无处不在，不能认为只有在Eclipse、VS之类的工具中才能够编写出软件，呵呵。

此次的经验对自己来说也很有用，拿出来和大家一起分享。

p.s. 本想把Excel文件也放到这里，但是不知道怎么放附件，如果哪位知道告诉我一下，我直接把那个文件也共享出来。

具体的代码如下：

本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)

超级简单的抽奖工具

超级简单的抽奖工具的相关文章

一个简单的自定义通信协议（socket）

转自 xff1a http vtrtbb javaeye com blog 849336 这是转自javaeye的一篇文章 xff0c 作者是vtrtbb 按照网络通信的传统 xff0c 我们都会自定义协议 xff0c 这有很多好处 xff
ImageView 设置图片

android doc中是这样描述的 xff1a public void setImageResource int resId 这是其中的一个方法 xff0c 参数resld是这样 xff1a ImageView setImageResou
Android问题集锦之八：调用其他程序中的activity和Permission Denial: starting Intent 错误解决办法

今天想调试多个task中栈的情况 xff0c 在测试程序中调用另一个程序的activity xff0c 代码片段如下 xff1a btnStartX 61 Button findViewById R id btnStartX btnStar
VB.NET串口通信例子--我的回忆录

这是我3年前的一个例子 xff0c 最近翻出来回忆一下串口是计算机上一种非常通用设备通信的协议大多数计算机包含两个基于RS232的串口 xff0c 现在配电脑好像只有一个串口同时也是仪器仪表设备通用的通信协议 xff1b 很多GPIB
TensorFlowLite GPU加速

官方文档 https tensorflow google cn lite performance gpu hl 61 zh cn TF LITE支持移动端GPU加速 xff0c 特别对android端的支持比较丰富相对android来说
C语言基础----流程控制

流程控制是C语言中比较基础的它分为三种状态 xff1a 1是顺序结构 2是选择结构 3是循环结构我要说明后两种结构 xff0c 选择机构和循环结构首先先说 xff1a 选择结构选择结构是指 xff1a 当一个条件成立则执 xff08
复杂数据类型——数组

复杂数据类型是C语言基础的重点 1 数组 xff1a 存储一组数据 2 特点 xff1a 只能存放一种类型的数据如int类型 xff0c float类型的数据数组的元素个数只可以放常量 int ages 5 61 1 2 3 格式 xf
OC语言——基本语法和思想

今天学习了OC语言基础语法 1 oc语言完全兼容C语言 xff0c 后缀为 m类型被广泛应运与开发苹果mac os x平台和ios开发平台 2 oc语言关键字基本上以 64 开头 xff0c oc字符串也是以 64 开头 3 基本类型新加
OC语言——三大特性-继承与多态

继承是oc中比较常见的 1 继承 xff1a 就是当两个类拥有相同的属性和方法时 xff0c 就可以将相同的东西抽取到一个父类中子类可以拥有父类中所有的成员变量和方法 2 继承的好处 xff1a 可以抽取重复代码 xff0c 节省时间建
OC语言——点语法和成员变量的4种作用域及property和synthesize的使用

点语法 xff1a 点语法的本质还是方法调用 Person p 61 Person new 点语法的本质还是方法调用 p age 61 10 p setAge 10 一点语法注意点 xff1a 64 implementation Pers
树排序的理解

参考文献与详细资料 xff1a https blog csdn net weixin 64067830 article details 124443430 视频 https www bilibili com video BV1iU4y1B7
OC语言——构造方法和分类的使用

一构造方法 1调用 43 alloc分配存储空间 Person p 61 Person alloc 2初始化 init Person p1 61 p init 可以整合为一句 Person p2 61 Person alloc init
使用CSDN-markdown

欢迎使用Markdown编辑器写博客本Markdown编辑器使用StackEdit修改而来 xff0c 用它写博客 xff0c 将会带来全新的体验哦 xff1a Markdown和扩展Markdown简洁的语法代码块高亮图片链接和图片上传
【笔试&面试】关于动态链接库

动态链接库英文为DLL xff0c 是Dynamic Link Library 的缩写形式 xff0c DLL 是一个包含可由多个程序同时使用的代码和数据的库 xff0c DLL 不是可执行文件动态链接提供了一种方法 xff0c 使进程可
虚函数表的实现细节

1 虚函数虚表是怎么实现的 xff1f 虚表存放在哪里 xff1f 虚表中的数据是在什么时候确定的 xff1f 对象中的虚表指针又在什么时候赋值的 xff1f 我们很难通过 C 43 43 语言本身来找到答案 C 43 43 标准给编译器
三种工厂模式区别总结

工厂模式分为三种 xff1a 简单工厂工厂模式和抽象工厂模式三者之间存在哪些异同呢 xff1f 先分别看看各个模式的特点一简单工厂模式 xff1a 实现了算法和界面的分离 xff0c 也就是将业务逻辑和界面逻辑分开了 xff0c 降
快速排序改进快排的方法

快速排序法事应用最广泛的排序算法之一 xff0c 最佳情况下时间复杂度是 O nlogn 但是最坏情况下可能达到 O n 2 说明快速排序达到最坏情况的原因并提出改善方案并实现之答 xff1a 改进方案 xff1a 改进选取枢轴的方
linux select函数详解

在 Linux 中 xff0c 我们可以使用 select 函数实现 I O 端口的复用 xff0c 传递给 select 函数的参数会告诉内核 xff1a 我们所关心的文件描述符对每个描述符 xff0c 我们所关心的状态我们是要想从一

随机推荐

Linux epoll详解

Linux epoll详解一什么是epoll epoll是什么 xff1f 按照man手册的说法 xff1a 是为处理大批量句柄而作了改进的poll 当然 xff0c 这不是2 6内核才有的 xff0c 它是在2 5 44内核中被引进的
转折后的总结--2014年找工作

转折后的总结找工作好吧 xff0c 还是忍不住做个总结 xff0c 毕竟还是我人生中一次比较大的事件了非常感谢华科 xff0c 我的第二个母校能提供给我一个优秀的平台非常感谢信息安全与保密实验室607室的老师们 xff0c 给我诸多
2014找工作总结-机会往往留给有准备的人

好基友的文章必须转 xff0c 大神一枚 xff1a 出处 xff1a http blog csdn net xiajun07061225 article details 12844801 其实我的求职过程在十一之前就已经结束了 xff0c
1020 Tree Traversals

Suppose that all the keys in a binary tree are distinct positive integers Given the postorder and inorder traversal sequ
入职后的书单

程序员一生的命运就是不停的学习 xff0c 淬炼自己的技术 xff0c 转化为自己的经验作为新手 xff0c 首先要读的应该是 xff1a 代码整洁之道 1 JAVA核心技术 xff08 卷1 xff09 作者 Cay S Horstma
国内第一本详解云GIS技术的参考书籍《云GIS技术与实践》

书籍封面内容简介云计算技术从概念提出到项目落地已经经历了十余年了 xff0c GIS技术也紧跟IT主流技术大潮 xff0c 通过日趋成熟的云计算技术来解决GIS面临的诸多问题一转眼 xff0c 云GIS技术也发展了五个年头了 xff0
jetpack之ViewModel

ViewModel类旨在以注重生命周期的方式存储和管理界面相关的数据 ViewModel类让数据可在发生屏幕旋转等配置更改后继续留存摘自官方文档 Android 框架可以管理界面控制器 xff08 如 Activity 和 Fragmen
二叉树的各种创建方法

1 前序创建 include lt stdlib h gt include lt malloc h gt include lt iostream gt include lt stack gt include lt queue gt usin
虚拟机创建、发放与迁移

虚拟机创建方法 xff1a 创建空虚拟机虚拟机克隆虚拟机 xff1a 虚拟机运行状态是可以克隆虚拟机的按照模板部署虚拟机 xff1a 模板存在 xff0c 可以调整参数 xff0c 批量部署模板转为虚拟机 xff1a 模板不存在 xff0c
Linux必学书籍！五本强烈推荐,你读过几本？

深入理解Linux内核推荐等级 xff1a 5颗星为了透彻理解Linux的工作机理 xff0c 以及为何它在各种系统上能顺畅运行 xff0c 你需要深入到内核的心脏 cPu与外部世界的所有交互活动都是由内核处理的 xff0c 哪些程序会
一个毕业6年的程序员工作经历和成长感悟（终）

接上篇 xff1a 一个毕业6年的程序员工作经历和成长感悟 xff08 上 xff09 一个毕业6年的程序员工作经历和成长感悟 xff08 中 xff09 一个毕业6年的程序员工作经历和成长感悟 xff08 下 xff09 回望过去 6 年
红包随机算法，给定一定的金额，一定的人数，保证每个人都能随机获得一定的金额。...

前段时间做了一个笔试题 xff0c 觉得很有意思 xff0c 特此记录下来题目如下题目请编写一个红包随机算法需求为 xff1a 给定一定的金额 xff0c 一定的人数 xff0c 保证每个人都能随机获得一定的金额比如100元的红包
linux下 ftp服务器如何设置上传文件的权限

先用vi打开 vsftpd conf vsftpd的配置文件在Ubuntu下是vi etc vsftpd conf在centos 下是vi etc vsftpd vsftpd conf这个在不同的系统下可能不同原理一样找到umask默认是
敏捷之旅大连2013总结回顾

12月21日 xff0c 敏捷之旅大连站如期召开 xff0c 这是今年我在大连组织的第九次程序员社区活动 xff0c 在此简单总结一下这次活动考虑到参会人员会比平时多一些 xff0c 所以选择了中山区的比较大的会议室 xff0c 从十二点
1062 Talent and Virtue

About 900 years ago a Chinese philosopher Sima Guang wrote a history book in which he talked about people 39 s talent an
演说（zhi）之法

近年来 xff0c 参加了很多各种各样的技术会议 xff0c 在其中也听了很多高手和牛人们的演说在总结了自己的一些经验之后 xff0c 也会在一些场合和大家分享在以上的过程中 xff0c 越来越觉得 xff0c 想要为听众们奉献一场精彩
窗体继承，然后实现按钮点击事件的重写

做了一阵子Winform的程序之后 xff0c 越来越能够做到把窗体控件等都看作类来对待了以前做VB的时候 xff0c 对这些控件都是有一种敬畏的心理 xff0c 根本就不敢对其做什么 xff0c 而且当时也的确做不了什么 xff0c
参加百度轻应用编程马拉松总结

上个周末 xff0c 我到北京参加了百度举办的轻应用编程马拉松大赛 xff0c 感觉非常不错 xff0c 在此总结一下这是我第一次参加编程马拉松的活动 xff0c 对此充满了好奇也充满了期望 xff0c 更是希望自己以后也能够组织类似的活
碰

前天奶奶来了 xff0c 把屋子里面的东西都收拾了一下 xff0c 尤其是佳佳的玩具 xff0c 有好多毛绒玩具 xff0c 都放在一个柜子的层里面了早上佳佳醒来 xff0c 发现了新大陆 xff01 美羊羊都碰头了 xff01 维尼的碰
超级简单的抽奖工具

昨天快到中午的时候接到业务部门的一个需求 xff0c 要求对现有的抽奖软件进行改进问题是 xff1a 现在的抽奖软件每次只能够抽出一个中奖号码 xff0c 而此次设置的各种奖项的中奖人数加起来有500人 xff0c 如果使用原有的软件 x

超级简单的抽奖工具

超级简单的抽奖工具 的相关文章

随机推荐

热门标签

超级简单的抽奖工具的相关文章