Курсовая работа: Решение экономических и бухгалтерских задач с использованием инструментария Visual Basic For Application

ActiveWorkbook. Worksheets (" Лист 7"). Sort. SortFields. Clear

ActiveWorkbook. Worksheets (" Лист 7"). Sort. SortFields. Add Key: =Range ("A5"), _

SortOn: =xlSortOnValues, Order: =xlAscending, DataOption: =xlSortNormal

With ActiveWorkbook. Worksheets (" Лист 7"). Sort

. SetRange Range ("A4: H17")

. Header = xlYes

. MatchCase = True

. Orientation = xlTopToBottom

. SortMethod = xlPinYin

. Apply

End With

End Sub

Рис.7. Данные таблицы после авто-сортировки

10. Выборка данных

Создать отчёт по выборке с Листа5 по столбцу "Качественная успеваемость, проц." (с Листа 8, табл.7)

Для того чтобы произвести выборку данных необходимо выполнить следующие действия:

Определить количество элементов нового массива по заданному условию введя переменную с помощью оператора InputBox

Объявить и переобъявить новый массив

Сформировать новый массив. Для этого необходимо задать номер первого элемента нового массива u=1. Затем выполняется цикл, в котором записывается условие выборки по столбцу "Качественная успеваемость, проц. ". Если результат проверки истина, то элемент анализируемого массива становится элементом нового массива.

Вывести новый элемент на Лист 8

Sub ОтчётВыборка ()

Sheets (" Лист 8"). Select

Dim A () As Variant

n1 = Sheets (" Лист 4"). Cells (5,12)

m = Sheets (" Лист 2"). Cells (5,12)

ReDim A (1 To n1, 1 To m)

VVOD " Лист 5", A, n1, m, 4