我试图为体育赛事制作工具，而不是为每个竞争对手使用笔和纸。 今天，我们使用笔和纸为每个单独的竞争对手写下并写下他们在蹦床上的跳跃动作。蹦床上的每一跳都有6种可能。每次得分扣除后都可以给出：

1. 列表项（按钮值）
   • 0.0（完美）（CommandoButton1）
   • 0.1（CommandoButton2）
   • 0.2（CommandoButton3）
   • 0.3（CommandoButton4）
   • 0.4（CommandoButton5）
   • 0.5（几乎失败）（CommandoButton6）

我做了6个命令按钮。我可以使每个按钮在单击时都给出正确的值。但是我需要它进入下面的单元格，单击按钮时可以在该单元格上给蹦床下一次跳跃打分。

我已经编写了一个代码，使其下降了一个单元格，但无法使其得分。 否则，我可以使每个命令按钮都击中相同的单元格（B2），并且每次我单击具有按钮值的按钮时，都将其累加。 我可以使用一些帮助将两者合并，因此每次单击给定按钮都会在单元格中留下一个数字，然后单击将在下面的单元格中加上数字，直到完成10次跳转

下一个单元格的代码（此方法有效–如果b2中有一个数字，那么它将找到b3，但是我需要帮助使其键入点击得分）：

enter code here
Private Sub CommandButton1_Click()
Range("b2").Select
For Each cell In Range("b2:b11")
If cell.Value = "" Then Exit For
cell.Offset(1,0).Select
Next
End Sub

单元格值的代码（此方法有效–只有它保留在单元格b2中，并且无论我单击哪个按钮，每次单击都相加）：

enter code here

Private Sub CommandButton2_Click()
Range("b2") = Range("b2") + 1 / 10 
End Sub
Private Sub CommandButton3_Click()
Range("b2") = Range("b2") + 2 / 10
End Sub
Private Sub CommandButton4_Click() 
Range("b2") = Range("b2") + 3 / 10
End Sub
Private Sub CommandButton5_Click()
Range("b2") = Range("b2") + 4 / 10
End Sub
Private Sub CommandButton6_Click()
Range("b2") = Range("b2") + 5 / 10
End Sub

我已经做了一个清晰的分数按钮，并且可以使用

enter code here

Private Sub CommandButton7_Click()
Range("B2","B11").Clear
End Sub

我希望获得帮助，以将纸张浪费减少到零

提前谢谢