visial basic

[WiZzarD94]

Написать макрос выбора из списка тех студентов, у которых совпадают фамилии, и подсчета их среднего балла. Результирующие данные поместить в отдельную таблицу на листе 3. Отсортировать ее по названию факультета и ФИО студентов.

Задание вот, код вот
но нампилятор ругается на эту строчку
.DataBodyRange.Formula = "=AVERAGE([@[Математика]:[Изложение]])"
Почему?

Sub SameSurnameStudents()
    Application.ScreenUpdating = False
    With Application.ThisWorkbook.Worksheets
        .Item(1).Copy After:=.Item(.Count) 'Переносим данные на новый лист.
        On Error Resume Next
        Application.DisplayAlerts = False
        .Item("Лист 3").Delete 'Если уже есть лист "Лист 3" - удаляем во избежание путаницы.
        Application.DisplayAlerts = True
        On Error GoTo 0
        With .Item(.Count)
            .Name = "Лист 3" 'Новый лист назовем "Лист 3".
            With .ListObjects.Add(xlSrcRange, .UsedRange, , xlYes)
                .TableStyle = vbNullString
                .Sort.SortFields.Add .ListColumns("Факультет").Range 'Сортировка по факультету
                .Sort.SortFields.Add .ListColumns("ФИО студента").Range 'и ФИО студента.
                .Sort.Apply
                With .ListColumns.Add       'Добавляем в таблицу столбец "Средний балл"
                    .Name = "Средний балл"  'и формулу расчета среднего балла.
                    .DataBodyRange.Formula = "=AVERAGE([@[Математика]:[Изложение]])"
                End With
                With .ListColumns.Add       'Добавляем в таблицу столбец "Фамилия", формулой
                    .Name = "Фамилия"       'получаем фамилии из ФИО студентов и с помощью
                    With .DataBodyRange     'условного форматирования красим уникальные.
                        .Formula = "=LEFT([@[ФИО студента]],SEARCH("" "",[@[ФИО студента]]))"
                        .FormatConditions.AddUniqueValues
                        .FormatConditions(1).Interior.Color = vbRed 'Уникальные в красный цвет.
                    End With
                End With
                'Автофильтром отбираем покрашенные красным фамилии - позже удаляем их.
                .Range.AutoFilter .ListColumns("Фамилия").Index, vbRed, xlFilterCellColor
                .DataBodyRange.SpecialCells(xlCellTypeVisible).EntireRow.Select
                .ListColumns("Фамилия").Delete 'Больше нам столбец "Фамилия" не нужен.
                .Unlist
            End With
            Selection.Delete 'Удаляем уникальные фамилии.
            .Cells(1).Select
        End With
    End With
    Application.ScreenUpdating = True
End Sub

[SaLoKiN]

приложите файл чтоли?

.DataBodyRange.Formula = "=AVERAGE([@[Математика]:[Изложение]])"

А если явно указать столбцы?

.DataBodyRange.Formula = "=AVERAGE(D:E)"

(D:E) или что у вас там...

[WiZzarD94]

Архив WinRAR.rar
вот, сейчас попробую. вотт что делать надо.
1) Активизировать окно диалога, с помощью которого пользователь задает количество строк в таблице.
2) Сформировать на листе 3 пустую таблицу со структурой, совпадающей со структурой исходной таблицы. Добавить в нее столбец «Средний балл».
3) Выполнить цикл поиска необходимых данных по исходной таблице. Результирующие данные помещаются в таблицу на листе 3.
4) После проверки всей таблицы отсортировать результирующую таблицу по названию факультета и ФИО студента.

[SaLoKiN]

Активизировать окно диалога, с помощью которого пользователь задает количество строк в таблице.

Это важно? метод .Range("A" & .Rows.Count).End(xlUp).Row не катит?

[WiZzarD94]

Может быть,не слишком понимаю

[SaLoKiN]

для чего нужно вводить кол-во строк?
Есть функция которая определяет последнюю запись в столбце и возвращает это кол-во

1) Активизировать окно диалога, с помощью которого пользователь задает количество строк в таблице.
2) Сформировать на листе 3 пустую таблицу со структурой, совпадающей со структурой исходной таблицы. Добавить в нее столбец «Средний балл».
3) Выполнить цикл поиска необходимых данных по исходной таблице. Результирующие данные помещаются в таблицу на листе 3.
4) После проверки всей таблицы отсортировать результирующую таблицу по названию факультета и ФИО студента.

это так задание на лабу выглядит?

[WiZzarD94]

да, вот такое задание на лабу.

Код:

.DataBodyRange.Formula = "=AVERAGE(D:E)"

Кстате, это помогло на ошибку теперь выдает здесь
.Formula = "=LEFT([@[ФИО студента]],SEARCH("" "",[@[ФИО студента]]))"

[SaLoKiN]

  .DataBodyRange.Formula = "=AVERAGE([@[Математика]:[Изложение]])"

у меня нет ошибок тут,что за ошибка у вас вылетает?

да, вот такое задание на лабу.

Преподу может не понравиться ваш метод решения задачи

2) Сформировать на листе 3 пустую таблицу со структурой, совпадающей со структурой исходной таблицы. Добавить в нее столбец «Средний балл».

т.е. нужно копировать только шапку и докинуть столбец ср. знач.Потом проверяя исходную табл. докидывать неуникальные строки на лист3 и потом сортировать...
У вас малость все иначе, так что можно переделать сейчас)

[WiZzarD94]

application difinit or object defenit error

[SaLoKiN]

а ексель у вас 2007 или старее,так?