Лабораторная работа №6. Обмен данными между листами Excel и программой на vba
Отчёт:
Value – содержит значение ячейки;
Worksheets(1) – рабочая страница; в качестве параметра указывается номер рабочей книги;
DoWhileLoop – циклическая конструкция с предусловием;
PrivateSub () EndSub – структура процедуры;
AddItem – добавляет новую строку в список ListBox1;
Worksheets(1).Cells(i, j).Value – возвращает значение, которое находиться на первом листе рабочей книги (Worksheets(1)), в ячейке с координатами ( i, j) (cells(i, j));
Ход работы:
1. Набрал на листе 1 в первых двух столбцах таблицу исходных данных X и Y: «Прогноз температуры» на 14дней (A2:A15, B2:B15), первую строку использовал для подписи заголовков столбцов. В ячейку B19 занес количество точек в массивах.
2. На листе 1 разместил 3 командных кнопки, одну подписал «ЧТЕНИЕ С ЛИСТА», вторую «ЗАПИСЬ НА ЛИСТ», третью «ОЧИСТКА»
3. Через кнопку «ЧТЕНИЕ С ЛИСТА» открыл редактор VBA и набрал программу считывания данных с листа 1 в переменные VBA (X, Y, N). С помощью пошаговой отладки убедился, что переменные VBA заполняются числами из 1 и 2 столбцов листа Excel.
4. Через кнопку «ЗАПИСЬ НА ЛИСТ» открыл редактор VBA и набрал программу записи данных на лист 2. Через кнопку «ОЧИСТКА» набрал программу, стирающую все результаты с листа 2.
5. Проверил работу кнопок.
Вывод: научился: считывать исходные данные с листа Excel в переменные VBA, записывать результаты расчетов на лист Excel из переменных VBA и очищать ячейки листов из программы на VBA
оглавление
Лабораторная работа №7. Программирование арифметических формул. Оконный ввод-вывод информации на vba
Цель
работы:
научиться на VBA:
программировать арифметические
выражения, вводить исходные данные и
выводить результаты через окна
Пример фрагмента программы вычисления произведения элементов массива
S:=0;
for i:=1 to n do
S:= S+Y[i];
Ход работы:
1. Набрал на листе 1 в первых двух столбцах таблицу исходных данных X и Y, Ваш прогноз температуры на 12 дней (A2:A15, B2:B15), первую строку использовал для подписи заголовков столбцов (взять из лаб. раб. №4). Под таблицей поместил командную кнопку «РАСЧЕТ»
2. Добавил на лист кнопку «РАСЧЕТ», открыл редактор VBA и набрал фрагмент программы чтения с листа массивов X и Y (из предыдущей лаб. раб. № 6). Переменную N (количество экспериментальных точек в соответствии с индивидуальным заданием) ввел с помощью функции оконного ввода INPUTBOX.
3. По расчетной формуле из лаб. раб. № 4 набрал программу расчета коэффициента линейной регрессии (а) и и сравнил его с результатом, полученным в лабораторной работе № 4 (полностью совпал).
4. Проверил правильность расчета по индивидуальному заданию путем набора заданной формулы в ячейке Excel, в отчете отразил внесенные в программу изменения и полученные р езультаты.
Вывод: научился в VBA: программировать арифметические выражения, вводить исходные данные и выводить результаты через окна
оглавление
Лабораторная работа №9. Логические операции и стандартные функции vba
Цель работы: научиться на VBA: использовать встроенные стандартные функции VBA и логические операции NOT, AND, OR, XOR
Ход работы:
1. На листе Excel поместил 3 кнопки: «Вычислить арифметическое выражение», «Вычислить логическое выражение», «Очистить»
2. Через меню «Сервис-Макрос» (или через размещенные кнопки) вызвал редактор VBA , набрал и отладил пример программы вычисления арифметического выражения, используя встроенные математические функции VBA
3. Дополнил программу вычислением логического выражения, используя логические операции NOT, AND, OR, XOR для примера
4. Изменил программу в соответствии с заданным преподавателем вариантом индивидуального задания для арифметического и для логического выражений, проверил правильность вычислений.
5. Набрал заданное арифметическое выражение в ячейках Excel и добился полного совпадения с результатом, полученным на VBA
6. Составил подробный отчет и сохранил исходные данные и результаты для проверки вычисления этих выражений в следующих лабораторных работах.
Оператор |
Синтаксис |
Описание |
AND |
A AND B |
Конъюнкция: Если А и В имеют значение True, то - True. Иначе - False |
OR |
A OR B |
Дизъюнкция: Если любой из операндов имеет значение True, то - True. Иначе - False |
NOT |
NOT A |
Отрицание: Если А имеет значение False, то - True. Иначе - False |
XOR |
A XOR B |
Исключение: Если А имеет значение True или В имеет значение True, то - True. Иначе - False |
' пп вычисления
арифметического выражения
Private Sub CommandButton1_Click()
Dim A, B, C, x, y As Double
A = Worksheets(1).Cells(2, 6).Value
B = Worksheets(1).Cells(2, 7).Value
C = Worksheets(1).Cells(2, 8).Value
x = Worksheets(1).Cells(2, 9).Value
y = (A * B + C ^ 2) / Abs(A - 2 * B) + (Log(A * x) / Log(10)) ^ 3
Worksheets(1).Cells(2, 10).Value = y
End Sub
'пп очистки результатов
Private Sub CommandButton2_Click()
Worksheets(1).Range("J2").Value = ” ”
Worksheets(1).Range("J8:J11").ClearContents
End Sub
'пп вычисления логического выражения
Private Sub CommandButton3_Click()
Dim A, B, C, D, Z As Boolean
A = Worksheets(1).Cells(8, 6).Value
B = Worksheets(1).Cells(8, 7).Value
C = Worksheets(1).Cells(8, 8).Value
D = Worksheets(1).Cells(8, 9).Value
If (A = True Or Not B = True) Xor (C = True And D = True) Then Z = True
Worksheets(1).Cells(8, 10).Value = Z
End Sub
Вывод: научился на VBA: использовать встроенные стандартные функции VBA и логические операции NOT, AND, OR, XOR
оглавление