Channel: MrExcel.com

Category: Howto & Style

Tags: excelhow to win the lottery in excelbest possible combination to win the lotterymrexcelcombin function in excel to figure lottery probabilitypower ball lottery in excellottery systems in excelvba macros in excelmicrosoft excelbill jelenchoosing the lottery winning combinationslist all lottery combinations

Description: For my video course to learn VBA Macros: pearson.com/uk/educators/higher-education-educators/program/Jelen-Excel-VBA-and-Macros-with-Mr-Excel-Live-Lessons-Video-Training/PGM973521.html Reid would like to list all 6-number combinations of the numbers 1 to 44. For example, 1-2-3-4-5-6, 1-2-3-4-5-7, and so on up to 39-40-41-42-43-44. The first thing to realize is that all lottery combinations are a lot of numbers. Over 7 million possibilities according to the COMBIN function in Excel. (For Power Ball, there are 292 million combinations!). Listing all combinations will be difficult because Excel only includes 1,048,576 rows. In this video, I show how to enable Macros in your version of Excel and then the macro code to list all possible combinations. Here is the code you can copy into your project. Sub ListThemAll() TC = 1 TR = 1 Ctr = 1 MaxRows = Rows.Count EndCell = 7059052 Application.ScreenUpdating = False For a = 1 To 39 For b = (a + 1) To 40 For c = (b + 1) To 41 For d = (c + 1) To 42 For e = (d + 1) To 43 For f = (e + 1) To 44 Application.StatusBar = Ctr & " on way to " & EndCell Cells(TR, TC).Value = a & "-" & b & "-" & c & "-" & d & "-" & e & "-" & f Ctr = Ctr + 1 If Ctr Mod 25000 = 0 Then Cells(TR - 20, TC).Select Application.ScreenUpdating = True ThisWorkbook.Save Application.ScreenUpdating = False End If TR = TR + 1 If TR = MaxRows Then TR = 1 TC = TC + 1 End If Next f Next e Next d Next c Next b Next a Application.StatusBar = False Application.ScreenUpdating = True End Sub