Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.40
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.40

If isNumeric(a.Value) Then If a.Value < 0 Then _ a.Interior.Colorindex = 4

End If

If IsMumeric(a.Value) Then If a.Value - 0 Then _ a.Interior.Colorindex = 6 End If Next a End Sub

В данной процедуре Font - шрифт диапазона ячеек - является объектом. Этот объект имеет следующие свойства:

Size

Размер шрифта, например

Worksheets ("Лист1") . Range ("В2" ) .

Font.Size = 12

Bold

Жирный шрифт

Italic

Курсивный шрифт

Colorindex

Цвет символов. Следующий пример задает зеленый цвет:

Worksheets ("Лист!") . Range (МВ2") . Font.Colorindex=4 Цвет в VBA задается целым числом от 1 до 56. В табл. 10.1 приведены некоторые из них

Underline

Подчеркнутый шрифт. Данное свойство может принимать одно из следующих значений: xlNone - отсутствие подчеркивания, xlSingie или xiSingleAccounting - одинарное подчеркивание,

xlDouble или xlDoubleAccounting - двойное подчеркивание

10. Операторы цикла

Таблица 10.1. Таблица кодов цвета

Число

Цвет

Черный

Белый

Красный

Зеленый

Синий

Желтый

Фиолетовый

Голубой

В приведенной выше программе interior также является объектом, характеризующим фон указанного диапазона и имеющим следующее свойство:

СоlorIndex(Цвет) .

Например, зеленый цвет можно задать ячейке следующим образом:

Range("В2")•Interior. Colorindex = 4.

Диапазон ячеек обладает следующими свойствами:

NumberFormat (Числовой формат).

Рассмотрим пример, задающий числовой формат с двумя знаками после десятичной точки:

Range("В2"). NumberFormat = "0.00" WrapText (Многострочный текст).

Например,

Range ("В2") .\/а1ие="Многострочный текст" Range("В2").WrapText = True

10.3. Оператор цикла While-Wend

Оператор цикла While-Wend используется для организации цикла с неизвестным заранее числом шагов.

Программирование в среде Visual Basic for Applications

Оператор имеет следующий синтаксис:

While УСЛОВИЕ

БЛ0К_0ПЕРАТ0Р0В Wend

Цикл While-Wend обеспечивает многократное выполнение блока операторов, пока УСЛОВИЕ принимает значение True.

Приведенная ниже функция Доход__2 вычисляет то же значение, что и функция Доход, но с использованием цикла While-Wend.


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta