Программирование с использованием объектов EXCEL

Разрабатывать приложения в редакторе VBA можно и с использованием объектов приложений Office(объектов EXCEL,WORD и др.)

Рассмотрим разработку приложения примера 2 с использованием объектов EXCEL. Будем использовать объекты:

· WORKSHEETS() –для обозначения листа EXCEL

· RANGE(), или Ctlls()– для обозначения диапазона ячеек или одной ячейки

· свойство.Value для обращения к значению ячейки.

Т.е., если мы хотим записать в ячейку значение F программным способом, нужно написать в программе так:

Worksheets().Range().Value = F, где в скобках указать имя или номер листа EXCEL и адрес ячейки, или Worksheets().Cells().Value = F. Например, чтобы:

Выполнить	Выражения в процедуре
Присвоить ячейке С1 На листе “лист1” значение переменной F	Worksheets(“лист1”).Range(“C1”).Value = F или Worksheets(“лист1”).Cells(1,3).Value =F
Присвоить переменной X значение, содержащееся в ячейке D2	X=WorkSheets(“лист1”).Range(“D2”).Value или X= WorkSheets(“лист1”).Cells(2,4).Value

Порядок выполнения работы:

1. Открыть редактор VBE

2. Выполнить команду Insert/Module

3. В окно ввода кодов вставить процедуру Insert/Procedure

Написать программный код.

Public Sub Pr_1()

Dim a As Integer, b As Integer, c As Integer

‘Считывание значений

a= WorkSheets(“лист1”).Cells(2,1).Value

b= WorkSheets(“лист1”).Cells(2,1).Value

‘Формирование строки заголовков

Worksheets(“лист1”).Cells(1,1).Value =a

Worksheets(“лист1”).Cells(1,2).Value =b

‘Вычисление

c=a+b

‘Вывод вычисленного значения на лист Excel

Worksheets(“лист1”).Cells(1,3).Value =c

End Sub

Пояснения к программе:

2.3. Рассмотренную задачу решим, используя функции ввода/ вывода InputBox(), MsgBox()

Порядок выполнения работы:

1. Вставить процедуру в имеющийся в проекте модуль.
2. Написать программный код.

Public Sub Pr_2()

‘Объявление переменных

Dim a As Integer, b As Integer, c As Integer, Pr As Integer

'Ввод значений переменных

a = CInt(InputBox("Введите значение a "))

b = CInt(InputBox("Введите b"))

c = a + b 'Вычисление значения с

Pr = MsgBox("Значение с равно " & c, 35, "Данные введены")

Debug.Print Pr

End Sub