Функция суммеслимн с переменной датой

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

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

Функция суммеслимн с переменной датой (Ручной ввод даты в Функцию суммеслимн)

Функция суммеслимн с переменной датой

Fk4

Дата: Суббота, 15.12.2012, 01:11 | Сообщение № 1

Группа: Гости

Здравствуйте!

Задача вроде не сложная, но никак не даётся...
нужно чтобы подсчитывалось кол-во топлива у определённой машины (в данном случае 934) за определённый промежуток времени, который заранее неизвестен

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

[vba]

Code

Sub пробег()

Set myRange = Application.InputBox(prompt:="Sample", Type:=8)

[C10] = Application.WorksheetFunction.SumIfs _
(Sheets("табл").[N:N], Sheets("табл").[B:B], myRange, Sheets("табл").[D:D], "934")

End Sub

[/vba]

Спасибо
П.С. не получилось файл прикрепить

Ответить

Pelena

Дата: Суббота, 15.12.2012, 01:17 | Сообщение № 2

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

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

Сообщений: 19405

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

Замечаний: ±

Excel 365 & Mac Excel

Quote (Fk4)

не получилось файл прикрепить

Для этого надо зарегистрироваться

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Fk4

Дата: Суббота, 15.12.2012, 02:04 | Сообщение № 3

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

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

Сообщений: 4

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

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

Зарегистрировался)

К сообщению приложен файл: 1633981.xlsm (30.7 Kb)

Ответить

Serge_007

Дата: Суббота, 15.12.2012, 03:38 | Сообщение № 4

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (Fk4)

нужно чтобы подсчитывалось кол-во топлива у определённой машины (в данном случае 934) за определённый промежуток времени, который заранее неизвестен

Обязательно макросом?

Quote (Fk4)

тобы подсчитывалось кол-во топлива

Количества в файле не нашел

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

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Fk4

Дата: Суббота, 15.12.2012, 12:55 | Сообщение № 5

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

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

Сообщений: 4

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

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

Quote (Serge_007)

Обязательно макросом?

Нет, макросом не обязательно, но сводная таблица не подходит, т.к. мне нужны конечные значения в таблице "Топливо" на листе Sheet1. Эти вычисления будут делаться часто и я хотел, чтобы всё считалось с одной кнопки.

[vba]

Code

[C10] = Application.WorksheetFunction.SumIfs _
(Sheets("табл").[N:N], Sheets("табл").[B:B], myRange, Sheets("табл").[D:D], "934")

[/vba]

Перед "myRange" нужен знак больше или меньше, но у меня с ними не считает, каким образом так сделать?
Прошу прощения, столбец количество это "Деньги/топ".

Сообщение отредактировал Fk4 - Суббота, 15.12.2012, 12:56

Ответить

Serge_007

Дата: Суббота, 15.12.2012, 12:57 | Сообщение № 6

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (Fk4)

мне нужны конечные значения в таблице "Топливо" на листе Sheet1

Quote (Fk4)

Эти вычисления будут делаться часто и я хотел, чтобы всё считалось с одной кнопки

Кнопка одна - "Обновить"
Чем не подходит?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Fk4

Дата: Суббота, 15.12.2012, 14:42 | Сообщение № 7

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

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

Сообщений: 4

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

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

да действительно, можно и так... Спасибо)

Но, всё таки, как сделать так, как я изначально хотел, не даёт мне это покоя)

Ответить

Pelena

Дата: Суббота, 15.12.2012, 23:15 | Сообщение № 8

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

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

Сообщений: 19405

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

Замечаний: ±

Excel 365 & Mac Excel

Quote (Fk4)

Но, всё таки, как сделать так, как я изначально хотел, не даёт мне это покоя)

Если использовать Ваш первоначальный код, то, например, так
[vba]

Code

Sub пробег()

Set myRange1 = Application.InputBox(prompt:="От", Type:=8)
Set myRange2 = Application.InputBox(prompt:="До", Type:=8)

[G10] = Application.WorksheetFunction.SumIfs _
(Sheets("табл").[E:E], Sheets("табл").[B:B], ">=" & myRange1.Value2, _
Sheets("табл").[B:B], "<=" & myRange2.Value2, Sheets("табл").[D:D], "934")

End Sub

[/vba]