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

Вход

Регистрация

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

 

= Мир MS Excel/Как сделать автосумму в последней пустой строке - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как сделать автосумму в последней пустой строке (Нужен макрос для автосуммы)
Как сделать автосумму в последней пустой строке
master-dd Дата: Воскресенье, 26.05.2013, 17:55 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 78
Репутация: 1 ±
Замечаний: 0% ±

2016
Добрый день ещё раз! biggrin

Никак не могу логически догадаться, какой нужен код, чтобы в массиве (например таком, что в приложении) автоматически в каждой ячейке последней пустой сторки (внизу массива) автоматически прописывалась сумма всего столбца над этой ячейкой (не автосумма - ибо эта функция работает до первого пустого значения). Задача простая, но загвоздка вот в чём - этот макрос должен работать с любыми массисвами - НЕЗАВИСИМО ОТ КОЛИЧЕСТВА СТРОК и СТОЛБЦОВ.

Заранее спасибо!
К сообщению приложен файл: EPZ-Report-336.xls (79.0 Kb)
 
Ответить
СообщениеДобрый день ещё раз! biggrin

Никак не могу логически догадаться, какой нужен код, чтобы в массиве (например таком, что в приложении) автоматически в каждой ячейке последней пустой сторки (внизу массива) автоматически прописывалась сумма всего столбца над этой ячейкой (не автосумма - ибо эта функция работает до первого пустого значения). Задача простая, но загвоздка вот в чём - этот макрос должен работать с любыми массисвами - НЕЗАВИСИМО ОТ КОЛИЧЕСТВА СТРОК и СТОЛБЦОВ.

Заранее спасибо!
Автор - master-dd
Дата добавления - 26.05.2013 в 17:55
AndreTM Дата: Воскресенье, 26.05.2013, 20:49 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 501 ±
Замечаний: 0% ±

2003 & 2010
Нужно именно значения проставить? Или можно формулы? Итоговая строка должна быть обязательно внизу?

Впрочем... если кодом - можно, как в прилагаемом примере:
К сообщению приложен файл: 10-4880-1-1-.xls (78.0 Kb)

Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
СообщениеНужно именно значения проставить? Или можно формулы? Итоговая строка должна быть обязательно внизу?

Впрочем... если кодом - можно, как в прилагаемом примере:
Автор - AndreTM
Дата добавления - 26.05.2013 в 20:49
nilem Дата: Воскресенье, 26.05.2013, 20:53 | Сообщение № 3
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
или
[vba]
Код
Sub ert()
Cells(Rows.Count, 10).End(xlUp)(2, 2).Resize(, Cells(1, Columns.Count).End(xlToLeft).Column - 10).FormulaR1C1 = "=SUM(R2C:R[-1]C)"
End Sub
[/vba]

Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеили
[vba]
Код
Sub ert()
Cells(Rows.Count, 10).End(xlUp)(2, 2).Resize(, Cells(1, Columns.Count).End(xlToLeft).Column - 10).FormulaR1C1 = "=SUM(R2C:R[-1]C)"
End Sub
[/vba]
Автор - nilem
Дата добавления - 26.05.2013 в 20:53
master-dd Дата: Понедельник, 27.05.2013, 00:06 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 78
Репутация: 1 ±
Замечаний: 0% ±

2016
nilem,
Спасибо! Это самый нужный форум из всех, с которыми я когда-либо встречался!
 
Ответить
Сообщениеnilem,
Спасибо! Это самый нужный форум из всех, с которыми я когда-либо встречался!
Автор - master-dd
Дата добавления - 27.05.2013 в 00:06
master-dd Дата: Понедельник, 27.05.2013, 00:07 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 78
Репутация: 1 ±
Замечаний: 0% ±

2016
AndreTM,
Спасибо, то что нужно!

Именно как сделать вот это, я не знал:

[vba]
Код
' Находим границы данных
nStartRow = oStartCell.Row
nStartCol = oStartCell.Column
nLastRow = oStartCell.CurrentRegion.SpecialCells(xlLastCell).Row
nLastCol = oStartCell.CurrentRegion.SpecialCells(xlLastCell).Column
Set oStartCell = Nothing
[/vba]
[admin]Оформляйте коды тегами![/admin]


Сообщение отредактировал master-dd - Понедельник, 27.05.2013, 00:12
 
Ответить
СообщениеAndreTM,
Спасибо, то что нужно!

Именно как сделать вот это, я не знал:

[vba]
Код
' Находим границы данных
nStartRow = oStartCell.Row
nStartCol = oStartCell.Column
nLastRow = oStartCell.CurrentRegion.SpecialCells(xlLastCell).Row
nLastCol = oStartCell.CurrentRegion.SpecialCells(xlLastCell).Column
Set oStartCell = Nothing
[/vba]
[admin]Оформляйте коды тегами![/admin]
Автор - master-dd
Дата добавления - 27.05.2013 в 00:07
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как сделать автосумму в последней пустой строке (Нужен макрос для автосуммы)
  • Страница 1 из 1
  • 1
Поиск:

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