Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
nurlan00
0 / 0 / 0
Регистрация: 17.05.2016
Сообщений: 10
#1

Как создать функцию для вычисление сумму элементов в одномерном массиве vba? - VBA

17.05.2016, 14:12. Просмотров 176. Ответов 10
Метки нет (Все метки)

Как создать функцию для вычисление сумму элементов в одномерном массиве vba?
заранее спасибо...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.05.2016, 14:12
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Как создать функцию для вычисление сумму элементов в одномерном массиве vba? (VBA):

В одномерном массиве определить сумму нечетных и отрицательных элементов (подскажите, что не так) - VBA
Я не разбираюсь в программировании, помогите, пожалуйста. Здесь что-то не работает( В одномерном массиве X, состоящем из N элементов,...

Как определить сколько в одномерном массиве содержиться элементов? - VBA
скажите как определить сколько в одномерном массиве содержиться элементов????

В одномерном массиве вывести сумму чисел каждого столбца - VBA
Нужно вывести двумерный массив это выполнено ! и ещё нужно в однамерном массиве вывести сумму чисел каждого столбца Это у меня что то...

вычислить сумму квадратов всех нечетных чисел в одномерном массиве - Basic
вычислить сумму квадратов всех нечетных чисел в одномерном массиве из n натуральных чисел.n:umnik:=17

Замена элементов в одномерном массиве - VBA
Помогите пожалуйста с написанием данной программы: Дан массив натуральных чисел. Заменить все элементы массива,предшествующие первому...

Создать пользовательскую функцию в vba - VBA
Помогите пожалуйста решить! Создать пользовательскую функцию решения. Исходные данные для решения задать самостоятельно. На рабочем лист...

10
Shersh
Заблокирован
17.05.2016, 14:20 #2
Давно создана такая функция -
Visual Basic
1
2
3
Dim a(2), s
a(0) = 1: a(1) = 2: a(2) = 3
s = WorksheetFunction.Sum(a)
0
nurlan00
0 / 0 / 0
Регистрация: 17.05.2016
Сообщений: 10
17.05.2016, 14:24  [ТС] #3
нет мне надо создать Function sum(ar())
а не готовую
0
Shersh
Заблокирован
17.05.2016, 14:27 #4
Visual Basic
1
2
3
4
5
Function sum(ar())
for each i in ar
  sum=sum+i
next 
end function
0
nurlan00
0 / 0 / 0
Регистрация: 17.05.2016
Сообщений: 10
17.05.2016, 14:31  [ТС] #5
можно полностью
с коментами

Добавлено через 3 минуты
у меня не получается
Sub qw()
Dim s, ar() As Integer
Dim i As Integer
Dim size As Integer
size = InputBox("array")
ReDim ar(size)
For i = 1 To size
ar(i) = Cells(i, 2).Value
Next i
s = sum(ar())
Cells(5, 3).Value = s
End Sub
Function sum(ar() As Integer) As Integer
sum = 0
For i = 1 To size
sum = sum + ar(i)
Next i
End Function
0
Shersh
Заблокирован
17.05.2016, 14:37 #6
Цитата Сообщение от nurlan00 Посмотреть сообщение
можно полностью с коментами
Разрешаю!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub qw()
Dim s, ar() As Integer
Dim i As Integer
Dim size As Integer
size = InputBox("array")
ReDim ar(1 To size)
For i = 1 To size
ar(i) = Cells(i, 2).Value
Next i
s = sum(ar)
Cells(5, 3).Value = s
End Sub
 
Function sum(ar)
for each i in ar
  sum=sum+i
next 
end function
0
nurlan00
0 / 0 / 0
Регистрация: 17.05.2016
Сообщений: 10
17.05.2016, 14:41  [ТС] #7
for each i in ar
sum=sum+i
next
на эти можно комменты чуть не понял
0
Shersh
Заблокирован
17.05.2016, 14:43 #8
F1 конъяком залили?
0
nurlan00
0 / 0 / 0
Регистрация: 17.05.2016
Сообщений: 10
17.05.2016, 14:44  [ТС] #9
в смысле
0
Shersh
Заблокирован
17.05.2016, 15:01 #10
Цитата Сообщение от nurlan00 Посмотреть сообщение
в смысле
залипла?

Цитата Сообщение от F1
For Each...Next Statement


Repeats a group of statements for each element in an array or collection.

Syntax

For Each element In group
[statements]
[Exit For]
[statements]

Next [element]

The For...Each...Next statement syntax has these parts:

Part Description
element Required. Variable used to iterate through the elements of the collection or array. For collections, element can only be a Variant variable, a generic object variable, or any specific object variable. For arrays, element can only be a Variant variable.
group Required. Name of an object collection or array (except an array of user-defined types).
statements Optional. One or more statements that are executed on each item in group.



Remarks

The For...Each block is entered if there is at least one element in group. Once the loop has been entered, all the statements in the loop are executed for the first element in group. If there are more elements in group, the statements in the loop continue to execute for each element. When there are no more elements in group, the loop is exited and execution continues with the statement following the Next statement.

Any number of Exit For statements may be placed anywhere in the loop as an alternative way to exit. Exit For is often used after evaluating some condition, for example If…Then, and transfers control to the statement immediately following Next.

You can nest For...Each...Next loops by placing one For...Each...Next loop within another. However, each loop element must be unique.

Note If you omit element in a Next statement, execution continues as if element is included. If a Next statement is encountered before its corresponding For statement, an error occurs.

You can't use the For...Each...Next statement with an array of user-defined types because a Variant can't contain a user-defined type.
0
Sasha_Smirnov
5458 / 1298 / 140
Регистрация: 08.02.2009
Сообщений: 4,006
Записей в блоге: 29
17.05.2016, 19:04 #11
nurlan00, ПКМ в помощь (раз не лады с клавишей F1):
0
Миниатюры
Как создать функцию для вычисление сумму элементов в одномерном массиве vba?  
17.05.2016, 19:04
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.05.2016, 19:04
Привет! Вот еще темы с ответами:

В VBA создать пользовательскую функцию - VBA
Дело в общем вот в чем, девушка, которая мне очень нравиться, учится в университете на гуманитарной специальности (заочное отделение) и у...

В массиве найти сумму элементов после первого отрицательного и сумму элементов до него - VBA
Дан массив А(10).В массиве найти сумму элементов после первого отрицательного и сумму элементов до него! Помогите пожалуйста!!

Вычислить произведение элементов в одномерном массиве размера n - VBA
Здравствуйте уважаемые программисты. Очень нужна помощь в написании программы на VBA и составлении блок-схемы для задачи - Вычислить...

В одномерном массиве, состоящем из n вещественных элементов, вычислить - VBA
В одномерном массиве, состоящем из n вещественных элементов, вычислить: • сумму элементов массива с нечетными номерами; • сумму...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru