Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сумма значений цикла - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сумма значений цикла (Макросы/Sub)
Сумма значений цикла
TZFLeader Дата: Четверг, 28.04.2016, 15:52 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

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

Необходимо посчитать сумму каждого значения цикла. Помогите решить задачку. Файл прилагаю
К сообщению приложен файл: 1538511.xlsm(15Kb)
 
Ответить
СообщениеЗдравствуйте.

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

Автор - TZFLeader
Дата добавления - 28.04.2016 в 15:52
китин Дата: Четверг, 28.04.2016, 15:54 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3443
Репутация: 546 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
файл пустой :'(


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениефайл пустой :'(

Автор - китин
Дата добавления - 28.04.2016 в 15:54
TZFLeader Дата: Четверг, 28.04.2016, 15:57 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

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


Сообщение отредактировал Pelena - Четверг, 28.04.2016, 16:21
 
Ответить
Сообщениекитин, там макрос записан, Test4 называется, посмотрите в alt+f8=)
[moder]И при чём тут Excel?[/moder]

Автор - TZFLeader
Дата добавления - 28.04.2016 в 15:57
krosav4ig Дата: Четверг, 28.04.2016, 16:03 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1349
Репутация: 547 ±
Замечаний: 0% ±

Excel 2007, 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]


(_)Õvõ(_)

Сообщение отредактировал krosav4ig - Четверг, 28.04.2016, 16:20
 
Ответить
Сообщение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]

Автор - krosav4ig
Дата добавления - 28.04.2016 в 16:03
_Boroda_ Дата: Четверг, 28.04.2016, 16:20 | Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 9374
Репутация: 3947 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Не совсем ясно, что означает фраза
посчитать сумму каждого значения цикла
Возможно несколько вариантов ее интерпретирования. Один из них привел выше Андрей, второй вот
[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
 
Ответить
СообщениеНе совсем ясно, что означает фраза
посчитать сумму каждого значения цикла
Возможно несколько вариантов ее интерпретирования. Один из них привел выше Андрей, второй вот
[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_
Дата добавления - 28.04.2016 в 16:20
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(15Kb)


Сообщение отредактировал TZFLeader - Четверг, 28.04.2016, 16:29
 
Ответить
Сообщениеkrosav4ig, нет, немного не то. В файле сделал так, как должно получиться. Только мне нужно именно через VBA.

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

Автор - TZFLeader
Дата добавления - 28.04.2016 в 16:21
_Boroda_ Дата: Четверг, 28.04.2016, 16:31 | Сообщение № 7
Группа: Модераторы
Ранг: Экселист
Сообщений: 9374
Репутация: 3947 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Смотрите второй вариант моего кода выше


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

Автор - _Boroda_
Дата добавления - 28.04.2016 в 16:31
krosav4ig Дата: Четверг, 28.04.2016, 17:16 | Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 1349
Репутация: 547 ±
Замечаний: 0% ±

Excel 2007, 2013
[vba]
Код
MsgBox Evaluate("sum(" & A & "*" & B & "^(row(r1:r" & C & ")-1))")
[/vba]
вроде как и VBA, но без Excel работать не будет ^_^


(_)Õvõ(_)
 
Ответить
Сообщение[vba]
Код
MsgBox Evaluate("sum(" & A & "*" & B & "^(row(r1:r" & C & ")-1))")
[/vba]
вроде как и VBA, но без Excel работать не будет ^_^

Автор - krosav4ig
Дата добавления - 28.04.2016 в 17:16
TZFLeader Дата: Четверг, 28.04.2016, 17:42 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
_Boroda_, спасибо, всё работает как надо
 
Ответить
Сообщение_Boroda_, спасибо, всё работает как надо

Автор - TZFLeader
Дата добавления - 28.04.2016 в 17:42
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сумма значений цикла (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!