c语言大乐透编译,Excel大乐透摇号vba代码分享，说不定就中百万了呢

大家好我是Excel从零到一，今天闲来无聊做了一套大乐透摇号程序的vba代码分享给大家

来看下效果

Excel大乐透摇号vba代码分享，说不定就中百万了呢

Sub 摇号()

Dim i, a, test, s(1 To 35) As Integer

For i = 1 To 5

line1: test = Application.WorksheetFunction.RandBetween(1, 35)

For a = 1 To i

If s(a) = test Then

GoTo line1

End If

s(i) = test

Cells(3, i) = s(i)

Call y

End Sub

Sub y()

Dim s, h, testy, q(1 To 12) As Integer

For i = 6 To 7

line1: testy = Application.WorksheetFunction.RandBetween(1, 12)

For h = 1 To i

If q(h) = testy Then

GoTo line1

End If

q(i) = testy

Cells(3, i) = q(i)

End Sub

打开vb编辑器，将代码复制进去，然后找到宏点击摇号即可摇号

都来试试把，万一中奖了，别忘了分给小编点吃个中午饭~

c语言大乐透编译,Excel大乐透摇号vba代码分享，说不定就中百万了呢相关推荐

excel查找功能_如何使用VBA代码实现Excel的查找和替换功能？
每天一篇Excel技术图文微信公众号:Excel星球NO.145-I Find You作者:看见星光微博:EXCELers / 知识星球:Excel HI,大家好,我是星光.这章继续给大家分享VBA常 ...
升级：DNAtools for Excel工具箱，2.x英文版- VBA代码破解工具
原始出处:www.cnblogs.com/Charltsing/p/DnaTools.html QQ:564955427 DNA工具箱全部功能一览: 单元格焦点指示(支持Excel 2007~2 ...
[No0000C1]Excel 删除空白行和空白列VBA代码
在exce中删除空行和空列的方法有很多,相对而言删除空行较为简单,只需进行筛选,将空白行筛选出来,删除即可,但要删除空列比较困难.因为你不能按列进行筛选删除.Excel中没有这个功能.当然你可以用另外 ...
Excelize 发布 2.1.0 版本, Go 语言最受欢迎的 Excel 基础库
Excelize 是 Go 语言编写的用于操作 Office Excel 文档类库,基于 ECMA-376 Office Open XML 标准.可以使用它来读取.写入由 Microsoft Exce ...
Excel 宏工作簿 VBAProject 工程保护 - 代码不可查看
目录一. VBAProject 工程保护二. VBA工程不可查看一. VBAProject 工程保护该功能由 Excel 官方提供,用于对 VBA 代码加以密码保护,具体设置方法如下动态图所示 ...
编译原理大作业-PL0语言编译器
编译原理大作业-PL0语言编译器一.实验目的二.源码说明 1.头文件pl0.h (1 词法分析主要数据结构(通过enum symbol类实现) 1.保留字(13+4个): 2.运算符及界符(16+ ...
第一次编译原理大作业---用FLEX编写C语言的词法分析器
一开始看到这个作业的时候真的很懵圈,因为感觉每个字都认识但合起来就不知道到底是什么意思.开始的时候先去官网看了flex的介绍,官网上推荐和visual studio一起用,然后又去下载了vs.搞了半天 ...
python和r语言做大数据_R和python大数据
数据科学界华山论剑:R与Python巅峰对决如果你是数据分析领域的新兵,那么你一定很难抉择--在进行数据分析时,到底应该使用哪个语言,R还是Python?在网络上,也经常出现诸如"我想学习 ...
大数据入门：Scala大数据黄金语言
在大数据的学习当中,关于编程语言选择的部分,是很多人在学习初期非常关注的.在企业大数据平台开发场景下,Java语言是主流选择,其次涉及到Spark部分,就不得不提到Scala语言.今天的大数据入门分享 ...

c语言大乐透编译,Excel大乐透摇号vba代码分享，说不定就中百万了呢

c语言大乐透编译,Excel大乐透摇号vba代码分享，说不定就中百万了呢相关推荐

最新文章

热门文章