Автосумма в определенную ячейки при непостоянном кол-ве стро

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автосумма в определенную ячейки при непостоянном кол-ве стро (Макросы/Sub)

Templin57

Дата: Четверг, 13.11.2014, 17:38 | Сообщение № 1

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

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

Сообщений: 9

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

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

Excel 2010

Добрый день гуру VBA.

VBA увидел и залез первый раз вчера. Что то с помощью гугла смог сделать, но уперся в автосумму.

Суть:
Есть лист куда вносит данные водитель (км, расход, заправка) все это идет в таблицу на другой лист, каждый раз когда водитель вносит данные, таблица увеличивается на строку.

Необходимо чтобы по нажатию кнопки "Расчет" производилось вычисление по определенному столбцу и результат помещался в определенную ячейку.

Например во вложенном файле необходимо посчитать сумму по столбцу 15 (лист "карта") и поместить результат в ячейку J10 на том же листе (выделил зеленным).

P/s/ Так же буду благодарен если подскажите как в столбец 1 вставлять дату сразу в формате дата.
P.S. Пришлось подчистить листы, чтобы соответствовать 100 кб.

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

Сообщение отредактировал Templin57 - Четверг, 13.11.2014, 17:42

Ответить

SkyPro

Дата: Четверг, 13.11.2014, 17:47 | Сообщение № 2

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

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

Сообщений: 1206

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

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

2010

[vba]

Код

[a1] = application.worksheetfunction.sum(range("A5:A" & [a65535].end(xlup).row))

[/vba]
Поместит в ячейку А1 сумму по диапахону А5:А(последняя заполенная строка).
Для вставки даты установите на столбец формат ячеек (дата) и заворачивайте вставляемое значение в CDate()
Простите, писал "на коленке".

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Четверг, 13.11.2014, 17:47

Ответить

Templin57

Дата: Четверг, 13.11.2014, 18:01 | Сообщение № 3

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

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

Сообщений: 9

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

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

Excel 2010

Цитата SkyPro, 13.11.2014 в 17:47, в сообщении № 2

Поместит в ячейку А1 сумму по диапахону А5:А(последняя заполенная строка).

Но как я понимаю, тут мне надо знать какая строка последняя, а я ее не знаю.
Либо я сейчас туплю и не понял Вас)

Я думал сделать, что то типа такого...но не работает
[vba]

Код

Sub raschet()
Rs = Sheets("Карта").Cells(24, 15).Row [color=green]'первая строка заполнения[/color]
Rm = Sheets("Карта").Cells(Rows.Count, 1).End(xlUp).Row [color=green]'последняя строка в столбце[/color]
Sheets("Карта").Cells(10, 10).Value = Application.WorksheetFunction.Sum(Rs:Rm)
MsgBox "Ok" 'сообщение
End Sub

[/vba]

Поясню, что хотел... Думал как в excel, я задаю 1 строку в столбце и через двоеточие последную, а он мне автоматом считает.

Сообщение отредактировал Templin57 - Четверг, 13.11.2014, 18:03

Ответить

SkyPro

Дата: Четверг, 13.11.2014, 18:09 | Сообщение № 4

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

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

Сообщений: 1206

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

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

2010

[vba]

Код

Application.WorksheetFunction.Sum(range("O" & Rs & ":O" & Rm) )

[/vba]

skypro1111@gmail.com

Ответить

Templin57

Дата: Пятница, 14.11.2014, 10:24 | Сообщение № 5

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

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

Сообщений: 9

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

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

Excel 2010

Формула сработала (за что спасибо!), но ставит 0 хотя там стоят цифры в столбце.

Это ошибка у меня в присвоении Rm и Rs? или надо формулу подправить?