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

For j = 1 To m

AZ = Sheets (" Лист 6"). Cells (i + 4, j)

Sheets (" Лист 6"). Cells (i + 4, j) = Sheets (" Лист 6"). Cells (i + 4 + 1, j)

Sheets (" Лист 6"). Cells (i + 4 + 1, j) = AZ

Next j

Z = 1

End If

Next i

Loop

End Sub

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

9. Создание автоматического макроса по сортировке

Создать автоматический макрос по сортировке по столбцу "Абсолютная успеваемость, проц." (Листа5, табл.6)

Встаем на лист, где будет макрос. Включаем запись макроса Сервис→Макрос→Начать запись→ОК. Появится квадрат, где кнопка остановить запись. На Листе5 (отчет) выделяем таблицу без заголовков и итогов, копируем на Лист9 (автосортировка) в элементе меню выбираем Данные→Сортировка→по возрастанию→по столбцам→ОК. Отмечаем столбец по которому будем сортировать. Нажимаем кнопку остановить запись.

Sub Макрос1Сортировка ()

'

' Макрос1Сортировка Макрос

'

'

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

Range ("A2: H17"). Select

Selection. Copy

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

Range ("A2: A3"). Select

ActiveSheet. Paste

Application. CutCopyMode = False

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