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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

tertre

Дата: Четверг, 19.12.2019, 09:59 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Как сделать?

Ответить

_Boroda_

Дата: Четверг, 19.12.2019, 10:19 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

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

Ответить

tertre

Дата: Четверг, 19.12.2019, 10:29 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

tertre, суммы значений, а не количества

Ответить

_Boroda_

Дата: Четверг, 19.12.2019, 10:32 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

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

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

Ответить

tertre

Дата: Четверг, 19.12.2019, 10:46 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

_Boroda_, вот сумма первой строки, допустим.

К сообщению приложен файл: 1161390.png (13.5 Kb)

Ответить

Kuzmich

Дата: Четверг, 19.12.2019, 11:21 | Сообщение № 6

Группа: Проверенные

Ранг: Ветеран

Сообщений: 714

Репутация: 157 ±

Замечаний: 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]
Цикл по строкам и столбцам сделайте сами

Ответить

_Boroda_

Дата: Четверг, 19.12.2019, 11:26 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

[vba]

Код

s_ = WorksheetFunction.Sum(WorksheetFunction.Index(Selection, 1, 0))

[/vba]

Ответить

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

Страница 1 из 1
1