Самоучитель VBA


         

При написании программы данного приложения



При написании программы данного приложения MacroRecorder может также пригодиться для задания числовых форматов в ячейках вз, В4, B5 и B7.

Итак, для активизации MacroRecorder выберите команду Сервис, Макрос, Начать запись (Tools, Macro, Record New Macro) и запустите MacroRecorder на запись.

Задавайте числовые форматы в ячейках вз, В4, В5 и BV по следующему алгоритму:

  • Выделите ячейку вз. Выберите команду Формат, Ячейки (Format, Cells). В появившемся диалоговом окне Формат ячеек (Format Cells), на вкладке Число (Number) в списке Числовые форматы (Category) выберите Денежный (Currency). В поле Число десятичных знаков (Decimal places) введите 0, а в раскрывающемся списке Обозначения (Symbol) выберите р. Нажмите кнопку ОК.

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

  • Выделите ячейку В5. Выберите команду Формат, Ячейки (Format, Cells). В появившемся диалоговом окне Формат ячеек (Format Cells) на вкладке Число (Number) в списке Числовые форматы (Category) выберите Процентный (Percentage). В поле Число десятичных знаков (Decimal places) введите 2. Нажмите кнопку ОК.

  • Выделите ячейку B7 и установите в ней числовой формат, как описано в предыдущем пункте.

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

    Sub Макрос3()

    '

    ' МакросЗ Макрос

    ' Макрос записан 06.05.99 (Ксенофон Заковыркин)

    '

    '

    '

    Range("ВЗ").Select

    Selection.NumberFormat = "#,##0$"

    Range("B4").Select

    Selection.NumberFormat = "#,##0$"

    Range("B5").Select

    Selection.NumberFormat = "0.00%"

    Range("B7").Select

    Selection.NumberFormat = "0.00%"

    End Sub



    Рис. У2.4. Диалоговое окно Формат ячеек

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




    Содержание  Назад  Вперед