Results 1 to 8 of 8

Thread: Wheel of fortune on Excel

  1. #1
    Join Date
    Mar 2007
    Posts
    378
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default Wheel of fortune on Excel

    Hey guys, need to do a mini discussion session and was thinking of using a wheel of fortune concept.

    Only problem is I am unable to come up with the wheel?

    Was thinking of doing something like what this guy has done.Anyone have an idea how to do it? I would be eternally grateful

    Link to sample video: https://www.youtube.com/watch?v=XlnUBEFpoZ0

    Thank you in advance!

    ~newb

    I dont mind transferring some RSGP to anyone who is able to replicate something like that as well.

  2. #2
    Join Date
    Mar 2015
    Posts
    438
    Mentioned
    21 Post(s)
    Quoted
    211 Post(s)

    Default

    Quote Originally Posted by newb cheater View Post
    Hey guys, need to do a mini discussion session and was thinking of using a wheel of fortune concept.

    Only problem is I am unable to come up with the wheel?

    Was thinking of doing something like what this guy has done.Anyone have an idea how to do it? I would be eternally grateful

    Link to sample video: https://www.youtube.com/watch?v=XlnUBEFpoZ0

    Thank you in advance!

    ~newb

    I dont mind transferring some RSGP to anyone who is able to replicate something like that as well.
    I'd do a google search on macros within excel - doesn't look like it'd be difficult once you figure out how the macro alters the wheel.

  3. #3
    Join Date
    Mar 2007
    Posts
    378
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Anyone able to assist? I did some messing around, and managed to piece together some code as below, but can't figure out what to edit to make it randomly stop at a certain angle instead of going round 360. Secondly, not sure which part of the code i need to edit to make it spin faster. Would be grateful if someone could advice.

    Code as below;

    Code:
    Sub Macro1()
    '
    ' Macro1 Macro
    ' Macro recorded 11/07/2008 by Andy Pope
    '
    Dim lngLoop As Long
    Dim lngDelay As Long
    '
    With ActiveSheet.ChartObjects("Chart 1").Chart
    For lngLoop = 1 To 360
    .Rotation = lngLoop
    DoEvents
    For lngDelay = 360 To 50000
    'CRUDE DELAY
    Next
    Next
    End With
    
    End Sub
    Sub Spin(ByVal dVal As Double)
    
    Dim i As Double
    
    With ActiveSheet.ChartObjects("Chart 1").Chart
    For i = 0 To dVal Step 0.1
    .Rotation = i
    DoEvents
    Next i
    End With
    
    End Sub
    
    Sub Spin1()
    Spin 200
    End Sub

  4. #4
    Join Date
    Oct 2013
    Location
    East Coast USA
    Posts
    770
    Mentioned
    61 Post(s)
    Quoted
    364 Post(s)

    Default

    I wonder how many people actually sent him $5 for this.

    http://wheeldecide.com/

  5. #5
    Join Date
    Feb 2011
    Location
    The Future.
    Posts
    5,600
    Mentioned
    396 Post(s)
    Quoted
    1598 Post(s)

  6. #6
    Join Date
    Mar 2015
    Posts
    189
    Mentioned
    3 Post(s)
    Quoted
    73 Post(s)

    Default

    Quote Originally Posted by Brandon View Post
    sick man, never knew that was possible!

  7. #7
    Join Date
    Mar 2007
    Posts
    378
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Hey Bonsai, thanks for that! Will see if I can find something similar to that.

    Appreciate the help

  8. #8
    Join Date
    Jun 2015
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Whaaa I never realized you could do this type of thing in Excel. Reminds me of people putting video games on their calculators though hsha

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •