Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Сумма элементов строки (столбца) матрицы с помощью формул и пользовательской функции
 
#1
02.01.2012 14:11:52
Уважаемые Гуру!  
Есть матрица, есть ячейка с указанием строки или столбца, в котором(ых) нужно найти сумму элементов.  
Прошу помочь найти стандартные формулы и написать пользовательскую функцию для выполнения этой операции.  
Файл прилагаю.
 
 
 
#2
02.01.2012 14:14:37
=СУММ(ИНДЕКС(D6:H13;B1;0))
 
 
 
#3
02.01.2012 14:21:16
Function SumRow(arr As Range, nRow As Long) As Double  
SumRow = Application.Sum(Application.Index(arr, nRow, 0))  
End Function  
 
использовать:  
=SumRow(D6:H13;B1)
 
 
 
#4
02.01.2012 14:24:42
Или так  
 
Function SumRow(arr As Range, nRow As Long) As Double  
SumRow = Application.Sum(arr.rows(nRow))  
End Function
 
 
 
#5
02.01.2012 14:26:22
Function SumRow2(arr As Range, nRow As Long) As Double  
Dim a As Variant, s As Double, i As Long  
a = arr.Value  
For i = 1 To UBound(a, 2)  
   s = s + a(nRow, i)  
Next i  
SumRow2 = s  
End Function
 
 
 
#6
02.01.2012 14:46:04
{quote}{login=Казанский}{date=02.01.2012 02:24}{thema=}{post}Или так  
 
Function SumRow(arr As Range, nRow As Long) As Double  
SumRow = Application.Sum(arr.rows(nRow))  
End Function{/post}{/quote}  
чего только не узнаешь :)  
 
Function SumRow3(arr As Range, nRow As Long) As Double  
Dim a As Variant, s As Double  
For Each a In arr.Rows(nRow).Value  
   s = s + a  
Next a  
SumRow3 = s  
End Function
 
 
 
#7
02.01.2012 15:36:40
> чего только не узнаешь :)  
 
1. Промежуточная переменная не нужна  
2. Чтобы работало как Application.Sum, неплохо бы проверять на число:  
 
Function SumRow3(arr As Range, nRow As Long) As Double  
Dim a As Variant  
For Each a In arr.Rows(nRow).Value  
if isnumeric(a) then SumRow3 = SumRow3 + a  
Next a  
End Function
 
 
 
#8
02.01.2012 17:27:33
Всем огромное спасибо!  
А есть ли матричные функции, выполняющие то же действо?  
 
P.S. Очень приятно получать уведомления об ответах в теме!
 
 
 
#9
02.01.2012 18:03:17
{quote}{login=okshef}{date=02.01.2012 05:27}{thema=}{post}  
P.S. Очень приятно получать уведомления об ответах в теме!{/post}{/quote}  
 
Какие уведомления вы получаете? На почту? )
 
 
 
#10
02.01.2012 18:29:33
Да, причем при каждом ответе. Очень радует!
 
 
 
#11
02.01.2012 18:33:15
хм, а мне ничего не приходит (( Видно потому, что я не создаю темы, а лишь отвечаю на них и пишу от незарегистрированного ника
 
 
 
#12
02.01.2012 18:40:18
{quote}{login=}{date=02.01.2012 06:33}{thema=}{post}хм, а мне ничего не приходит (( Видно потому, что я не создаю темы, а лишь отвечаю на них и пишу от незарегистрированного ника{/post}{/quote}Было бы прикольно получать уведомления на почту, не указав свою почту :-)
 
 
 
#13
02.01.2012 18:42:22
Кстати, два ваших ответа остались без уведомительных писем...  
Жаль, что движок форума...  
Эх, ладно, не будем офтопить, тем более об этом говОрено-переговОрено.
 
 
 
#14
02.01.2012 19:31:45
Проверил работу пользовательских функций при значении номера строки, выходящей за пределы диапазона. Если указано число, большее, чем число строк в массиве, функции  
SumRow = Application.Sum(Application.Index(arr, nRow, 0))  
 
и SubRow3 выдают 0 вместо ошибки
 
 
 
#15
02.01.2012 22:20:56
{quote}{login=Юрий М}{date=02.01.2012 06:40}{thema=Re: }{post}Было бы прикольно получать уведомления на почту, не указав свою почту :-){/post}{/quote}  
 
)) Вот что значит "несовершенный движок форума" ))  
 
 
Павел )
 
 
 
Страницы: 1
Читают тему
Наверх