Сумма значений цикла

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сумма значений цикла (Макросы/Sub)

TZFLeader

Дата: Четверг, 28.04.2016, 15:52 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте.

Необходимо посчитать сумму каждого значения цикла. Помогите решить задачку. Файл прилагаю

К сообщению приложен файл: 1538511.xlsm (15.0 Kb)

Ответить

китин

Дата: Четверг, 28.04.2016, 15:54 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7014

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

файл пустой :'(

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

TZFLeader

Дата: Четверг, 28.04.2016, 15:57 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

китин, там макрос записан, Test4 называется, посмотрите в alt+f8=)
[moder]И при чём тут Excel?[/moder]

Сообщение отредактировал Pelena - Четверг, 28.04.2016, 16:21

Ответить

krosav4ig

Дата: Четверг, 28.04.2016, 16:03 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

TZFLeader, Так надо?
[vba]

Код

Sub Test4()
    Dim A#, B#, C&, D#, Z%

    A = 200
    B = 1.03
    C = 10

    For Z = 1 To C
        D = D + A * B
    Next Z

    MsgBox (D)
End Sub

[/vba]

или даже
[vba]

Код

Sub Test4()
    Dim A#, B#, C&, D#, Z%

    A = 200
    B = 1.03
    C = 10

    MsgBox (A * B * C)
End Sub

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Четверг, 28.04.2016, 16:20

Ответить

_Boroda_

Дата: Четверг, 28.04.2016, 16:20 | Сообщение № 5

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

Репутация: 6479 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Не совсем ясно, что означает фраза

Цитата TZFLeader, 28.04.2016 в 15:52, в сообщении № 1

посчитать сумму каждого значения цикла

Возможно несколько вариантов ее интерпретирования. Один из них привел выше Андрей, второй вот
[vba]

Код

Sub Test4()
    Dim A#, B#, C&, D#, Z%
    A = 200
    B = 1.03
    C = 10
    For Z = 1 To C
        A = A * B
        D = D + A
    Next Z
    MsgBox (D)
End Sub

[/vba]

Еще похожий вариант, но 200 сначала складывается, а потом умножается на 1,03
[vba]

Код

Sub Test4()
    Dim A#, B#, C&, D#, Z%
    A = 200
    B = 1.03
    C = 10
    For Z = 1 To C
        D = D + A
        A = A * B
    Next Z
    MsgBox (D)
End Sub

[/vba]
Аналогично вот так - сумма геометрической прогрессии
[vba]

Код

Sub Test44()
    Dim A#, B#, C&, D#, Z%
    A = 200
    B = 1.03
    C = 10
    D = A * (1 - B ^ C) / (1 - B)
    MsgBox (D)
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

TZFLeader

Дата: Четверг, 28.04.2016, 16:21 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

krosav4ig, нет, немного не то. В файле сделал так, как должно получиться. Только мне нужно именно через VBA.

Мне нужно взять число, умножить на 1.03. Пускай результат этого действия будет R1. Дальше я беру R1, умножаю на 1.03, получаю R2. Так далее до, допустим R10. В итоге я хочу получить сумму R1+R2+R3+...+R10

К сообщению приложен файл: 7450524.xlsm (15.4 Kb)

Сообщение отредактировал TZFLeader - Четверг, 28.04.2016, 16:29