Visual Basic 6. Руководство разработчика


Семейство - часть 4


With Selection.Font

.Name = "Verdana"

. FontStyle = "Bold"

.Size = 12

End With

Range ("A2:E2") .Select

Selection.Columns.AutoFit

Selection.ColumnWidth = Selection.ColumnWidth * 1.25

Range ("A2:E2") .Select

With Selection

. Horizontal-Alignment - xlCenter

End With

' Форматирование чисел

Range ("A3 E3") Select

With Selection.Font

.Name   "Verdana"

.FontStyle   "Regular"

.Size   11

End With

wSheet Cells (3, 5) Value - "=Sum(A3.D3)"

MsgBox "The year total is " & wSheet Cells (3, 5) Value

'(Итог за прошедший год .)

End Sub

Во время заполнения и форматирования рабочего листа

Excel работает в фоновом режиме. Пользователь не видит работу Excel, но может зафиксировать факт работы вращается диск, указатель мыши периодически принимает форму песочных часов и т. п. (рис. 14.18).

Рис. 14.18. Эта электронная таблица была создана приложением ExcelVBA с помощью автоматизации OLE

После того как таблица заполнена данными, программа выполняет чтение данных и отображает значения в виде двух строк в окне элемента управления TextBox формы Demo ExcelVBA. Для чтения данных используется другой метод. Следующий фрагмент программы позволяет в электронной таблице выделить блок ячеек, а затем за один прием перенести его в VB-приложение. Выбранные ячейки читаются в массив CData, причем, массиву присваивается имя объекта Selection:

AppExcel Range ("A2:ЕЗ").Select

Set CData – AppExcel.Selection

С помощью этих двух операторов выполняется чтение значений ячеек в массив. Массив создается только на время работы. Поэтому нет потребности объявлять его отдельно. Затем можно непосредственно воспользоваться программой Visual Basic, чтобы просмотреть элементы массива и создать два столбца текста (см. рис. 14.17). Ниже приводится фрагмент программы, в котором выполняется чтение значений, содержащихся в ячейках таблицы.

Программа 14.16.

Импортирование данных

из Excel

AppExcel.Range ("A2:E3").Select

Set CData = AppExcel.Selection

For icol = 1 To 5

For irow = 1 To 2

Text1.Text = Text1.Text & Chr(9)     & CData(irow, icol)

Next

Textl.Text = Textl.Text & vbCrLf

Next




Начало  Назад  Вперед



Книжный магазин