Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / В надстройке создать функцию , которая бы суммировала числа в диапазоне ячеек / 5 сообщений из 5, страница 1 из 1
30.05.2005, 15:07:42
    #33090837
ауг
ауг
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В надстройке создать функцию , которая бы суммировала числа в диапазоне ячеек
Ребята.

Ответьте мне на вопрос, реализуемо это или нет.

Задание.

В качестве надстройки в эксель создать свою функцию , которая бы суммировала числа в диапазоне ячеек. Т.е она получает в качестве аргумента массив? Или как?

Я выделяю диапазон, эксель считает сумму. Не ржите, это надо решить!

xla шаблон сделал. Осталось только это решить.

Я кроме этого

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Public Function GetSumm(size As Integer, fuck() As Integer) As String
  
  ReDim fuck( 0  To size)
  
  Dim M as long

  For Each i1 In fuck
  M = M + fuck(i1)
  Next
  
  
  GetMin = CStr(M)
    
End Function


В мастере функций вижу свою функцию , но она пишет ошибку в ячейке...
Как мне адресовать диапазон ячеек? Какой аналог задавать в качекстве аргумента функции?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.05.2005, 15:22:58
    #33090894
funddd
funddd
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В надстройке создать функцию , которая бы суммировала числа в диапазоне ячеек
а почему бы в функцию Range не отправлять?

И еще: тему с таким названием в следующий раз удалю.


Posted via ActualForum NNTP Server 1.2
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.05.2005, 15:26:18
    #33090905
ауг
ауг
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В надстройке создать функцию , которая бы суммировала числа в диапазоне ячеек
Извини, но мне надо до сути быстро докопаться!

Range

Где?

основная сложность , чтобы данные эта функция схватила из диапзона ячеек!

Как?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.06.2005, 10:31:56
    #33094088
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В надстройке создать функцию , которая бы суммировала числа в диапазоне ячеек
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Public Sub X()
    Dim rng As Range
    Dim cel As Range
    Dim arr() As Variant
    Dim sum As Double
    Dim intI As Integer
    
    Set rng = Selection
    
    intI =  0 
    sum =  0 
    
    For Each cel In rng
        ReDim arr(intI)
        arr(intI) = cel.Value
        sum = sum + arr(intI)
        intI = intI +  1 
    Next cel
    MsgBox "Сумма ячеек: " & sum
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.06.2005, 08:16:48
    #33120827
pashulka.
pashulka.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В надстройке создать функцию , которая бы суммировала числа в диапазоне ячеек
Если Вам нужна действительно пользовательская функция, то :

Public Function GetSumm(iRange As Range) As Double
GetSumm = Application.Sum(iRange)
End Function

Вызвать функцию можно например так : =GetSumm(C7:D9)

P.S. А про Range Вам ещё раньше говорили ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / В надстройке создать функцию , которая бы суммировала числа в диапазоне ячеек / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 428ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2185993]:
 0ms
get settings:
 10ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 80ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 243ms
total:  428ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]