Сумма значений цикла
TZFLeader
Дата: Четверг, 28.04.2016, 15:52 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Здравствуйте. Необходимо посчитать сумму каждого значения цикла. Помогите решить задачку. Файл прилагаю
Здравствуйте. Необходимо посчитать сумму каждого значения цикла. Помогите решить задачку. Файл прилагаю TZFLeader
Ответить
Сообщение Здравствуйте. Необходимо посчитать сумму каждого значения цикла. Помогите решить задачку. Файл прилагаю Автор - TZFLeader Дата добавления - 28.04.2016 в 15:52
китин
Дата: Четверг, 28.04.2016, 15:54 |
Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
файл пустой
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение файл пустой Автор - китин Дата добавления - 28.04.2016 в 15:54
TZFLeader
Дата: Четверг, 28.04.2016, 15:57 |
Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
китин , там макрос записан, Test4 называется, посмотрите в alt+f8=) [moder]И при чём тут Excel?[/moder]
китин , там макрос записан, Test4 называется, посмотрите в alt+f8=) [moder]И при чём тут Excel?[/moder]TZFLeader
Сообщение отредактировал 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
Группа: Друзья
Ранг: Старожил
Сообщений: 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]
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
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал 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
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация:
6481
±
Замечаний:
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]
Не совсем ясно, что означает фраза посчитать сумму каждого значения цикла
Возможно несколько вариантов ее интерпретирования. Один из них привел выше Андрей, второй вот [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_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: 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
krosav4ig , нет, немного не то. В файле сделал так, как должно получиться. Только мне нужно именно через VBA. Мне нужно взять число, умножить на 1.03. Пускай результат этого действия будет R1. Дальше я беру R1, умножаю на 1.03, получаю R2. Так далее до, допустим R10. В итоге я хочу получить сумму R1+R2+R3+...+R10TZFLeader
Сообщение отредактировал 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
krosav4ig
Дата: Четверг, 28.04.2016, 17:16 |
Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
[vba]Код
MsgBox Evaluate("sum(" & A & "*" & B & "^(row(r1:r" & C & ")-1))")
[/vba] вроде как и VBA, но без Excel работать не будет
[vba]Код
MsgBox Evaluate("sum(" & A & "*" & B & "^(row(r1:r" & C & ")-1))")
[/vba] вроде как и VBA, но без Excel работать не будет krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение [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 |
Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
_Boroda_ , спасибо, всё работает как надо
_Boroda_ , спасибо, всё работает как надоTZFLeader
Ответить
Сообщение _Boroda_ , спасибо, всё работает как надоАвтор - TZFLeader Дата добавления - 28.04.2016 в 17:42