Мир объектов Excel 2000


Объект SpreadSheet.Range - часть 2


Далее я написал обработчик события Click для этой кнопки, в котором создаю и работаю с объектами Range нашей электронной таблицы, размещенной на этой странице. Вот VBScript код этого обработчика:

Sub WorkWithRange()

'Работа с областями электронной таблицы Dim myc 'Задание набора констант Dim myr, myr1, myr2, myr3, myr4, myr5, myr6 'объекты Range Dim strFormula 'Строка, задающая формулу

With BooKFour_1787_WebCalc Set myc = .Constants Set myr2 = .Range("E12:G14") myr2.Borders.Weight = myc.owcLineWeightMedium myr2.Borders.Color = "Blue" 'Изменяю область, доступную для просмотра .ViewableRange = "A1:G20" 'Создаю объекты Range для программной работы с ними Set myr = .Range("A11:G20") With myr .Font.Size = 12 .Font.Bold = True Set myr1 = .Cells(2,5) myr1.Value = "Строки и столбцы" Set myr3 = myr1.Offset(1) myr3.Value = myr.Rows.Count Set myr4 =myr1.Offset(1,1) myr4.Value = myr.Columns.Count Set myr5 = myr1.Offset(2) strFormula = "=" & myr3.Address & "+" & myr4.Address myr5.Formula = strFormula Set myr6 = myr1.Offset(2,2) strFormula = "=" & myr3.Address & "*" & myr4.Address myr6.Formula = "=E13 * F13" 'Замораживание подокна myr.FreezePanes myc.ssFreezeTop End With End With

End Sub

В этом примере я создаю большое число объектов Range. В процессе работы с этими объектами создаются объекты Font и Borders, как результат вызова соответствующих свойств. Здесь же появляются коллекции Cells, Columns, Rows, являющиеся, как я уже говорил, объектами Range. Я использую различные свойства и методы объектов Range, - в частности, свойства ViewableRange, Address, Value, Formula, методы Offset и FreezePanes.

Взгляните, как выглядит страница в Internet Explorer после нажатия в окне браузера командной кнопки с именем "Работа с объектом Range":

Программная работа с областями электронной таблицы

увеличить изображение
Рис. 10.5.  Программная работа с областями электронной таблицы




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



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