;Sayings
friendly := ["hello there!", "Howdy!", "Greetings friend!", "hi there"]
helpful := ["x next to y and z", "this is helpful", "The sky is blue"]
other := ["where is my toaster", "do it", "ju
即使對於我來說,VBA骰子卷也是非常容易的事情,但我需要特定的類型,當卷6意味着您可以再次滾動並將兩個卷添加在一起(加上當您連續兩次滾動6次,你得到第三輪等等)。 我已經嘗試了兩種方法,但都失敗了 Sub roll_dice_1()
Dim result As Range
Set result = Range("A1")
result = Application.WorksheetFu