CommandButton_Click и значение и следующая ячейка - PullRequest
Новая
       84

CommandButton_Click и значение и следующая ячейка

0 голосов
/ 05 ноября 2019

Я пытаюсь создать инструмент для спортивного мероприятия вместо того, чтобы использовать ручку и бумагу для каждого участника. Сегодня мы используем ручку и бумагу и записываем для каждого отдельного участника и его прыжок на батуте. Каждый прыжок на батуте имеет 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

Я надеюсь получить некоторую помощь, чтобы свести к минимуму потери бумаги 

Заранее спасибо

...