Excel 求助:请热心高人帮忙可以用vba编写宏代码vba抽奖程序

本地高速下载器地址
常用软件推荐
原创软件推荐
EXCEL万能百宝箱是著名微软办公软件EXCEL(Microsoft Office for EXCEL)增强型插件。包括230个菜单功能和100个左右自定义函数,集330个宝贝于一身,但体积小于12MB。当安装万能百宝箱后,如果您使用Excel 2003,则将产生【万能百宝箱】菜单,包括230多个子菜单;如果您使用Excel 2016或者2013,将产生【经典】与【万能百宝箱】功能区。根据各功能的特点,对子菜单作了18个分类, 而在函数向导对话框中也新增100个左右新的函数,用于扩展Excel的基本功能。且所有功能都通用于Excel 和。支持中英文显示与繁简体操作系统、拥有30多款华丽的皮肤界面,支持Excel2010全面隐藏选项卡,这个插件还前承了Excel2003经典样式菜单,目的是方便那些从Excel2003转向使用版的朋友熟练使用。兼并了ExcelTabs工作薄多标签插件,方便在不同工作薄中切换与使用。跨工作薄存储格逐步提示输入功能让你录入数据更轻松。图片批量尺寸及导入多列图片具备16项可设置参数,多达50种组合导入方式,满足各行业不同需求的图片导入导出与规范排版。表达式计算精灵让数学函数及复杂公式表达式全自动计算一切变得那么轻巧与高效,且能与EXCEL智能交互操作。工程解密功能可以解除VBA工程不可查看的EXCEL工程文档,解除后重新打开文档可100%准确还原源代码,是VBA开发者的必备利器。采用字典补码查漏纠错技术实现台湾繁体系统中繁简转换与GB2BIG5转换准确率达100%,达到微软同效功能。更内置了比Vlookup()函数更强大且好用的VlookupIn()函数。能对VBA宏程式实现撤销与还原操作,防止鼠标误点功能与误操作。由全球顶尖级水平微软MVP专家与财会管理信息团队历时多年开发,是与EXCEL用户与爱好者共同努力的结晶,被誉为&全能的办公瑞士军刀&。& &&安装不成功原因分析:对于无法安装的朋友请注意以下6点 :一:必须是完整版OFFICE,不能是绿色版、精简版,它们不支持COM加载宏。二:必须关闭Excel状态下安装或者删除工具,安装后重启Excel即可。三:如果是VISTA或WIN 7,必须以管理员用户安装,且从控制面板中关掉用户帐户控制(UAC)功能。四:如果您装了其它的EXCEL工具,请先关掉它,它们有可能删除本工具的菜单。五:不要使用除系统之外的皮肤包桌面主题显示,如果安装了请先卸载掉,以免影响工具正常显示。六: 如果XP系统+管理员权限+32位Office个别版本不能自动加载工具箱菜单的: Office按钮--》Excel选项--》Excel加载项--》Com加载项--》转到按钮--》添加安装目录中的ExcelTools.Dll文件并确认即可。EXCEL万能百宝箱v26.8 U盘版更新内容:26.8.1 原创二维码识别百宝箱,能单个或批量识别图片中的数字及字母、简体及繁体中文汉字、英文、日文,准确率达100%.26.8.2 原创EXCEL表格汇总功能,能极速对工作表的数据内容按指定关键字列进行数据自动求和汇总.26.8.3 原创EXCEL数据采集大师功能,方便调查统计表、赛事报名表及水文基础表格数据的采集与归类.26.8.4 新增随机姓名RandName()函数,能快速产生100--20000个随机的百家姓中文姓名,姓名长度支持2--4个,可以指定姓氏.26.8.5 新增金额分割AmountBreak()函数与金额拆分AmountSplit()函数,可用于生成个位--万亿位的财务凭证金额.26.8.6 根据二零一八年的全国最新百家姓排名,对百家姓序列进行了扩充.26.8.7 对ABC及abc序列进行了扩充,可以像数字填充一样快速向下拖出A--ZZ或a--zz的序列.26.8.8 改进邮件群发器功能,支持工资条的邮件发送,支持为每个人的邮箱对应发送不同附加文件的功能.26.8.9 对数字与栏位匹配函数ColumnText(16384)=&XFD&与ColumnNumber(&XFD&)=16384进行了功能扩展.26.8.10 升级汉字转拼音、全自动检索录入,升级公共服务组件Common.exe对台湾繁体系统的自动智能适应性支持等.
excel表格专题为您提供Excel电子表格最新版、ExcelP电子表格官方下载、excel各类辅助工具、excel工具箱等办公软件软件下载,让您的办公工作更加得心应手!小编整理了各类最新版excel表格相关软件,欢迎您下载!
EXCEL万能百宝箱64位版是著名微软办公软件EXCEL(...
v3.6 绿色版
批量修改多个Excel文件内容,同时支持xls和xlsx文...
进度计划Excel插件运行在Microsoft Office Excel...
v26.8 U盘版
EXCEL万能百宝箱是著名微软办公软件EXCEL(Micros...
咒语力量3阿翁尼之刃隐藏宝箱获得方法4个人每人站一个位置,地图像祭坛的东西上面,点亮火,旁边那个宝箱是凤凰碎片换的。
咒语力量3阿翁尼之刃隐藏宝箱获得方法4个人每人站一个位置,地图像祭坛的东西上面,点亮火,旁边那个宝箱是凤凰碎片换的。
高速下载器地址
适合机型:三星S5,三星S5刷机包
Android版本:6.0.1
ROM大小:742.40 MB
本站提供的软件会测试再上传,但无法保证所有软件都没有问题,如果您发现链接错误或其它问题,请在评论里告诉我们!
下载点支持点击下载(IE图标)或(迅雷图标),若直接点击下载速度太慢,请尝试点击其他的下载点,若文件太大请使用高速下载器。为确保下载的文件能正常使用,请使用最新版本解压本站软件。
建议大家谨慎对待所下载的文件,大家在安装的时候务必留意每一步!关于或的有关提示,请自行注意选择操作。
本站所有资源均是软件作者、开发商投稿、网上搜集,任何涉及商业盈利目的均不得使用,否则产生的一切后果将由您自己承担!将不对任何资源负法律责任。所有资源请在下载后24小时内删除。
本站下载资源全部由软件作者或软件厂商提供,游戏相关下载转自各大游戏论坛及游戏下载站,并全部为免费分享。如侵犯了您的版权,请立刻联系我们并附带版权证明,本站将尽快处理删除(举报联系QQ:3909136),或。
若您下载的资源有问题或无法下载,请与本站客服人员联系(QQ:9190104)。拒绝访问 | www.rapidbbs.cn | 百度云加速
请打开cookies.
此网站 (www.rapidbbs.cn) 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(f35143e3-ua98).
重新安装浏览器,或使用别的浏览器查看: 1608|回复: 13
紧急!抽奖程序,有点特别的要求,无法完成,求助!
阅读权限30
在线时间 小时
& & & & & & & &
本帖最后由 宏的故事 于
10:20 编辑
附件是论坛的一个抽奖模板,准备稍微修改下,用于公司年会抽奖。
但有些特别的要求,我不知道,如何改动此 抽奖模板的程序,请各位高手帮忙,在此多多感谢了。
特别的要求就是:每个参与抽奖的人都有座位号和桌号的(一个桌子有10个座位),每抽一轮奖,只能在一个座位号中产生。
举例:假设第一轮抽取25人,因为有25桌,如果抽到3座位号,即25个桌的第3个座位号,都是中奖人。 同时3座位号的人就失去了以后抽奖的机会了。& && && &&&假设第2轮抽取6人,如果抽取到9座位号,即25个桌的第9座位号的人,其中有6个人中奖,其他19人不中奖,同时9座位号的人也失去了后面抽奖的机会了。
& && && & 要抽10轮,对应每桌的10个座位号。
万一这样无法做到,那么只需要中到奖的人无法再中奖 ,也可以的,请各位大侠,多多帮忙了。
(45.55 KB, 下载次数: 25)
10:00 上传
点击文件名下载附件
阅读权限30
在线时间 小时
附件上传了
09:01 上传
点击文件名下载附件
49.73 KB, 下载次数: 34
阅读权限30
在线时间 小时
沉的好快,赶快顶上来
阅读权限30
在线时间 小时
& & & & & & & &
高手们,热切的求助
阅读权限30
在线时间 小时
& & & & & & & &
请求高手帮忙。
阅读权限30
在线时间 小时
请高手帮帮忙
阅读权限30
在线时间 小时
请高手帮帮忙
阅读权限30
在线时间 小时
星期一要用的,请各位高手帮下忙吧。
阅读权限20
在线时间 小时
宏的故事 发表于
星期一要用的,请各位高手帮下忙吧。
你这个很复杂啊,小弟只能看看了
阅读权限95
在线时间 小时
就是要把简单的事复杂化,你就不能一人一号再抽奖吗?
最新热点 /1
ExcelHome每周都有线上直播公开课,
国内一流讲师真身分享,高手贴身答疑,
赶不上直播还能看录像,
关键居然是免费的!
厚木哥们都已经这么努力了,
你还好意思说学不好Office。
玩命加载中,请稍候
玩命加载中,请稍候
Powered by
本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任! & & 本站特聘法律顾问:徐怀玉律师 李志群律师博主最新文章
博主热门文章
您举报文章:
举报原因:
原文地址:
原因补充:
(最多只允许输入30个字)&>&Excel VBA随机抽奖程序
Excel VBA随机抽奖程序
上传大小:95KB
用Excel VBA做的简易随机抽奖程序,随机抽取,不会重复抽取,供各位VBA爱好者参考!
综合评分:5
下载个数:
{%username%}回复{%com_username%}{%time%}\
/*点击出现回复框*/
$(".respond_btn").on("click", function (e) {
$(this).parents(".rightLi").children(".respond_box").show();
e.stopPropagation();
$(".cancel_res").on("click", function (e) {
$(this).parents(".res_b").siblings(".res_area").val("");
$(this).parents(".respond_box").hide();
e.stopPropagation();
/*删除评论*/
$(".del_comment_c").on("click", function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_invalid/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parents(".conLi").remove();
alert(data.msg);
$(".res_btn").click(function (e) {
var parentWrap = $(this).parents(".respond_box"),
q = parentWrap.find(".form1").serializeArray(),
resStr = $.trim(parentWrap.find(".res_area_r").val());
console.log(q);
//var res_area_r = $.trim($(".res_area_r").val());
if (resStr == '') {
$(".res_text").css({color: "red"});
$.post("/index.php/comment/do_comment_reply/", q,
function (data) {
if (data.succ == 1) {
var $target,
evt = e || window.
$target = $(evt.target || evt.srcElement);
var $dd = $target.parents('dd');
var $wrapReply = $dd.find('.respond_box');
console.log($wrapReply);
//var mess = $(".res_area_r").val();
var mess = resS
var str = str.replace(/{%header%}/g, data.header)
.replace(/{%href%}/g, 'http://' + window.location.host + '/user/' + data.username)
.replace(/{%username%}/g, data.username)
.replace(/{%com_username%}/g, data.com_username)
.replace(/{%time%}/g, data.time)
.replace(/{%id%}/g, data.id)
.replace(/{%mess%}/g, mess);
$dd.after(str);
$(".respond_box").hide();
$(".res_area_r").val("");
$(".res_area").val("");
$wrapReply.hide();
alert(data.msg);
}, "json");
/*删除回复*/
$(".rightLi").on("click", '.del_comment_r', function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_comment_del/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parent().parent().parent().parent().parent().remove();
$(e.target).parents('.res_list').remove()
alert(data.msg);
//填充回复
function KeyP(v) {
var parentWrap = $(v).parents(".respond_box");
parentWrap.find(".res_area_r").val($.trim(parentWrap.find(".res_area").val()));
评论共有16条
不错,可以用
好用的资源,初学者的话多看几遍即可明白
写的不错,不过刚学 看不懂代码
综合评分:
积分/C币:3
yfspringrain
综合评分:
积分/C币:3
dongxiaodong
综合评分:
积分/C币:3
综合评分:
积分/C币:3
综合评分:
积分/C币:3
综合评分:
积分/C币:5
综合评分:
积分/C币:3
综合评分:
积分/C币:3
综合评分:
积分/C币:3
综合评分:
积分/C币:3
VIP会员动态
CSDN下载频道资源及相关规则调整公告V11.10
下载频道用户反馈专区
下载频道积分规则调整V1710.18
spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip
资源所需积分/C币
当前拥有积分
当前拥有C币
输入下载码
为了良好体验,不建议使用迅雷下载
Excel VBA随机抽奖程序
会员到期时间:
剩余下载个数:
剩余积分:0
为了良好体验,不建议使用迅雷下载
积分不足!
资源所需积分/C币
当前拥有积分
您可以选择
程序员的必选
绿色安全资源
资源所需积分/C币
当前拥有积分
当前拥有C币
为了良好体验,不建议使用迅雷下载
资源所需积分/C币
当前拥有积分
当前拥有C币
为了良好体验,不建议使用迅雷下载
资源所需积分/C币
当前拥有积分
当前拥有C币
您的积分不足,将扣除 10 C币
为了良好体验,不建议使用迅雷下载
无法举报自己的资源
你当前的下载分为234。
你还不是VIP会员
开通VIP会员权限,免积分下载
你下载资源过于频繁,请输入验证码
您因违反CSDN下载频道规则而被锁定帐户,如有疑问,请联络:!
若举报审核通过,可返还被扣除的积分
被举报人:
unique5415
举报的资源分:
请选择类型
资源无法下载 ( 404页面、下载失败、资源本身问题)
资源无法使用 (文件损坏、内容缺失、题文不符)
侵犯版权资源 (侵犯公司或个人版权)
虚假资源 (恶意欺诈、刷分资源)
含色情、危害国家安全内容
含广告、木马病毒资源
*详细原因:
Excel VBA随机抽奖程序

我要回帖

更多关于 vba编写的实用小程序 的文章

 

随机推荐