Random Number Game

[tommyboy2340]

Kind of a random idea, there is this game where you generate a random number between 1 and 100. You then change the range from 1 to (the random number that was generated). This is then repeated until the random number is 1. Is this something that is possible to code? I know how to get a random number from a range but I can not figure out how to replace the max number with the randomly generated number. Any help with this would be amazing!

 

[Eric W]

Are you looking for a formula or a macro? It's easy to do with a formula:

Book1 (version 1).xlsb
	A
1	Start
2	100
3	54
4	53
5	26
6	26
7	23
8	9
9	7
10	2
11	1
12
13
14
15
Sheet15

Cell Formulas
Range	Formula
A3:A15	A3	=IF(OR(A2=1,A2=""),"",RANDBETWEEN(1,A2))

Just press F9 for a new game.

 

[tommyboy2340]

Are you looking for a formula or a macro? It's easy to do with a formula:

Book1 (version 1).xlsb
	A
1	Start
2	100
3	54
4	53
5	26
6	26
7	23
8	9
9	7
10	2
11	1
12
13
14
15
Sheet15

Cell Formulas
Range	Formula
A3:A15	A3	=IF(OR(A2=1,A2=""),"",RANDBETWEEN(1,A2))

Just press F9 for a new

Wow I didn't think it would be that easy lol. Thank you!

 

[tommyboy2340]

Wow I didn't think it would be that easy lol. Thank you!

Is there any way to do it so you can randomize it one at a time?

 

[Eric W]

Sure, but that requires VBA. Open a new workbook. Press Alt-F11 to open the VBA editor. Press Alt-IM to Insert a Module. Paste the following code into the window that opens:

Sub RandomChain()
Dim x As Range
    Set x = Cells(Rows.Count, "A").End(xlUp)
    If x = 1 Then Exit Sub
    x.Offset(1) = WorksheetFunction.RandBetween(1, x)
End Sub

Press Alt-Q to Quit the editor. Press Alt-F8 to open the macro selector. Select RandomChain. Click Options... and put a letter in the hotkey box, such as A. Close the selector box. Now put a number, like 100 in A1. Now every time you press Ctrl-Shift-A, you'll get another row. It'll stop when it hits 1. If you want to play another game, delete all the rows below A1. You can also attach the macro to a button that you can click on, or even put it in the ribbon.

Have fun!