Welcome Guest
Log In | Register )
You last visited January 20, 2017, 4:53 am
All times shown are
Eastern Time (GMT-5:00)

Excel help

Topic closed. 7 replies. Last post 5 years ago by Deepop.

Page 1 of 1
PrintE-mailLink
Deepop's avatar - pyramid
Blakeslee,Pennsylvania
United States
Member #81742
October 28, 2009
474 Posts
Offline
Posted: August 17, 2011, 7:03 pm - IP Logged

Can someone tell how to formulate a spreadsheet for TTT

that would animate all possibale combonations.

 

example:

INPUT

345

278

490

 

OUTPUT

All possable combos.

324,479,234  ect.

 

Thanks.

$$$ YOU GOTTA BE IN IT TO WIN IT $$$

    Avatar

    United States
    Member #41846
    June 23, 2006
    460 Posts
    Offline
    Posted: August 19, 2011, 5:08 am - IP Logged

    Deepop

    do you use macros?  where are the numbers you want comb for. ex a1:c3  any preference for where the output goes?

      Deepop's avatar - pyramid
      Blakeslee,Pennsylvania
      United States
      Member #81742
      October 28, 2009
      474 Posts
      Offline
      Posted: August 19, 2011, 11:19 am - IP Logged

      Deepop

      do you use macros?  where are the numbers you want comb for. ex a1:c3  any preference for where the output goes?

      Hi.

      And thanks for the reply.

      Yes i do use macros, no preference for the output A1:C3 would be ideal.

      I have a text to number calculator that i use for lottery

      and it gives me numbers in this TTT format:

       

      123

      456

      789

       

      I was trying to find a way to animate all possible combos

      by entering the three combos as above to save time doing it manualy.

       

      Thanks in advance for any help.

      $$$ YOU GOTTA BE IN IT TO WIN IT $$$

        Avatar

        United States
        Member #41846
        June 23, 2006
        460 Posts
        Offline
        Posted: August 19, 2011, 7:52 pm - IP Logged

        copy this sub to a new spreadsheet to check it out.  put your 3 comb in a1:c3 the start the macro. results in f,g,h

        p8

         

         

        Sub p3_wheel()


        Dim tn(9), wn(90)
        'load wheel position info
        wn(1) = 1: wn(2) = 2: wn(3) = 3: wn(4) = 1: wn(5) = 5: wn(6) = 3: wn(7) = 2: wn(8) = 5: wn(9) = 3
        wn(10) = 1: wn(11) = 2: wn(12) = 4: wn(13) = 1: wn(14) = 5: wn(15) = 4: wn(16) = 3: wn(17) = 2: wn(18) = 4
        wn(19) = 3: wn(20) = 5: wn(21) = 4: wn(22) = 1: wn(23) = 2: wn(24) = 5: wn(25) = 2: wn(26) = 4: wn(27) = 5
        wn(28) = 1: wn(29) = 2: wn(30) = 6: wn(31) = 1: wn(32) = 5: wn(33) = 6: wn(34) = 2: wn(35) = 3: wn(36) = 6
        wn(37) = 2: wn(38) = 5: wn(39) = 6: wn(40) = 3: wn(41) = 5: wn(42) = 6: wn(43) = 1: wn(44) = 4: wn(45) = 7
        wn(46) = 1: wn(47) = 5: wn(48) = 7: wn(49) = 2: wn(50) = 4: wn(51) = 7: wn(52) = 2: wn(53) = 5: wn(54) = 7
        wn(55) = 3: wn(56) = 5: wn(57) = 7: wn(58) = 1: wn(59) = 4: wn(60) = 8: wn(61) = 1: wn(62) = 5: wn(63) = 8
        wn(64) = 2: wn(65) = 4: wn(66) = 8: wn(67) = 2: wn(68) = 5: wn(69) = 8: wn(70) = 3: wn(71) = 5: wn(72) = 8
        wn(73) = 1: wn(74) = 5: wn(75) = 9: wn(76) = 2: wn(77) = 5: wn(78) = 9: wn(79) = 3: wn(80) = 5: wn(81) = 9
        wn(82) = 3: wn(83) = 6: wn(84) = 9
        t = 1
        For x = 1 To 3: For y = 1 To 3: a = Cells(x, y): tn(t) = a: t = t + 1: Next y: Next x
        t = 1
        For x = 1 To 28: For y = 1 To 3: b = wn(t): Cells(x, y + 5) = tn(b): t = t + 1: Next y: Next x


        End Sub

          Deepop's avatar - pyramid
          Blakeslee,Pennsylvania
          United States
          Member #81742
          October 28, 2009
          474 Posts
          Offline
          Posted: August 20, 2011, 8:16 am - IP Logged

          copy this sub to a new spreadsheet to check it out.  put your 3 comb in a1:c3 the start the macro. results in f,g,h

          p8

           

           

          Sub p3_wheel()


          Dim tn(9), wn(90)
          'load wheel position info
          wn(1) = 1: wn(2) = 2: wn(3) = 3: wn(4) = 1: wn(5) = 5: wn(6) = 3: wn(7) = 2: wn(8) = 5: wn(9) = 3
          wn(10) = 1: wn(11) = 2: wn(12) = 4: wn(13) = 1: wn(14) = 5: wn(15) = 4: wn(16) = 3: wn(17) = 2: wn(18) = 4
          wn(19) = 3: wn(20) = 5: wn(21) = 4: wn(22) = 1: wn(23) = 2: wn(24) = 5: wn(25) = 2: wn(26) = 4: wn(27) = 5
          wn(28) = 1: wn(29) = 2: wn(30) = 6: wn(31) = 1: wn(32) = 5: wn(33) = 6: wn(34) = 2: wn(35) = 3: wn(36) = 6
          wn(37) = 2: wn(38) = 5: wn(39) = 6: wn(40) = 3: wn(41) = 5: wn(42) = 6: wn(43) = 1: wn(44) = 4: wn(45) = 7
          wn(46) = 1: wn(47) = 5: wn(48) = 7: wn(49) = 2: wn(50) = 4: wn(51) = 7: wn(52) = 2: wn(53) = 5: wn(54) = 7
          wn(55) = 3: wn(56) = 5: wn(57) = 7: wn(58) = 1: wn(59) = 4: wn(60) = 8: wn(61) = 1: wn(62) = 5: wn(63) = 8
          wn(64) = 2: wn(65) = 4: wn(66) = 8: wn(67) = 2: wn(68) = 5: wn(69) = 8: wn(70) = 3: wn(71) = 5: wn(72) = 8
          wn(73) = 1: wn(74) = 5: wn(75) = 9: wn(76) = 2: wn(77) = 5: wn(78) = 9: wn(79) = 3: wn(80) = 5: wn(81) = 9
          wn(82) = 3: wn(83) = 6: wn(84) = 9
          t = 1
          For x = 1 To 3: For y = 1 To 3: a = Cells(x, y): tn(t) = a: t = t + 1: Next y: Next x
          t = 1
          For x = 1 To 28: For y = 1 To 3: b = wn(t): Cells(x, y + 5) = tn(b): t = t + 1: Next y: Next x


          End Sub

          Thank You Very much for your help.



          $$$ YOU GOTTA BE IN IT TO WIN IT $$$

            Deepop's avatar - pyramid
            Blakeslee,Pennsylvania
            United States
            Member #81742
            October 28, 2009
            474 Posts
            Offline
            Posted: August 20, 2011, 1:04 pm - IP Logged

            copy this sub to a new spreadsheet to check it out.  put your 3 comb in a1:c3 the start the macro. results in f,g,h

            p8

             

             

            Sub p3_wheel()


            Dim tn(9), wn(90)
            'load wheel position info
            wn(1) = 1: wn(2) = 2: wn(3) = 3: wn(4) = 1: wn(5) = 5: wn(6) = 3: wn(7) = 2: wn(8) = 5: wn(9) = 3
            wn(10) = 1: wn(11) = 2: wn(12) = 4: wn(13) = 1: wn(14) = 5: wn(15) = 4: wn(16) = 3: wn(17) = 2: wn(18) = 4
            wn(19) = 3: wn(20) = 5: wn(21) = 4: wn(22) = 1: wn(23) = 2: wn(24) = 5: wn(25) = 2: wn(26) = 4: wn(27) = 5
            wn(28) = 1: wn(29) = 2: wn(30) = 6: wn(31) = 1: wn(32) = 5: wn(33) = 6: wn(34) = 2: wn(35) = 3: wn(36) = 6
            wn(37) = 2: wn(38) = 5: wn(39) = 6: wn(40) = 3: wn(41) = 5: wn(42) = 6: wn(43) = 1: wn(44) = 4: wn(45) = 7
            wn(46) = 1: wn(47) = 5: wn(48) = 7: wn(49) = 2: wn(50) = 4: wn(51) = 7: wn(52) = 2: wn(53) = 5: wn(54) = 7
            wn(55) = 3: wn(56) = 5: wn(57) = 7: wn(58) = 1: wn(59) = 4: wn(60) = 8: wn(61) = 1: wn(62) = 5: wn(63) = 8
            wn(64) = 2: wn(65) = 4: wn(66) = 8: wn(67) = 2: wn(68) = 5: wn(69) = 8: wn(70) = 3: wn(71) = 5: wn(72) = 8
            wn(73) = 1: wn(74) = 5: wn(75) = 9: wn(76) = 2: wn(77) = 5: wn(78) = 9: wn(79) = 3: wn(80) = 5: wn(81) = 9
            wn(82) = 3: wn(83) = 6: wn(84) = 9
            t = 1
            For x = 1 To 3: For y = 1 To 3: a = Cells(x, y): tn(t) = a: t = t + 1: Next y: Next x
            t = 1
            For x = 1 To 28: For y = 1 To 3: b = wn(t): Cells(x, y + 5) = tn(b): t = t + 1: Next y: Next x


            End Sub

            Thanks Again.

             

            Works like a charm except the combo for B3,C3,and C2 is not being automated.

            Example:

             

            167

            281

            123

            $$$ YOU GOTTA BE IN IT TO WIN IT $$$

              Avatar

              United States
              Member #41846
              June 23, 2006
              460 Posts
              Offline
              Posted: August 20, 2011, 9:38 pm - IP Logged

              I used a program that i use to copy the code.  forgot that it did not do all the possible comb.  more than 1 missing.  corrected code below.

               

              Sub p3_wheel()


              Dim tn(9), wn(150)
              'load wheel position info
              wn(1) = 1: wn(2) = 2: wn(3) = 3: wn(4) = 1: wn(5) = 2: wn(6) = 4: wn(7) = 1: wn(8) = 2: wn(9) = 5
              wn(10) = 1: wn(11) = 2: wn(12) = 6: wn(13) = 1: wn(14) = 2: wn(15) = 7: wn(16) = 1: wn(17) = 2: wn(18) = 8
              wn(19) = 1: wn(20) = 2: wn(21) = 9: wn(22) = 1: wn(23) = 3: wn(24) = 4: wn(25) = 1: wn(26) = 3: wn(27) = 5
              wn(28) = 1: wn(29) = 3: wn(30) = 6: wn(31) = 1: wn(32) = 3: wn(33) = 7: wn(34) = 1: wn(35) = 3: wn(36) = 8
              wn(37) = 1: wn(38) = 3: wn(39) = 9: wn(40) = 1: wn(41) = 4: wn(42) = 5: wn(43) = 1: wn(44) = 4: wn(45) = 6
              wn(46) = 1: wn(47) = 4: wn(48) = 7: wn(49) = 1: wn(50) = 4: wn(51) = 8: wn(52) = 1: wn(53) = 4: wn(54) = 9
              wn(55) = 1: wn(56) = 5: wn(57) = 6: wn(58) = 1: wn(59) = 5: wn(60) = 7: wn(61) = 1: wn(62) = 5: wn(63) = 8
              wn(64) = 1: wn(65) = 5: wn(66) = 9: wn(67) = 1: wn(68) = 6: wn(69) = 7: wn(70) = 1: wn(71) = 6: wn(72) = 8
              wn(73) = 1: wn(74) = 6: wn(75) = 9: wn(76) = 2: wn(77) = 3: wn(78) = 4: wn(79) = 2: wn(80) = 3: wn(81) = 5
              wn(82) = 2: wn(83) = 3: wn(84) = 6: wn(85) = 2: wn(86) = 3: wn(87) = 4: wn(88) = 2: wn(89) = 3: wn(90) = 5
              wn(91) = 2: wn(92) = 3: wn(93) = 6: wn(94) = 2: wn(95) = 3: wn(96) = 7: wn(97) = 2: wn(98) = 3: wn(99) = 8
              wn(100) = 2: wn(101) = 3: wn(102) = 9: wn(103) = 3: wn(104) = 4: wn(105) = 5
              wn(106) = 3: wn(107) = 4: wn(108) = 5: wn(109) = 3: wn(110) = 4: wn(111) = 6
              wn(112) = 3: wn(113) = 4: wn(114) = 7: wn(115) = 3: wn(116) = 4: wn(117) = 8
              wn(118) = 3: wn(119) = 4: wn(120) = 9: wn(121) = 5: wn(122) = 6: wn(123) = 7
              wn(124) = 5: wn(125) = 6: wn(126) = 8: wn(127) = 5: wn(128) = 6: wn(129) = 9
              wn(130) = 6: wn(131) = 7: wn(132) = 8: wn(133) = 6: wn(134) = 7: wn(135) = 9
              wn(136) = 7: wn(137) = 8: wn(138) = 9

               


              t = 1
              For x = 1 To 3: For y = 1 To 3: a = Cells(x, y): tn(t) = a: t = t + 1: Next y: Next x
              t = 1
              For x = 1 To 46: For y = 1 To 3: b = wn(t): Cells(x, y + 5) = tn(b): t = t + 1: Next y: Next x


              End Sub

                Deepop's avatar - pyramid
                Blakeslee,Pennsylvania
                United States
                Member #81742
                October 28, 2009
                474 Posts
                Offline
                Posted: August 21, 2011, 8:41 am - IP Logged

                I used a program that i use to copy the code.  forgot that it did not do all the possible comb.  more than 1 missing.  corrected code below.

                 

                Sub p3_wheel()


                Dim tn(9), wn(150)
                'load wheel position info
                wn(1) = 1: wn(2) = 2: wn(3) = 3: wn(4) = 1: wn(5) = 2: wn(6) = 4: wn(7) = 1: wn(8) = 2: wn(9) = 5
                wn(10) = 1: wn(11) = 2: wn(12) = 6: wn(13) = 1: wn(14) = 2: wn(15) = 7: wn(16) = 1: wn(17) = 2: wn(18) = 8
                wn(19) = 1: wn(20) = 2: wn(21) = 9: wn(22) = 1: wn(23) = 3: wn(24) = 4: wn(25) = 1: wn(26) = 3: wn(27) = 5
                wn(28) = 1: wn(29) = 3: wn(30) = 6: wn(31) = 1: wn(32) = 3: wn(33) = 7: wn(34) = 1: wn(35) = 3: wn(36) = 8
                wn(37) = 1: wn(38) = 3: wn(39) = 9: wn(40) = 1: wn(41) = 4: wn(42) = 5: wn(43) = 1: wn(44) = 4: wn(45) = 6
                wn(46) = 1: wn(47) = 4: wn(48) = 7: wn(49) = 1: wn(50) = 4: wn(51) = 8: wn(52) = 1: wn(53) = 4: wn(54) = 9
                wn(55) = 1: wn(56) = 5: wn(57) = 6: wn(58) = 1: wn(59) = 5: wn(60) = 7: wn(61) = 1: wn(62) = 5: wn(63) = 8
                wn(64) = 1: wn(65) = 5: wn(66) = 9: wn(67) = 1: wn(68) = 6: wn(69) = 7: wn(70) = 1: wn(71) = 6: wn(72) = 8
                wn(73) = 1: wn(74) = 6: wn(75) = 9: wn(76) = 2: wn(77) = 3: wn(78) = 4: wn(79) = 2: wn(80) = 3: wn(81) = 5
                wn(82) = 2: wn(83) = 3: wn(84) = 6: wn(85) = 2: wn(86) = 3: wn(87) = 4: wn(88) = 2: wn(89) = 3: wn(90) = 5
                wn(91) = 2: wn(92) = 3: wn(93) = 6: wn(94) = 2: wn(95) = 3: wn(96) = 7: wn(97) = 2: wn(98) = 3: wn(99) = 8
                wn(100) = 2: wn(101) = 3: wn(102) = 9: wn(103) = 3: wn(104) = 4: wn(105) = 5
                wn(106) = 3: wn(107) = 4: wn(108) = 5: wn(109) = 3: wn(110) = 4: wn(111) = 6
                wn(112) = 3: wn(113) = 4: wn(114) = 7: wn(115) = 3: wn(116) = 4: wn(117) = 8
                wn(118) = 3: wn(119) = 4: wn(120) = 9: wn(121) = 5: wn(122) = 6: wn(123) = 7
                wn(124) = 5: wn(125) = 6: wn(126) = 8: wn(127) = 5: wn(128) = 6: wn(129) = 9
                wn(130) = 6: wn(131) = 7: wn(132) = 8: wn(133) = 6: wn(134) = 7: wn(135) = 9
                wn(136) = 7: wn(137) = 8: wn(138) = 9

                 


                t = 1
                For x = 1 To 3: For y = 1 To 3: a = Cells(x, y): tn(t) = a: t = t + 1: Next y: Next x
                t = 1
                For x = 1 To 46: For y = 1 To 3: b = wn(t): Cells(x, y + 5) = tn(b): t = t + 1: Next y: Next x


                End Sub

                Thank You.

                $$$ YOU GOTTA BE IN IT TO WIN IT $$$