Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Методичка по VBA.doc
X
- •Методические указания
- •Среде Microsoft excel
- •Лабораторная работа №1. Введение в Visual Basic for Applicрations. Структура программы. Типы данных.
- •Р ис. 1.1 Редактор vba
- •Практическое упражнение.
- •Контрольные вопросы.
- •Лабораторная работа №2. Инструкции управления порядком выполнения команд.
- •Инструкция If…Then…Else
- •Инструкция Select Case
- •Безусловный переход с помощью инструкции GoTo
- •Практическое упражнение.
- •Безусловный выход из цикла.
- •Цикл While…Wend
- •Цикл For…Next
- •Практическое упражнение.
- •Контрольные вопросы.
- •Лабораторная работа №4. Массивы. Задание собственных типов данных.
- •Многомерные массивы
- •Задание собственных типов данных
- •Область определения и время жизни переменных
- •Практическое упражнение.
- •Использование окна свойств объекта.
- •Создание форм.
- •Размещение элементов управления в форме
- •Практическое упражнение.
- •Контрольные вопросы.
- •Лабораторная работа №6. Модель объектов Excel.
- •Использование объекта Application.
- •Использование семейства Workbooks.
- •Использование семейства Worksheets.
- •Использование объекта Range.
- •Практическое упражнение.
- •Контрольные вопросы.
Практическое упражнение.
Напишем программу, которая рассчитывает квадрат чисел от 0 до 10 и выводит эти значения на Лист2 по диагонали:
Public Sub Квадрат_чисел()
Dim Send As String
Worksheets("Лист2").Select
For i = 0 To 10
Send = Chr(65 + i) & (i + 1)
Range(Send).Value = i ^ 2
Next i
MsgBox ("OK")
End Sub
Контрольные вопросы.
Понятие иерархии объектов.
Объект Application и его свойства.
Семейство Workbooks. Операции над файлами.
Семейство Worksheets, его методы и свойства.
Семейство Range, его методы и свойства.
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]