Курсовая работа: Решение экономических и бухгалтерских задач с использованием инструментария 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