CREATING PICK 3/4 COMBO WITH VBA

SUBMITTED BY: Guest

DATE: March 12, 2014, 2:45 p.m.

FORMAT: Text only

SIZE: 1.4 kB

Raw Download

HITS: 1082

Report
  1. Pick 4 Code:
  3. Option Explicit
  4. Dim A As Integer, B As Integer, C As Integer, D As Integer
  5. Dim X As Double
  7. Sub CombininationsPick4()
  9. Columns("A:E").Select
  10. Selection.ClearContents
  11. Range("G1").Select
  13. ' Generates all combinations for a pick-4 lottery
  15. Range("A1").Select
  17. X = 1
  19. For A = 0 To 9
  20. For B = 0 To 9
  21. For C = 0 To 9
  22. For D = 0 To 9
  24. ActiveCell.Offset(X, 0).Value = X
  25. ActiveCell.Offset(X, 1).Value = A
  26. ActiveCell.Offset(X, 2).Value = B
  27. ActiveCell.Offset(X, 3).Value = C
  28. ActiveCell.Offset(X, 4).Value = D
  30. X = X + 1
  32. Next D
  33. Next C
  34. Next B
  35. Next A
  37. End Sub
  39. ===============================================
  41. Pick 3 Code:
  43. Option Explicit
  44. Dim A As Integer, B As Integer, C As Integer
  46. Dim X As Double
  48. Sub CombininationsPick3()
  50. Columns("A:D").Select
  51. Selection.ClearContents
  52. Range("G1").Select
  54. ' Generates all combinations for a pick-3 lottery
  56. Range("A1").Select
  58. X = 1
  60. For A = 0 To 9
  61. For B = 0 To 9
  62. For C = 0 To 9
  65. ActiveCell.Offset(X, 0).Value = X
  66. ActiveCell.Offset(X, 1).Value = A
  67. ActiveCell.Offset(X, 2).Value = B
  68. ActiveCell.Offset(X, 3).Value = C
  71. X = X + 1
  74. Next C
  75. Next B
  76. Next A
  78. End Sub
comments powered by Disqus