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

Помогите тупому чайнку написать макрос для Excel....

Добавлено: 15 дек 2009, 17:56
ilit2008
Помогите пожалуйста написать макрос для экселя......абсолютно не понимаю макросы......

Имеется столбец чисел неизвестной заранее высоты. Найти сумму тех элементов столбца, значения которых находятся в заданном диапазоне [X1, X2]. Числа X1 и X2 записаны в ячейки B1 и B2 соответственно. Результат записать в ячейку B3.

Как я поняла с столбце А записаны именно те значения которые надо проанализировать....



Заранее премного благодарна!!!

Re: Помогите тупому чайнку написать макрос для Excel....

Добавлено: 15 дек 2009, 20:24
EducatedFool

Код: Выделить всё

[color=darkblue]Sub[/color] ОченьСложныйМакрос()
    [b3] = Application.Sum(Range([a:a].Cells([b1]), [a:a].Cells([b2])))
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

Пример файла:

Изображение

Re: Помогите тупому чайнку написать макрос для Excel....

Добавлено: 15 дек 2009, 23:15
ilit2008
я понимаю если две строки, а вот если у меня столбец из 100 напиример чисел и мне надо сложить только те, которые будут больше числа записанного в ячейке В1 но меньше числа в ячейке В2. Он должен выбрать еще что суммировать.Вот что мне нужно.

Re: Помогите тупому чайнку написать макрос для Excel....

Добавлено: 16 дек 2009, 06:46
EducatedFool
мне надо сложить только те, которые будут больше числа записанного в ячейке В1 но меньше числа в ячейке В2
В исходном задании было написано совершенно другое.
Как было написано - так и сделал.
Он должен выбрать еще что суммировать
В следующий раз будете конкретнее формулировать задачу, и прикреплять пример файла, если захотите получить сразу готовое решение.

Re: Помогите тупому чайнку написать макрос для Excel....

Добавлено: 16 дек 2009, 09:17
ilit2008
ничего страшного........все равно спасибо за помощь... :)

Re: Помогите тупому чайнку написать макрос для Excel....

Добавлено: 16 дек 2009, 10:34
EducatedFool
Ну в этом случае можно и так:

Код: Выделить всё


[color=darkblue]Sub[/color] ОченьСложныйМакрос()
    [b3].FormulaLocal = "=СУММПРОИЗВ(A1:A10000*(A1:A10000>$B$1)*(A1:A10000<$B$2))": [b3] = [b3]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

Изначально я неправильно понял задание - думал про диапазон ячеек, а не про диапазон чисел.

Re: Помогите тупому чайнку написать макрос для Excel....

Добавлено: 17 дек 2009, 12:28
ilit2008
Спасибо большое!!!!!!