Содержание
- 2. Основные понятия языка VBA Excel На занятии рассматриваются следующие вопросы: объекты VBA; свойства, методы и события;
- 3. Объекты Объект - основной элемент VBA Excel. В VBA объектами являются рабочая книга, рабочий лист и
- 4. Методы Над объектами можно совершать различные действия. Действия, совершаемые над объектами, называются методами. Например, ячейку можно
- 5. Свойства Свойствами описываются характеристики объектов. Например, размер и цвет шрифта, положение формы на экране или состояние
- 6. События Событие представляет собой действие, распознаваемое объектом (например, щелчок мышью или нажатие клавиши, перемещение мыши или
- 7. Упрощённая структура приложения Excel Application (приложение) WorkbookS (коллекция рабочих книг) Workbook (объект, представляющий файл рабочей книги
- 8. Коллекция WorkbookS Объект Workbook
- 9. Создание рабочей книги Sub Первый_пример() Workbooks.Add End Sub
- 10. Открытие существующей на диске рабочей книги Sub Второй_пример() Workbooks.Open _ Filename:="E:\Инструкц карты Excel\Новые файлы\Диаграмма.xls" End Sub
- 11. Сохранение рабочих книг Sub Третий_пример() Workbooks(2).SaveAs _ Filename:="Моя рабочая книга" End Sub SaveAs – метод для
- 12. Sub Четвертый_пример() Workbooks("Моя рабочая книга.xls").SaveCopyAs _ Filename:="Моя вторая рабочая книга.xls" End Sub SaveCopyAs – метод для
- 13. Закрытие рабочих книг Sub Пятый_пример() Workbooks("Моя рабочая книга.xls").Close True End Sub Close – метод для закрытия
- 14. Коллекция WorksheetS Объект Worksheet
- 15. Добавление рабочих листов Sub Шестой_и_седьмой_пример() Dim mysheet As Excel.Worksheet Set mysheet = Worksheets.Add mysheet.Name = "Моя
- 16. Удаление рабочих листов Sub Восьмой_пример() ActiveWorkbook.Worksheets("Моя страница").Delete End Sub
- 17. Sub Девятый_пример() Application.DisplayAlerts = False ActiveWorkbook.Worksheets("Моя страница").Delete Application.DisplayAlerts = True End Sub Аргумент SheetName является именем
- 18. Копирование рабочих листов Sub Десятый_пример() Application.Sheets.Copy End Sub
- 19. Sub Одиннадцатый_пример() Application.Worksheets("Моя страница").Copy _ after:=Worksheets(Worksheets.Count) End Sub Если нужно скопировать рабочий лист в ту же
- 20. Перемещение рабочих листов Sub Двенадцатый_пример() Application.Worksheets("Моя страница").Select Application.Worksheets("Моя страница").Move _ after:=Sheets(1) End Sub
- 21. Объект Range
- 22. Sub Шестнадцатый_пример() Range("a1:c5").Select Range("c6").Activate End Sub ActiveSheet.Range ("A1").Value = 7 ActiveSheet.Cells (1,1).Value = 7
- 24. Скачать презентацию