icemail
12-08-2017, 02:16 AM
Hi everbody.
i try to dice game. My dice turning just once. but i need turning animation after result. My code is here.
Sub rolldice()
dicelayer = Int((6 * VBA.Rnd()) + 1)
'see result on sheet
Sheets("sheet1").Cells(1, 1).Value = dicelayer
'i need some code here for continue turning animation after stopping.
'wait is not work just stopping or puausing macro. But i need dice continue rolling.
Application.Wait Now() + TimeValue("00:00:01")
End Sub
i try to dice game. My dice turning just once. but i need turning animation after result. My code is here.
Sub rolldice()
dicelayer = Int((6 * VBA.Rnd()) + 1)
'see result on sheet
Sheets("sheet1").Cells(1, 1).Value = dicelayer
'i need some code here for continue turning animation after stopping.
'wait is not work just stopping or puausing macro. But i need dice continue rolling.
Application.Wait Now() + TimeValue("00:00:01")
End Sub