网站做线,郑州做网站找维诺,软件上市公司排名,建设网站建设投标网1249中官网词大家好我是Excel从零到一#xff0c;今天闲来无聊做了一套大乐透摇号程序的vba代码分享给大家来看下效果Excel大乐透摇号vba代码分享#xff0c;说不定就中百万了呢Sub 摇号()Dim i, a, test, s(1 To 35) As IntegerFor i 1 To 5line1: test Application.WorksheetFunction…大家好我是Excel从零到一今天闲来无聊做了一套大乐透摇号程序的vba代码分享给大家来看下效果Excel大乐透摇号vba代码分享说不定就中百万了呢Sub 摇号()Dim i, a, test, s(1 To 35) As IntegerFor i 1 To 5line1: test Application.WorksheetFunction.RandBetween(1, 35)For a 1 To iIf s(a) test ThenGoTo line1End IfNexts(i) testCells(3, i) s(i)NextCall yEnd SubSub y()Dim s, h, testy, q(1 To 12) As IntegerFor i 6 To 7line1: testy Application.WorksheetFunction.RandBetween(1, 12)For h 1 To iIf q(h) testy ThenGoTo line1End IfNextq(i) testyCells(3, i) q(i)NextEnd Sub打开vb编辑器将代码复制进去然后找到宏点击摇号即可摇号都来试试把万一中奖了别忘了分给小编点吃个中午饭~
