![]() |
![]() |
![]() |
Требуется помощь с macro / формулой в Excel |
|
![]() |
![]() |
![]() |
![]() |
|
Опции темы |
![]() |
Требуется помощь с macro / формулой в Excel |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
Cказал(и) cпасибо: | voltage (01.10.2012) |
![]() |
![]() |
![]() |
![]() |
![]() ![]() Сообщений: 215
Миксов: 0
![]()
Рейтинг мнений:
325
Сказал(а) спасибо: 71
Поблагодарили: 339
Регистрация: 15.11.2009
Адрес: Москва
|
01.10.2012, 20:53
Код:
Sub Ìàêðîñ4() Dim Criteria_range Dim Criteria Dim Sum_range Criteria_range = InputBox("Tut diapazon dlya kriteriev(imena)", , "Naprimer A:A") Criteria = InputBox("Pervaya yacheyka s criteriem v diapazone vishe", , "Naprimer A1") Sum_range = InputBox("Diapazon dlya summirovanya", , "Naprimer B:B") ActiveCell.Formula = "=sumif(" & Criteria_range & "," & Criteria & "," & Sum_range & ")" End Sub Дальше формулу, думаю, сам растянешь. А вообще это простая формула sumif\суммесли, или сводная таблица на худой конец. |
|
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
Cказал(и) cпасибо: | Трактор (02.10.2012) |
![]() |
Метки |
excel, macro, помощь, требуется, формулой |
Опции темы | |
|
|