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

Вход

Регистрация

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

 

= Мир MS Excel/Подсчёт суммы строк и столбцов выделенного диапазона ячеек - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчёт суммы строк и столбцов выделенного диапазона ячеек
Подсчёт суммы строк и столбцов выделенного диапазона ячеек
tertre Дата: Четверг, 19.12.2019, 09:59 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Как сделать?
 
Ответить
СообщениеКак сделать?

Автор - tertre
Дата добавления - 19.12.2019 в 09:59
_Boroda_ Дата: Четверг, 19.12.2019, 10:19 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15978
Репутация: 6209 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так[vba]
Код
rc_ = Selection.Rows.Count
cc_ = Selection.Columns.Count
[/vba]

[offtop]Краткость - сестра?[/offtop]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак[vba]
Код
rc_ = Selection.Rows.Count
cc_ = Selection.Columns.Count
[/vba]

[offtop]Краткость - сестра?[/offtop]

Автор - _Boroda_
Дата добавления - 19.12.2019 в 10:19
tertre Дата: Четверг, 19.12.2019, 10:29 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
tertre, суммы значений, а не количества
 
Ответить
Сообщениеtertre, суммы значений, а не количества

Автор - tertre
Дата добавления - 19.12.2019 в 10:29
_Boroda_ Дата: Четверг, 19.12.2019, 10:32 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15978
Репутация: 6209 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Суммы значений строк и столбцов - нет такого понятия. Прочитайте уже Правила форума и прикладывайте к вопросу файл с пояснениями и указанным (можно вручную) желаемым ответом

И не нужно размножать темы. Это нарушение Правил форума


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

И не нужно размножать темы. Это нарушение Правил форума

Автор - _Boroda_
Дата добавления - 19.12.2019 в 10:32
tertre Дата: Четверг, 19.12.2019, 10:46 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
_Boroda_, вот сумма первой строки, допустим.
К сообщению приложен файл: 1161390.png(13.5 Kb)
 
Ответить
Сообщение_Boroda_, вот сумма первой строки, допустим.

Автор - tertre
Дата добавления - 19.12.2019 в 10:46
Kuzmich Дата: Четверг, 19.12.2019, 11:21 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 511
Репутация: 99 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код
Sub iSumma()
Dim i As Long
Dim j As Long
Dim rc_ As Long
Dim cc_ As Long
  rc_ = Selection.Rows.Count
  cc_ = Selection.Columns.Count
  i = Selection.Cells(1).Row
  j = Selection.Cells(Selection.Count).Column
  Cells(i, j + 3) = WorksheetFunction.Sum(Range(Cells(i, j - cc_ + 1), Cells(i, j)))
End Sub
[/vba]
Цикл по строкам и столбцам сделайте сами
 
Ответить
Сообщение[vba]
Код
Sub iSumma()
Dim i As Long
Dim j As Long
Dim rc_ As Long
Dim cc_ As Long
  rc_ = Selection.Rows.Count
  cc_ = Selection.Columns.Count
  i = Selection.Cells(1).Row
  j = Selection.Cells(Selection.Count).Column
  Cells(i, j + 3) = WorksheetFunction.Sum(Range(Cells(i, j - cc_ + 1), Cells(i, j)))
End Sub
[/vba]
Цикл по строкам и столбцам сделайте сами

Автор - Kuzmich
Дата добавления - 19.12.2019 в 11:21
_Boroda_ Дата: Четверг, 19.12.2019, 11:26 | Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15978
Репутация: 6209 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
[vba]
Код
s_ = WorksheetFunction.Sum(WorksheetFunction.Index(Selection, 1, 0))
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение[vba]
Код
s_ = WorksheetFunction.Sum(WorksheetFunction.Index(Selection, 1, 0))
[/vba]

Автор - _Boroda_
Дата добавления - 19.12.2019 в 11:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчёт суммы строк и столбцов выделенного диапазона ячеек
  • Страница 1 из 1
  • 1
Поиск:

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