1 Лекция 13 ОСНОВНЫЕ ПОНЯТИЯ ЯЗЫКА Visual Basic For Applications (VBA) План лекции Типы данных VBA Операции над данными VBA Описание типов данных VBA Имена. - презентация

1 1 Лекция 13 ОСНОВНЫЕ ПОНЯТИЯ ЯЗЫКА Visual Basic For Applications (VBA) План лекции Типы данных VBA Операции над данными VBA Описание типов данных VBA Имена пользователя в VBA Операторы VBA Встроенные функции VBA

2 2 Типы данных VBA

3 3

4 4 Операции над данными VBA Типы операций Математические (+, -, *, /, \, ^, Mod) Отношения (=, >, =,, Is, Like) Логические (And, Or, Not) Другие ( & )

5 5 Описание типов данных VBA Объявление простых переменных { Dim | Private | Public | Static } [ As ]} [ [ As ] ] Например Dim Key As String Dim Rez As Single

6 6 объявления именованных констант оператор Const: [ Public | Private ] Const [ As type] = Например: Public Const Stavka As Double = 0.12 объявления массива { Dim | Private | Public | Static } ( ) [ As ] Например: Dim Rezult (1 to 10) As Integer

7 7 Операторы VBA Оператор присваивания [Let] Переменная (или Постоянная или Свойство объекта) = Выражение Например Let x = 2 Let x = x + 2

8 8 Управляющие операторы Оператор безусловного перехода Go To Go To Строка

9 9 Оператор условного перехода If Then Else в виде строки: If Условие Then [Инструкции_1] Else [Инструкции_2] в виде блока: If Условие Then [Инструкции] [ Else If Условие - n Then [Инструкции _ else if] … [Else [Инструкции _ else]] End If

10 10 Примеры: Условный оператор в виде одной строки: If Rez >0 Then Eff = 20% : Zatr=0 Else Eff =0 : Zatr=1000 Тот же условный оператор в виде блока: If Rez > 0 Then Eff = 20% : Zatr = 0 Else Eff = 0 : Zatr = End If

11 11 Оператор выбора Select Case Select Case выражение – текст [Case список Выражений – 1 [инструкции - 1]] [Case список Выражений – n [инструкции - n]] [Case Else [ инструкции _ else]] End Select

12 12 Пример Select Case Цена Select Is >5000 Скидка = 10% Select Is >2000 Скидка = 7% Select Is >1000 Скидка =5% End Select

13 13 Оператор цикла For - Next For Счётчик = НЗ To КЗ [Step Шаг] [Инструкции] Next [Счётчик] Пример Вычисление общего дохода за 10 периодов: Rezult = 0 For i = 1 To 10 Rezult = Rezult + Dohod

14 14 Операторы цикла VBA For Each - Next Do While - Loop Do – Loop While

15 15 Встроенные функции VBA Математические функции VBA