Вопрос по автосумме - Мир MS Excel

Регистрация

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

= Мир MS Excel/Вопрос по автосумме - Мир MS Excel

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

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

Вопрос по автосумме

Вопрос по автосумме

Дата: Четверг, 29.11.2012, 15:02 | Сообщение № 1

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

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

Сообщений: 8

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

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

Добрый день! В ходе работы возникла необходимость создания формулы, которая суммировала бы все значения находящиеся выше ячейки с формулой, но до первого значения с текстом. Если кто-то знает, как это можно провернуть, огромная просьба подскажите)

Ответить

Дата: Четверг, 29.11.2012, 15:16 | Сообщение № 2

Группа: Друзья

Ранг: Форумчанин

Сообщений: 240

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

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

оно?

К сообщению приложен файл: 3726072.xls (23.0 Kb)

Ответить

Дата: Четверг, 29.11.2012, 15:53 | Сообщение № 3

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

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

Сообщений: 8

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

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

Нет она работает над текстом и при попытке вставить выдает ошибку.

Ответить

Дата: Четверг, 29.11.2012, 15:56 | Сообщение № 4

Группа: Друзья

Ранг: Форумчанин

Сообщений: 240

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

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

сори

Code

=СУММ(A1:A10)-СУММ(ДВССЫЛ("$A$1"&":"&АДРЕС(ПОИСКПОЗ("*";$A$1:$A$10;-1)-1;1;1;1;);ИСТИНА))

на счет вставки не понял

Сообщение отредактировал mechanix85 - Четверг, 29.11.2012, 15:57

Ответить

Дата: Четверг, 29.11.2012, 16:51 | Сообщение № 5

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

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

Сообщений: 8

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

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

Постаралась объяснить (внутри файла)

К сообщению приложен файл: 7797499.xls (30.0 Kb)

Ответить

Дата: Четверг, 29.11.2012, 17:26 | Сообщение № 6

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

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

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

Excel2016

как-то так, копируйте формулу по нужным ячейкам

К сообщению приложен файл: Verna.xls (30.5 Kb)

Сообщение отредактировал Michael_S - Четверг, 29.11.2012, 17:29

Ответить

Дата: Четверг, 29.11.2012, 17:56 | Сообщение № 7

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

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

Сообщений: 8

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

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

Michael_S, большое спасибо! Это то что нужно

Ответить

Дата: Пятница, 30.11.2012, 11:05 | Сообщение № 8

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

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

Сообщений: 8

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

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

Подскажите, можно ли сделать так, чтобы при объединении ячеек, объединенные ячейки равнялись сумме ячеек по соседству от них, соответственно размеру объединенных ячеек.

Ответить

Дата: Пятница, 30.11.2012, 11:12 | Сообщение № 9

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

Ранг: Участник

Сообщений: 77

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

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

Соседство с разных сторон или с одной стороны? Или вообще всегда по разному? Файлик бы с примером - что есть и что должно быть.
Думаю, макросом можно сделать.

Новый день. А что успел сделать ты?

Ответить

Дата: Пятница, 30.11.2012, 11:20 | Сообщение № 10

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

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

Сообщений: 8

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

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

Соседство через столбец слева, число строк всегда разное

Ответить

Дата: Пятница, 30.11.2012, 12:27 | Сообщение № 11

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

Ранг: Участник

Сообщений: 77

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

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

Посадите этот макрос на кнопку и нажимайте ее вместо кнопки объединения, которая на панели.
Макрос не переносит НЕ числовые значения в соседних ячейках.

[vba]

Code

Sub Macros1()
Dim Mas As Range
Set Mas = Selection
iRow1 = Mas.Row
iRow2 = Mas.Row + Selection.Rows.Count
iCol = Selection.Column
iSum = 0
For i = iRow1 To iRow2
      iSum = iSum + Cells(i, iCol - 2)
      Next i
Mas.ClearContents
Cells(iRow1, iCol) = iSum
With Mas
      .HorizontalAlignment = xlCenter
      .VerticalAlignment = xlCenter
      .WrapText = False
      .Orientation = 0
      .AddIndent = False
      .IndentLevel = 0
      .ShrinkToFit = False
      .ReadingOrder = xlContext
      .MergeCells = False
      End With
      Mas.Merge
End Sub

[/vba]

К сообщению приложен файл: 8094793.xls (25.0 Kb)

Новый день. А что успел сделать ты?

Сообщение отредактировал amur84 - Пятница, 30.11.2012, 12:32

Ответить

Дата: Пятница, 30.11.2012, 14:29 | Сообщение № 12

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

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

Сообщений: 8

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

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

Макрос не понятно что складывает, не дает сделать шаг назад, т.е. не работает к сожалению...

Ответить

Дата: Пятница, 30.11.2012, 15:06 | Сообщение № 13

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

Ранг: Участник

Сообщений: 77

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

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

Quote (Верна)

Макрос не понятно что складывает

В моем файле все складывает, выложите свой - посмотрим.

Quote (Верна)

не дает сделать шаг назад

Как вариант - написать макрос на отмену - но это еще одна кнопка.

Новый день. А что успел сделать ты?

Ответить

Дата: Пятница, 30.11.2012, 15:39 | Сообщение № 14

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

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

Сообщений: 8

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

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

Вот примерно так

К сообщению приложен файл: _..xls (39.5 Kb)

Ответить

Дата: Пятница, 30.11.2012, 16:10 | Сообщение № 15

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

Ранг: Участник

Сообщений: 77

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

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

Quote (Верна)

Макрос не понятно что складывает

В строчке
[vba]

Code

iSum = iSum + Cells(i, iCol - 2)

[/vba]
2 заменить на 1.

Новый день. А что успел сделать ты?

Ответить

Дата: Пятница, 30.11.2012, 16:28 | Сообщение № 16

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

Ранг: Участник

Сообщений: 77

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

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

А отмена макроса по Ctrl+Z - я так почитал по форумам - занятие не из лучших. Тем более для таких малый действий макроса - если я не прав, поправят меня более опытные.

Новый день. А что успел сделать ты?

Ответить

Вопрос по автосумме

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

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