DRSteele
Well-known Member
- Joined
- Mar 31, 2015
- Messages
- 2,652
- Office Version
- 365
- Platform
- Windows
I stumbled across this old post http://www.mrexcel.com/tip119.shtml
I messed around and found another way to roll some dice.
Format A1 and B1 with any font sized 48 and D1 28. Have fun.
[TABLE="width: 85%"]
<tbody>[TR]
[TD]Worksheet Formulas[TABLE="width: 100%"]
<tbody>[TR]
[TH="width: 10"]Cell[/TH]
[TH="align: left"]Formula[/TH]
[/TR]
[TR]
[TH="width: 10"]A1[/TH]
[TD="align: left"]=UNICHAR(RANDBETWEEN(0,5)+9856)[/TD]
[/TR]
[TR]
[TH="width: 10"]B1[/TH]
[TD="align: left"]=UNICHAR(RANDBETWEEN(0,5)+9856)[/TD]
[/TR]
[TR]
[TH="width: 10"]D1[/TH]
[TD="align: left"]=UNICHAR(UNICODE(A1)-9855+UNICODE(B1)-9855+9311)[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
</tbody>[/TABLE]
I messed around and found another way to roll some dice.
Format A1 and B1 with any font sized 48 and D1 28. Have fun.
Dice
[TABLE="width: 85%"]
<tbody>[TR]
[TD]Worksheet Formulas[TABLE="width: 100%"]
<tbody>[TR]
[TH="width: 10"]Cell[/TH]
[TH="align: left"]Formula[/TH]
[/TR]
[TR]
[TH="width: 10"]A1[/TH]
[TD="align: left"]=UNICHAR(RANDBETWEEN(0,5)+9856)[/TD]
[/TR]
[TR]
[TH="width: 10"]B1[/TH]
[TD="align: left"]=UNICHAR(RANDBETWEEN(0,5)+9856)[/TD]
[/TR]
[TR]
[TH="width: 10"]D1[/TH]
[TD="align: left"]=UNICHAR(UNICODE(A1)-9855+UNICODE(B1)-9855+9311)[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
</tbody>[/TABLE]
Last edited: