С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
nurlan00
0 / 0 / 0
Регистрация: 17.05.2016
Сообщений: 10
1

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

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

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

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

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

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

вычислить сумму квадратов всех нечетных чисел в одномерном массиве
вычислить сумму квадратов всех нечетных чисел в одномерном массиве из n...

Замена элементов в одномерном массиве
Помогите пожалуйста с написанием данной программы: Дан массив натуральных...

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
5468 / 1311 / 143
Регистрация: 08.02.2009
Сообщений: 4,029
Записей в блоге: 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
Помогите пожалуйста решить! Создать пользовательскую функцию решения. Исходные...

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


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

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

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