Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Суммирование из ячеек с переносом стоки (альт+ентер) - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Суммирование из ячеек с переносом стоки (альт+ентер)
Koshey Дата: Среда, 30.01.2013, 17:07 | Сообщение № 1
Группа: Гости
Помогите с суммированием ячеек с переносом сток.
Файл лежит тут:
http://www.ex.ua/view_storage/596127271499
 
Ответить
СообщениеПомогите с суммированием ячеек с переносом сток.
Файл лежит тут:
http://www.ex.ua/view_storage/596127271499

Автор - Koshey
Дата добавления - 30.01.2013 в 17:07
Koshey Дата: Среда, 30.01.2013, 17:43 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

файл
К сообщению приложен файл: ___.xls (16.5 Kb)
 
Ответить
Сообщениефайл

Автор - Koshey
Дата добавления - 30.01.2013 в 17:43
_Boroda_ Дата: Среда, 30.01.2013, 17:59 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Такой вариант
К сообщению приложен файл: __1_.xls (23.0 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТакой вариант

Автор - _Boroda_
Дата добавления - 30.01.2013 в 17:59
Koshey Дата: Среда, 30.01.2013, 18:19 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Спасибо.
Работает, как я хотел.

Только без лишних добавлений можно сделать? Что бы сразу в мою ячейку писало сумму.
 
Ответить
СообщениеСпасибо.
Работает, как я хотел.

Только без лишних добавлений можно сделать? Что бы сразу в мою ячейку писало сумму.

Автор - Koshey
Дата добавления - 30.01.2013 в 18:19
AlexM Дата: Среда, 30.01.2013, 19:41 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1129 ±
Замечаний: 0% ±

Excel 2003
Вариант с функцией пользователя.
Код функции
[vba]
Код
Function Summa(iStr As String) As Double
Dim i As Long
MyArr = Split(iStr, Chr(10))
For i = 0 To UBound(MyArr)
     Summa = Summa + Evaluate(MyArr(i))
Next i
End Function
[/vba]
К сообщению приложен файл: 1_new.xls (32.0 Kb)



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеВариант с функцией пользователя.
Код функции
[vba]
Код
Function Summa(iStr As String) As Double
Dim i As Long
MyArr = Split(iStr, Chr(10))
For i = 0 To UBound(MyArr)
     Summa = Summa + Evaluate(MyArr(i))
Next i
End Function
[/vba]

Автор - AlexM
Дата добавления - 30.01.2013 в 19:41
AlexM Дата: Среда, 30.01.2013, 23:22 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1129 ±
Замечаний: 0% ±

Excel 2003
Без лишних ячеек функцией пользователя.
Код
[vba]
Код
Function Summa_Range(iRange As Range) As Double
Dim i As Long
For Each iStr In iRange
MyArr = Split(iStr, Chr(10))
For i = 0 To UBound(MyArr)
     Summa_Range = Summa_Range + Evaluate(MyArr(i))
Next i
Next
End Function
[/vba]
К сообщению приложен файл: 1_new1.xls (33.5 Kb)



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеБез лишних ячеек функцией пользователя.
Код
[vba]
Код
Function Summa_Range(iRange As Range) As Double
Dim i As Long
For Each iStr In iRange
MyArr = Split(iStr, Chr(10))
For i = 0 To UBound(MyArr)
     Summa_Range = Summa_Range + Evaluate(MyArr(i))
Next i
Next
End Function
[/vba]

Автор - AlexM
Дата добавления - 30.01.2013 в 23:22
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!