Итак, как и следует из названия. У меня есть таблица для бюджета, над которым я работаю, и мне нужна кнопка, чтобы каждую неделю, когда мне будут платить, я мог нажать на нее и добавить уже распределенную зарплату к пулу выделенных денег для каждой статьи расходов.
Итак, я выполнил все расчеты для распределения еженедельной выплаты по расходам, но не могу понять, как закодировать кнопку, чтобы она делала то, что мне нужно.
Хорошо, в принципе мне нужно, чтобы все числа от D6 до D48 были добавлены к соседним числам в E6 до E48. Однако мне также нужно, чтобы новое число появилось в этом столбце, как будто оно просто добавляет к нему новую сумму каждый раз. То есть E6 = E6+D6, и каждый раз, когда вы нажимаете кнопку, оно просто добавляет то, что находится в столбце D, в столбец E.
Извините за сумбурность, надеюсь, это понятно.
Спасибо за любую помощь заранее
Питер
решение1
Хорошо, мне удалось заставить код работать с большой помощью Скотта. Спасибо за ваш вклад, очень ценю. Вот код, который я придумал:
Частная подкомандаButton1_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
Конец субтитра
Я также добавил счетчик над тем местом, где я разместил кнопку, чтобы знать, нажимал ли я ее уже на этой неделе или нет.