Creating a button...

[Markv]

Hi all.

Does anyone have the formula to create a button on your work sheet that upon
clicking on it will give you a result?

ie. dice rolls, I would click on the button and the dice will roll.

Thanks.

 

[Nayab]

Hi all.

Does anyone have the formula to create a button on your work sheet that upon
clicking on it will give you a result?

ie. dice rolls, I would click on the button and the dice will roll.

Thanks.

Mark, button can be made but only button can't make things roll. U can
internally rite some vb code/macro to make things happen and then u
need to attach the click of this button to this macro. Otherwise u can
insert control buttons and on click of these buttons u can write the
corresponding code

 

[Markv]

thanks Mate, do you know the VB code for this. I have never used this type
programming

 

[Nayab]

thanks Mate, do you know the VB code for this. I have never used this type
programming






- Show quoted text -

Mark, I am not sure what exactly is ur requirement. Do you want to
display randomly picked values between 1,6 when you click a button?

If this is the case then, choose control toolbox and select the button
and draw it on the worksheet. Right click on this button and slect
view code.

On the code page, u see::::
Private Sub CommandButton1_Click()

End Sub


Change this to::::::::::::::::::


Private Sub CommandButton1_Click()
Dim rand_dice As Double
rand_dice = Rnd()
If rand_dice < 1 / 6 Then
rand_dice = 1
ElseIf rand_dice < 2 / 6 Then
rand_dice = 2
ElseIf rand_dice < 3 / 6 Then
rand_dice = 3
ElseIf rand_dice < 4 / 6 Then
rand_dice = 4
ElseIf rand_dice < 5 / 6 Then
rand_dice = 5
Else
rand_dice = 6
End If

MsgBox rand_dice

End Sub

 

[Markv]

Hey there...Thanks that is spot on. cause i have created a virtual business
where you control,buy and sell stock and run a business. The trick here is to
see how long you can run without getting bancrupt. You can also buy personal
things and so on...

however to play this I had to replace real dies with excell type formulas
and macros
thanks again.

 

[Nayab]

Hey there...Thanks that is spot on. cause i have created a virtual business
where you control,buy and sell stock and run a business. The trick here is to
see how long you can run without getting bancrupt. You can also buy personal
things and so on...

however to play this I had to replace real dies with excell type formulas
and macros
thanks again.













- Show quoted text -

Mark, just to make things better, please add randomize prior to the
call to Rnd(). So the new code will be ------

Private Sub CommandButton1_Click()
Dim rand_dice As Double
randomize
rand_dice = Rnd()
If rand_dice < 1 / 6 Then
rand_dice = 1
ElseIf rand_dice < 2 / 6 Then
rand_dice = 2
ElseIf rand_dice < 3 / 6 Then
rand_dice = 3
ElseIf rand_dice < 4 / 6 Then
rand_dice = 4
ElseIf rand_dice < 5 / 6 Then
rand_dice = 5
Else
rand_dice = 6
End If


MsgBox rand_dice


End Sub




The randomize ensures that a new seed is taken each time.

Glad to help.

 

[Markv]

thanks a million..One more question.
Instead of displaying the result in a message box can it be shown in a cell?

If so please advise...

 

[Nayab]

thanks a million..One more question.
Instead of displaying the result in a message box can it be shown in a cell?

If so please advise...











- Show quoted text -

Dude, you can do watever u like (well not all things u can think of,
but majority of them) with the number.

as u have the number in the variable rand_dice, if you want to display
it in say A1 then replace the msgbox line with:

Sheets(1).Range("A1").value = rand_dice

and u will get the value in A1 of the 1st sheet of the workbook...

Cheers!

 

[Markv]

Thank you your tips is very detailed and thank you for your patience