Vba generate keno numbers in or Lotto numbers

Reply #18

dr san — Mon, 14 Aug 2017 00:06:06 GMT

Dim MaxDateData As Date

Set WsWeb = ThisWorkbook.Worksheets( WebScrape )

Set WsData = ThisWorkbook.Worksheets( Data )

Set WsCalc = ThisWorkbook.Worksheets( Calculations

Reply #17

dr san — Mon, 14 Aug 2017 00:04:03 GMT

Hello, winsum. Ok perfect thank you

Reply #16

Ricklou — Sun, 13 Aug 2017 22:34:04 GMT

Good work there but I personally dont do or believe in random number generators its a waste of your money you can just aswell get a quick pick and throw your money at it and hope and pray

Here is also one on the powerball but its draws a frequency of the top hitters after the scraping

CODE

Option Explicit

Type typeRec

Bin As Integer

Freq As Integer

End Type

Sub Process()

Dim WsWeb As Worksheet

Dim WsData As Worksheet

Dim WsCalc As Worksheet

Dim qt As QueryTabl... [ More ]

Reply #15

timmsy — Sun, 13 Aug 2017 22:26:32 GMT

Dont forget to use the ohter vba i posted to find the most common numbers . Use both in the same excel sheet .

Reply #14

Ricklou — Sun, 13 Aug 2017 22:23:29 GMT

Still only a random number generator....no science behind this to make it effective

Reply #13

timmsy — Sun, 13 Aug 2017 22:22:04 GMT

Good luck AllenB

Reply #12

AllenB — Sun, 13 Aug 2017 21:10:15 GMT

Very Cool Routine.

It is easy to customize.

I am going to give it a whirl on CA Fantasy 5.

I Set the Output to 1-39, 5 combinations and 39 Rows.

Looking to See how the Numbers that have the Highest Count in the Output Perform.

3 Runs from the Macro

25 9 4 36 32

33 38 37 3 39

8 39 20 37 27

Reply #11

winsumloosesum — Sun, 13 Aug 2017 20:39:47 GMT

Sub generatelottery3()

Const l = 1 'lower value

Const u = 100 'upper value

Const n = 50 'number of numbers per draw

Dim a(), b() As Boolean

Dim rws , i , x , k

rws = 200 'number of lottery draws

ReDim a(1 To rws, 1 To n)

Randomize

For i = 1 To rws

ReDim b(l To u): k = 0: s =

Do

x = Int(Rnd * u) + l

If Not b(x) Then k = k + 1: b(x) = True

Loop Until k = n

k = 0

For x = l To u

If b(x) Then k = k + 1: a(i, k) = x

Next x

Next i

Range( c2 ).... [ More ]

Reply #10

dr san — Sun, 13 Aug 2017 19:16:53 GMT

Hello winsum, in the macro where you have 20 you can put 50

Keep the 200, but instead of 20 put 50 numbers

What can I play in my lottery?

I can play up to 50 numbers

Reply #9

timmsy — Sun, 13 Aug 2017 03:01:21 GMT

Reply #8

dr san — Sat, 12 Aug 2017 14:09:52 GMT

timmsy

https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcSC0yKLk1K5QTc7RzKQVJi2M3iWHh5MHJS0T29KzVip3sSjd6RdpQ

Reply #7

dr san — Sat, 12 Aug 2017 14:05:36 GMT

Hello, you can create a code, to generate lines of 50 numbers

But these lines have to be symmetrical, 5 lines per 5 columns

The array has 10 rows and 10 columns numbers from 00 to 99

Each row and column has 10 numbers, but in the rows it has to

Be at most 5 of each

Reply #6

dr san — Sat, 12 Aug 2017 07:03:06 GMT

Hello, winsum. Ok perfect thank you

Reply #5

retxx — Sat, 12 Aug 2017 00:27:13 GMT

winsum can you open office the formula/ I am not good at using these figures. too old lol

Reply #4

winsumloosesum — Fri, 11 Aug 2017 21:56:56 GMT

Sub generatelottery2()

Const l = 1 'lower value

Const u = 100 'upper value

Const n = 20 'number of numbers per draw

Dim a(), b() As Boolean

Dim rws , i , x , k

rws = 200 'number of lottery draws

ReDim a(1 To rws, 1 To n)

Randomize

For i = 1 To rws

ReDim b(l To u): k = 0: s =

Do

x = Int(Rnd * u) + l

If Not b(x) Then k = k + 1: b(x) = True

Loop Until k = n

k = 0

For x = l To u

If b(x) Then k = k + 1: a(i, k) = x

Next x

Next i

Range( c2 ).... [ More ]

Reply #3

dr san — Fri, 11 Aug 2017 12:23:48 GMT

Hello,TIMMSY my keno is 100/20

Can you please do 100/20

Reply #2

winsumloosesum — Thu, 10 Aug 2017 19:47:01 GMT

Thank you for posting.

Reply #1

retxx — Wed, 09 Aug 2017 14:12:47 GMT

can someone write this in open office? thanks

Vba generate keno numbers in or Lotto numbers

timmsy — Wed, 09 Aug 2017 11:13:57 GMT

Another Old Excel VBA I used in the pasted to generate keno numbers

VBA set for Keno 1 to 80 Keno numbers and generate 20 numbers ,, Enjoy and good luck !!

Sub generatelottery()

Const l = 1 'lower value

Const u = 80 'upper value

Const n = 20 'number of numbers per draw

Dim a(), b() As Boolean

Dim rws , i , x , k

rws = 200 'number of lottery draws

ReDim a(1 To rws, 1 To n)

Randomize

For i = 1 To rws

ReDim b(l To u): k = 0: s =

Do

x = Int(Rnd... [ More ]