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


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


Set Titles = Worksheet.Range("Al :A10")

Set Totals = Worksheet.Range ("A100:A110")

Set CommonFontRange = Union(Titles, Totals)

Метод Union возвращает объект Range, который можно использовать для управления всеми ячейками сразу в блоках Titles и Totals. Например, можно при­менить общее форматирование ко всем ячейкам блока Range.

В следующем параграфе будет рассмотрено создание новой электронной таблицы из приложения Visual Basic, вставка формулы и печать итогового документа.

VB6 в действии: проект ExcelVBA

В приложении ExcelVBA предусмотрена кнопка Make New Sheet, с помощью которой демонстрируется обращение к рабочему листу, заполнение его данными и их форматирование (рис. 14.17). Программа начинается с установки объектной переменной AppExcel, позволяющей сослаться на приложение Excel.

Новая электронная таблица заполняется данными и форматируется подпро­граммой MakeSheet(), текст которой приведен ниже. Для обращения к отдельным ячейкам и для записи в них значений используется семейство Cells. Для формати­рования блока ячеек создается объект Range, содержащий ячейки, которые нужно отформатировать, выделяется блок ячеек, после чего работа с ячейками выполняется через объект Selection.

Рис. 14.17. В проекте ExcelVBA демонстрируется обращение к Excel непосредственно из VB-приложения

Программа 14.15. Подготовка новой электронной таблицы

Sub MakeSheet ()

Dim wSheet As Worksheet

Dim wBook As Workbook

Set wBook = AppExcel.Workbooks.Add

Set wSheet = AppExcel.Sheets (1)

wSheet.Cells (2, 1).Value = "1st Quarter"

wSheet.Cells (2, 2).Value = "2nd Quarter"

wSheet.Cells (2, 3).Value = "3rd Quarter"

wSheet.Cells (2, 4).Value = "-4th Quarter"

wSheet.Cells (2, 5).Value = "Year Total"

 

wSheet.Cells (3, 1).Value = 123.45

wSheet.Cells (3, 2).Value = 435.56

wSheet.Cells (3, 3).Value = 376.25

wSheet.Cells (3, 4).Value = 425.75

 

' Форматирование заголовков столбцов

Range ("A2:E2").Select




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



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