1

Так много, как говорится в названии. У меня есть таблица бюджета, над которой я работаю, и мне нужна кнопка, чтобы каждую неделю, когда мне платили, я мог щелкнуть по ней и добавить уже распределенную оплату в пул выделенных денег для каждого расхода.

Нажмите для моей таблицы

Итак, у меня есть все расчеты для распределения еженедельных выплат по расходам, но я не могу понять, как кодировать кнопку, чтобы делать то, что мне нужно.

Хорошо, в основном мне нужны все числа от D6 до D48, добавленные к соседним числам от E6 до E48. Однако мне также нужен новый номер, чтобы появиться в этом столбце, как будто он просто добавляет новую сумму к нему каждый раз. т.е. E6 = E6+D6, и каждый раз, когда вы нажимаете кнопку, он просто добавляет то, что когда-либо находится в столбце D, в столбец E.

Извините за бессвязные, и я надеюсь, что это имеет смысл.

Спасибо за любую помощь заранее

Питер

1 ответ1

1

Итак, мне удалось заставить код работать с большой помощью Скотта. Спасибо за ваш вклад очень ценится. Вот код, который я придумал:

Частный Sub CommandButton1_Click()

Dim x As Integer
Dim y As Double

Range("E2").Value = Range("E2").Value + 1

For x = 6 To 48

    y = Range("E" & x).Value

    Range("E" & x).Value = y + Range("D" & x).Value

Next x   

End Sub

Я также добавил в счетчик выше, где я разместил кнопку, просто чтобы я знал, нажал ли я ее на этой неделе или нет.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .