Добрый день! РЕбят помогите плиззз....

[Mikki556]

Передо мной встала задача написать маленькую программульку в Excel на VBA. Раньше сам занимался программированием, но эт было лет 10 назад все уже давно забылось....

НАдо следующее, есть столбец D2 - D30 - в каждой строке указан тип путевки - экскурсионная, санаторная или образовательная, как мне сделать чтобы макрос считал ообщее количество санаторных путевок из всего этого столбца?

а потом считал еще общую стоимость этих путевок,

я так понимаю надо делать циклами For...Next, Do While...Loop

если не сложно подскажите код

[valerij]

Сообщение от Mikki556

как мне сделать чтобы макрос считал ообщее количество санаторных путевок из всего этого столбца?

Макрос здесь, зачем?
Поставить кусор в Д31 и нажать значек Автосумма.

[Mikki556]

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

[Volodshan]

Самый расхожий вариант - сводная. Или... формулами.

[Mikki556]

Сообщение от Volodshan

Самый расхожий вариант - сводная. Или... формулами.

сводная это как??

[valerij]

Сообщение от Mikki556

сводная это как??

Проще прикрепить и получить ответ, а не гадать

[Mikki556]

прикладываю таблицу..

в столбце D2 - D30 указан тип путевки, санаторная, образовательная и экскурсионная, в ячейке E2-E30 указаны цены на эти путевки, нужно написать программу на VBA рассчитывающую общее количество и общую стоимость санаторных путевок. Результаты поместите в ячейки J1 и J2.

препод сказал пользоваться циклов For...Next, Do While...Loop

[Mikki556]

мне даже важен сам алгоритм как это должно работать

[valerij]

Сообщение от Mikki556

Результаты поместите в ячейки J1 и J2.

Вставтье это макрос в модуль и запустите

Sub zxc()
For i = 2 To 30
If Cells(i, "D") = "экскурсионная" Then экс = экс + 1
If Cells(i, "D") = "санаторная" Then сан = сан + 1
If Cells(i, "D") = "образовательная" Then обр = обр + 1
isum = isum + Cells(i, "E")
Next
[J1] = экс + сан + обр
[J2] = isum
End Sub

[Mikki556]

Пишет:

Compile error:

Invalide Outside Procedure