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

2. Выделите ячейку В4 и установите в ней числовой формат, как описано выше.

3. Выделите ячейку В5. Выберите команду Формат/Ячейки. В появившемся диалоговом окне Формат ячеек на вкладке Число в списке Числовые форматы выберите Процентный. В поле Число десятичных знаков введите 2. Нажмите кнопку ОК.

4. Выделите ячейку В7 и установите в ней числовой формат, как описано в п. 3.

Перечисленные выше действия будут переведены MacroRecorder в следующий макрос:

Sub МакросЗ()

1 МакросЗ Макрос

1 Макрос записан 06.05.99 (Иванов) Range("ВЗ").Select

Selection. NumberForrnat = "#,##0$" Range("B4").Select Selection.NurtiberForrnat = "#,##0$" Range("B5").Select Selection.NurtiberForrnat = "0.00%" Range("B7").Select Selection.NumberForrnat = "0.00%" End Sub

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

Созданные в данном макросе инструкции как раз и осуществляют требуемое в программе приложения форматирование.

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

Рис. 17.4. Диалоговое окно «Формат ячеек» Самостоятельное задание

Разработать приложение с диалоговым окном Решение уравнения (рис. 17.5) для реализации следующих задач:

кх

• Нахождение корней уравнения хе - а;

• Отметим, что данное уравнение в зависимости от параметров а и Ъ может иметь два корня, либо только один корень, либо вообще их не иметь. В приложении следует предусмотреть отображение информационного сообщения о том, сколько корней при вводимом наборе параметров имеет уравнение. При наличии корней вывести их значения.

Используя свойство Visible (Видимый) элементов управления, сделайте так, чтобы в группе Корни в случае единственного корня отображалось только одно поле с этим корнем, а при отсутствии корней в этой группе не отображалось бы ни одного поля, но вместо них отображался бы элемент управления Caption (Надпись) с текстовым сообщением об их отсутствии.

17. Расчет маргинальной процентной ставки

Файл Правка Вид Вставка Формат Отладка Запуск Сервис Дкно 2

Свойства - UserForml


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