 |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
Шпора по объекты, свойства, методы
|
|
| Dim | Объявление переменной |
| & | Слияние |
| Activate | Открытие |
| Add | Добавить |
| As | Как, в качестве |
| Bookmarks(…) | Закладка(номер) |
| Border | Рамка |
| Caption | Возвращает текст в строке имени главного окна по умолчанию |
| Case | Функция перечисления значений от … и до … Пример: Case 5 To 20, 30 (Перечисление от 5 до 20 и 30) |
| Cell | Ячейка |
| Click | Нажатие |
| Close | Закрытие |
| Collumbus | Столбец |
| Collumn | Коллонка |
| Compute | Вызов |
| Copy | Копирование |
| Count | Подсчёт количества/Добавить |
| Echo | Вывод на экран |
| Empty | Пустой |
| Exit | Выход |
| Find | Искать (поиск) |
| FindNext | Следуящая запись |
| FindRecord | Найти запись |
| Font | Шрифт |
| Format | Формат |
| If | Если |
| Input | Диалог (ввод символов) |
| InputBox | Окно для ввода диалога |
| InSide | Внутренний |
| Integer (%) | Целое значение |
| Item | Обращение |
| Length | Числовое значение |
| Line | Линия |
| Load | Загрузка |
| Mod | Остаток |
| MoveEnd | Вставка в конец |
| MsgBox | Текстовое сообщение |
| Next i | Конец цикла |
| Open | Открытие |
| OutputAs | Вывести в формате |
| OutSide | Внешний |
| Poragraphs | Абзац |
| Private | Личная переменная |
| Public | Общая переменная |
| Quit | Выход |
| Range | Диапазон |
| Replacement | Заменить |
| Row | Строка |
| Rset | Выравнивание по провому краю |
| Run | Запуск |
| Save | Сохранение |
| Select | Выделить |
| Selection | Выделение (если стоит в начале, то это уже не действие, а выделенный объект) |
| SelectObject | Выделить объект |
| Set | Присвоение переменной какого-либо значения (ссылка на объект) |
| Sheet | Лист |
| Statistics | Статистика |
| String ($) | Строка |
| Sub | Подпрограмма |
| Table | Таблица |
| Text | Текст |
| Then | То (тогда) |
| This | Этот |
| Title | (Свойство) |
| TransferText | Преобразовать текст |
| Unit | Дополнительный элемент |
| Variant (Var) | Произвольный |
| Wd | Word'овский символ (документ, функция и т.д.) |
| Width | Ширина поля ввода |
| Word | Слово |
| WorkBook | Рабочая книга |
| Wrap | Продолжать |
Объекты:
Объект – любая именованная сущность, имеющая свойства, которые можно проверить и изменить, методы, т.е. действия, которые может выполнить объект и события, т.е. ситуации, в которых оказывается объект и на которые можно ответить. Все визуальные объекты, такие как рабочий лист (worksheet), диапазон (Range), диаграмма (Chart), форма (userForm), выделение (selection) являются объектами VBA. В VBA имеется более 100 встроенных объектов.
Переменная – элемент данных программы, которому задано имя.
Dim – оператор объявления переменной или массива.
Объект характеризуется большим количеством свойств, методов и событий.
Свойство – атрибут объекта, определяющий его характеристики (цвет, размер и т.д.).Синтаксис: Объект.Свойство = значение свойства. Например: Range(«A1»).Value = «Параметр»
Метод– действие выполняемое над объектом. Синтаксис: Объект.Метод. Например: Application.Quit
Коллекции:
Коллекция (объект collection) представляет собой объект, содержащий несколько других объектов, как правило, одного и того же типа. Например, объект workbooks (рабочие книги) содержит все открытые объекты Workbook (рабочая книга). Каждый элемент семейства нумеруется и может быть идентифицирован либо по номеру, либо по имени. Например, worksheets (1) обозначает первый рабочий лист активной книги, a worksheets ("Лист1") — рабочий лист с именем лист1.
Классы:
Важнейшим понятием Объектно-ориентированного программирования является класс. Класс обычно описывается, как проект, на основе которого впоследствии будет создан конкретный объект. Таким образом, класс определяет имя объекта, его свойства и действия, выполняемые над объектом. В свою очередь каждый объект, в соответствии с описанным выше, является экземпляром класса.
Интерфейс редактора VBA:
· Окно проекта;
· Окно свойств;
· Окно редактирования кода;
· Окно форм;
· Меню и панели инструментов.
Встроенные типы данных в VBA:
| Тип данных | Размер ( в байтах) |
| Byte | |
| Boolean | True, False |
| Integer | |
| Long | |
| Single | |
| Double | |
| Currevcy | |
| Drcimal | |
| Date | |
| Object | |
| String | |
| Variant |
Элементы программ:
Лабораторная работа №7(Пояснения не дословные, а лишь отображают функцию каждой строки или нескольких строк программы. Пояснения написаны под поясняемой строкой или группой строк.)Private Sub cmd_Exit_Click()‘подпрограмма cmd_Exit активизируется одним нажатием frm_In.Hide'Скрывая frm_In мы автоматически переходим к frm_MainEnd Sub Private Sub cmd_Rec_Click()‘подпрограмма cmd_Rec активизируется одним нажатием Dim num_Address‘объявление переменной номер адреса num_Address = ActiveSheet.Range("B1") + _ ActiveSheet.Range("B2")‘вычисление номера строки для записи ActiveSheet.Cells(num_Address, 1) = _ ActiveSheet.Range("B1")‘запись номера в первую ячейку строки ActiveSheet.Cells(num_Address, 2) = _ Date‘запись даты во вторую ячейку ActiveSheet.Cells(num_Address, 3) = _ cbo_Type.Value‘запись типа операций в третью ячейку ActiveSheet.Cells(num_Address, 4) = _ Val(txt_Sum)‘запись суммы в четвёртую ячейку ActiveSheet.Cells(num_Address, 5) = _ txt_Info‘запись примечания в пятую ячейку ActiveSheet.Range("B1") = _ ActiveSheet.Range("B1") + 1‘запись нового номера строки Initial‘сброс всех установок на формеEnd Sub Private Sub UserForm_Activate() Initial'При активации формы инициализируются элементы управленияEnd Sub Sub Initial() 'Инициализация элементов управления lbl_Date = Date‘присвоение лейблу значение даты lbl_RecNum = ActiveSheet.Range("B1") cbo_Type.Clear cbo_Type.AddItem "Доход"‘добавление обращения «доход» cbo_Type.AddItem "Расход"‘добавление обращения «расход» cbo_Type.Value = "Доход" txt_Info = "" txt_Sum = ""End Sub
End Sub
Dim i As Double
‘объявление переменной i как двойной
Private Sub UserForm_Activate()
‘создание личной подпрограммы
i = 1
‘задаём переменной I значение 1
Do While Cells(i, 1) > " "
i = i + 1
Loop
txtN.Enabled = True
txtN.Text = CStr(i - 2)
txtN.Enabled = False
‘ Подсчет количества строк в таблице и вывод на форму в поле txtN
End Sub
Лабораторная работа №5
(Очень подробные пояснения.)
Private Sub CommandButton1_Click()
‘создание личной подпрограммы запускаемой при единичном нажатии на кнопку СommandButton1
Dim B(1 To 2, 1 To 2) As Integer
‘объявление переменной B (от 1 до 2) как целое значение
Dim С(1 To 2, 1 To 2) As Integer
‘объявление переменной С (от 1 до 2) как целое значение
Dim A(1 To 2, 1 To 2) As Integer
‘объявление переменной A (от 1 до 2) как целое значение
B(1, 1)=5
‘переменной В (1,1) присваивается значение 5
B(1, 2)=4
‘пояснение аналогично предыдущему
B(2, 1)=8
B(2, 2)=10
c(1, 1)=0
c(1, 2)=1
c(2, 1)=5
c(2, 2)=10
‘значения переменных A, B и C меняется в соответствии с изменением значений переменных I и j
For i=1 To 2
‘переменная i меняется от 1 до 2
For j=1 To 2
‘переменная j меняется от 1 до 2
A(i, j)=B(i, j) + С(i, j)
‘переменной A(i,J) присваивается значение суммы переменных B(i,j) и C(i,j)
Next j
Next i
‘конец цыклов
Label1.Caption=«a(1.1)=» & A(1, 1) & « a(1.2)=» & A(1, 2)& « a(2.1)=» & A(2, 1) & « a(2.2)=» & A(2, 2)
‘лейблу Label1 присваиваются значения а(1.1)=А(1,1), числовое значение которых указано выше и объединяются между собой
Label2.Caption=«b(1.1)=» & B(1, 1) & « b(1.2)=» & B(1, 2) & « b(2.1)=» & B(2, 1) & « b(2.2)=» & B(2, 2)
‘пояснение аналогично предыдущему
Label3.Caption=«c(1.1)=» & c(1, 1) & « c(1.2)=» & c(1, 2) & « c(2.1)=» & c(2, 1) & « c(2.2)=» & c(2, 2)
End Sub
‘конец подпрограммы
Private Sub CommandButton1_Click()
‘создание личной подпрограммы запускаемой при единичном нажатии на кнопку СommandButton1
Dim B(1 To 2, 1 To 2) As String
‘объявление переменой В (от 1 до 2) как строковую
Dim c(1 To 2, 1 To 2) As String
‘пояснение аналогично предыдущему
Dim A(1 To 2, 1 To 2) As String
Dim d(1 To 2, 1 To 2) As Integer
‘объявление переменной d (от 1 до 2) как целое значение
Dim k(1 To 2, 1 To 2) As Integer
‘пояснение аналогично предыдущему
B(1, 1)=TextBox5.Text
‘переменой B(1,1) в текстовом поле 5 присваивается значение текста
B(1, 2)=TextBox6.Text
B(2, 1)=TextBox7.Text
B(2, 2)=TextBox8.Text
d(1, 1)=Val(TextBox1.Text)
d(1, 2)=Val(TextBox2.Text)
d(2, 1)=Val(TextBox3.Text)
d(2, 2)=Val(TextBox4.Text)
For i=1 To 2
‘переменная i меняется от 1 до 2
For j=1 To 2
‘переменная j меняется от 1 до 2
k(i, j)=d(i, j) + 10
‘переменой k задаётся значение суммы переменной d(i,j) и 10
Next j
Next i
‘конец цыклов
For i=1 To 2
‘значение i меняется от 1 до 2
For j=1 To 2
‘значение j меняется от 1 до 2
c(i, j)=«фамилия» + B(i, j)
‘переменой c задаётся значение фамилии и переменной B(i,j)
Next j
Next i
‘конец цыклов
For i=1 To 2
‘значение i меняется от 1 до 2
For j=1 To 2
‘значение j меняется от 1 до 2
A(i, j)=«работник» + c(i, j)
‘переменной A(i, j) присваивается значение работника и переменной c(i, j)
Next j
Next i
‘конец цыклов
Label3.Caption=«a(1.1)=» & A(1, 1) & « a(1.2)=» & A(1, 2) & « a(2.1)=» & A(2, 1) & « a(2.2)=» & A(2, 2)
‘лейблу Label3 присваиваются значения а(1.1)=А(1,1), числовое значение которых указано выше и объединяются между собой
Label6.Caption=«k(1.1)=» & k(1, 1) & « k(1.2)=» & k(1, 2) & « k(2.1)=» & k(2, 1) & « k(2.2)=» & k(2, 2)
End Sub
‘конец подпрограммы
Дата публикования: 2023-10-13; Прочитано: 1529 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!
