Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Сумма чисел от 1 до N?
 
#1
16.10.2016 11:50:39
Добрый день.
Необходимо с помощью VBA Excel посчитать сумму чисел от 1 до N, числа вводятся вручную в первой строке таблицы.
Во второй строке таблицы то же самое только произведение.  
 
 
 
#2
16.10.2016 11:55:36
И?
Я сам - дурнее всякого примера! ...
 
 
 
#3
16.10.2016 12:00:03
Как это сделать можно? как вбить N оно же может принимать любые значения?
 
 
 
#4
16.10.2016 12:04:48
Цитата
2.3. Приложите файл(ы) с примером (общим весом не более 100 Кб) в реальной структуре и форматах данных того, что есть сейчас и того, что хотелось бы на выходе.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#5
16.10.2016 12:06:32
Не дай Вам Бог, чтоб Вас оперировал хирург, который так же учился.
Я сам - дурнее всякого примера! ...
 
 
 
#6
16.10.2016 12:44:06
Зачем этот карнавал нужен непонятно. Есть же формула для суммы n первых членов арифметической прогрессии
Арфы - нет, возьмите бубен.
 
 
 
#7
16.10.2016 12:47:34
Так прелесть вся в этом и заключается, что ему нужно не конечное число, а любое :D
 
 
 
#8
16.10.2016 12:50:06
Цитата
Udik написал: Зачем этот карнавал нужен непонятно.
И что не понятного? Практическая работа по теме "Циклы в VBA"
 
 
 
#9
16.10.2016 12:55:36
Цитата
VictorP написал: с помощью VBA
Я правильно понял? :)
Код
MsgBox Application.Sum(Range("тут адрес диапазона (строки) с данными"))
F1 творит чудеса
 
 
 
#10
16.10.2016 13:11:15
Цитата
RAN написал: Практическая работа по теме "Циклы в VBA"
Ну, тогда такой вариант ))
Код
Sub Test()
Dim i As Long, N As Long, Summa As Long, Proizv As Long
    Proizv = 1
    N = Application.InputBox("Укажите число N", Title:="Вводим конечное число", Type:=1)
    For i = 1 To N
        Summa = Summa + i
        Proizv = Proizv * i
    Next
    Range("A1") = Summa
    Range("A2") = Proizv
End Sub
 
 
 
#11
16.10.2016 13:37:13
Юрий М, не, там числовой ряд задан в первой строке :)
F1 творит чудеса
 
 
 
#12
16.10.2016 13:39:22
Ну тогда чуть изменим: цикл по ячейкам строки и суммируем/перемножаем значения.  ))
 
 
 
#13
16.10.2016 14:05:34
Юрий М, а можете написать как это будет выглядеть, пожалуйста.
 
 
 
#14
16.10.2016 14:10:06
Могу. А если я ошибусь с номерами строк, то переделать сможете?
 
 
 
#15
16.10.2016 14:13:18
думаю смогу
 
 
 
#16
16.10.2016 14:14:37
Лучше покажите эти строчки в файле. В нём же и сделаю макрос.
 
 
 
#17
16.10.2016 14:24:34
Сделайте чтобы в первую строку excel вводились вручную те значения, которые нужно сложить, а во вторую строку значения для произведения. Потому что файла нет.
 
 
 
#18
16.10.2016 14:30:24
Цитата
Потому что файла нет.
подвели поставщики? перебои с поставками файлов? а Вы не пытались наладить собственное производство файлов?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#19
16.10.2016 14:41:52
Цитата
VictorP написал:
Сделайте чтобы в первую строку excel вводились вручную те значения, которые нужно сложить, а во вторую строку значения для произведения
Нет. Это Вы создайте новую книгу и введите эти самые числа. Кроме того, покажите, в каких ячейках должен быть результат.
 
 
 
#20
16.10.2016 14:52:38
Самое интересное в том, что каждый раз это будут совершенно разные числа, главная проблема в том, что их может быть 10, а может быть 170. И вот эти числа вводятся(копируются) вручную, сумму и произведение их нужно сосчитать. А ячейка вывода результата совершенно не принципиальна, пусть будет А3 и А4, главное создать макрос, чтоб он работал.  
 
 
 
#21
16.10.2016 14:54:39
Цитата
VictorP написал:
главная проблема в том, что их может быть 10, а может быть 170
Да без разницы, сколько их будет - макрос разберётся... Файл будет или нет?
 
 
 
#22
16.10.2016 15:04:02
Вот
 
 
 
#23
16.10.2016 15:22:37
Цитата
Юрий М написал:
Кроме того, покажите, в каких ячейках должен быть результат
VictorP, Вам помощь нужна, или так и будем тянуть из Вас клещами нужную информацию?
 
 
 
#24
16.10.2016 15:26:44
Пжл
 
 
 
#25
16.10.2016 15:38:48
Готово.
 
 
 
#26
16.10.2016 15:46:33
СПАСИБО
 
 
 
#27
16.10.2016 15:47:23
Цитата
Юрий М написал: Вам помощь нужна
Юр, не нужна
 
 
 
Страницы: 1
Читают тему
Наверх