Элемент управления RefEdit (Поле со свёртыванием)
Элемент управления RefEdit (Поле со свёртыванием) аналогичен полю ввода, но позволяет вводить в него ссылку на диапазон выбором на рабочем листе. Свойство Value возвращает эту ссылку. В качестве примера[1] использования элемента управления RefEdit используем проект, определяющий некоторые статистические параметры диапазона, а именно максимальное, минимальное значения и сумму всех значений ячеек этого диапазона. Создаётся форма, на которой расположены две кнопки: CommandButton1 и CommandButton2 и элемент управления RefEdit (рис. 30). Кнопка CommandButton1 предназначена для задания значения диапазона элемента управления RefEdit, а кнопка CommandButton2 – для выгрузки формы. Форма, приведённая на рис. 31, загружается при выполнении процедуры СТАТИСТИКА2: Sub СТАТИСТИКА2() СТАТИСТИКА.Show End Sub находящейся в стандартном модуле Module1.
Для задания диапазона необходимо сделать активным окно элемента управления RefEdit и выделить нужный диапазон Лист1!$A$14:$A$17 Рис. 30. Выделение диапазона
При нажатии на кнопку ok выполняется следующая процедура модуля формы. Private Sub CommandButton1_Click() Dim r As String Dim min As Double, max As Double, s As Double r = RefEdit1.Value Dim rgn As Range Set rgn = Range min = WorksheetFunction.min(rgn) max = WorksheetFunction.max(rgn) s = WorksheetFunction.Sum(rgn) MsgBox RefEdit1.Value & vbCr & _ “min=” & min & vbCr & _ “max=” & max & vbCr & _ “s=” & s End Sub В этой процедуре инструкция r = RefEdit1.Value присваивает переменной r значение ссылки на диапазон, инструкция Dim rgn As Range объявляет переменную rgn как объект Range, а инструкция Set rgn = Range присваивает значение ячеек выбранного диапазона переменной rgn. Значения свойства Caption формы (Статистика), кнопки CommandButton1 (ok) и кнопки CommandButton2 (Выйти) задаются при инициализации следующей процедуры модуля формы: Private Sub UserForm_initialize() Me.Caption = “Статистика” CommandButton1.Caption = “ok” CommandButton2.Caption = “Выйти” End Sub Удаление формы из памяти осуществляется при нажатии кнопки “Выйти”. При этом возникает событие Click, обрабатываемого следующей процедурой формы: Private Sub CommandButton2_Click() Unload Me End Sub При использовании данного приложения действия производятся в следующем порядке. 1. Запускается (пользователем или программно) процедура СТАТИСТИКА2. 2. Эта процедура загружает форму СТАТИСТИКА, при инициализации которой выполняется процедура UserForm_initialize. 3. Пользователь выделяет на рабочем листе диапазон значений, на который ссылается элемент управления RefEdit. 4. При нажатии на кнопку ok вызывается процедура CommandButton1_Click, в результате выполнения которой осуществляется подсчёт минимума, максимума и суммы величин выбранного диапазона при помощи свойств Min, Max и Sum объекта WorksheetFunction, представляющие собой одноименные функции рабочего листа и которые выводятся на экран при помощи функции MsgBox (рис. 33). Рис. 31. Результаты выполнения приложения СТАТИСТИКА 5. При нажатии на кнопку Выйти выполняется процедура CommandButton2_Click,в результате чего форма СТАТИСТИКА выгружается.
Популярное: Организация как механизм и форма жизни коллектива: Организация не сможет достичь поставленных целей без соответствующей внутренней... Как распознать напряжение: Говоря о мышечном напряжении, мы в первую очередь имеем в виду мускулы, прикрепленные к костям ... Почему двоичная система счисления так распространена?: Каждая цифра должна быть как-то представлена на физическом носителе... ©2015-2024 megaobuchalka.ru Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. (1800)
|
Почему 1285321 студент выбрали МегаОбучалку... Система поиска информации Мобильная версия сайта Удобная навигация Нет шокирующей рекламы |