Студопедия
МОТОСАФАРИ и МОТОТУРЫ АФРИКА !!!


Авиадвигателестроения Административное право Административное право Беларусии Алгебра Архитектура Безопасность жизнедеятельности Введение в профессию «психолог» Введение в экономику культуры Высшая математика Геология Геоморфология Гидрология и гидрометрии Гидросистемы и гидромашины История Украины Культурология Культурология Логика Маркетинг Машиностроение Медицинская психология Менеджмент Металлы и сварка Методы и средства измерений электрических величин Мировая экономика Начертательная геометрия Основы экономической теории Охрана труда Пожарная тактика Процессы и структуры мышления Профессиональная психология Психология Психология менеджмента Современные фундаментальные и прикладные исследования в приборостроении Социальная психология Социально-философская проблематика Социология Статистика Теоретические основы информатики Теория автоматического регулирования Теория вероятности Транспортное право Туроператор Уголовное право Уголовный процесс Управление современным производством Физика Физические явления Философия Холодильные установки Экология Экономика История экономики Основы экономики Экономика предприятия Экономическая история Экономическая теория Экономический анализ Развитие экономики ЕС Чрезвычайные ситуации ВКонтакте Одноклассники Мой Мир Фейсбук LiveJournal Instagram

Применение диалоговых окон (форм)




В VBA есть диалоговые окна или формы пользователя аналогичные формам в VB.
Для загрузки формы надо войти через панель Visual Basic в интегрированную среду разработки и выбрав в меню пункты «Insert»à «UserForm» вставить форму. На панели элементов управления находятся текстовое поле – TextBox, командная кнопка – CommandButton , надпись – Label и другие элементы управления, свойства которых подобны соответствующим в VB, хотя названия несколько отличаются. Но есть дополнительные элементы, которые специфичны именно для Excel, а именно редактор ссылок – RefEdit, с помощью которого можно указывать мышью ячейки для ввода и вывода данных. Дадим форме имя (свойство Name) «frmV» и название (свойство Caption) «Вычисление объёма» в окне свойств (Properties). Поместим на форму три элемента управления RefEdit для ввода адресов ячеек с рабочего листа содержащих значения хорды, угла, дуги с именами по умолчанию RefEdit1, RefEdit2, RefEdit3 соответственно и для адреса ячейку, которая получит значение объёма (RefEdit4). Также поместим текстовое поле (TextBox1) для параллельного вывода значения объёма на форму и командную кнопку (CommandButton1) для запуска процедуры вычисления.

Для обращения к ячейке используется объект Range, являющегося свойством рабочего листа, у которого в свою очередь есть свойство Value, содержащее значение ячеек, адрес которых будет аргументом метода Range.

В качестве аргумента используем элемент управления RefEdit таким образом, чтобы присвоить переменной значения, находящейся в ячейке используем синтаксис:

X=Range(RefEdit1.Value).Value

Так как свойство Value – это свойство по умолчанию как для Range, так и для RefEdit, то его можно не использовать и написать

X=Range(RefEdit1)

Двойной щелчок мыши по командной кнопке создаст в окне модуля формы заготовку процедуры, запускаемой по щелчку по этой кнопке.

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

Private Sub CommandButton1_Click()

Const Pi = 3.14159265358979

Dim x1 As Double, x2 As Double, x3 As Double, x4 As Double

x1 = Range(RefEdit1) ‘присвоение переменной x1 значение ячейки, адрес которой ‘находится в RefEdit1

x2 = Range(RefEdit2)

x3 = Range(RefEdit3)

x4 = Pi * x1 ^ 3 * 1 / Tan(Pi / 180 * x3 / 2) * Tan(Pi / 180 * x2) / (8 * Sin(Pi / 180 * x3 / 2) ^ 2)

TextBox1.Text = x4

Range(RefEdit4) = x4 ‘присвоение ячейки с адресом, находящимся в RefEdit4 ‘вычисленного значения

End Sub

Для вызова формы с рабочего листа на панели инструментов Visual Basic нажмем кнопку «Элементы управления» и поместим на лист кнопку. Дважды щелкнув по ней, напишем код вызова формы. Синтаксис оператора показа формы такой: ИмяФормы.Show




Private Sub CommandButton1_Click()

frmV.Show

End Sub

 
 


Обратите внимание, что эта процедура помещена в модуль рабочего Листа.

Вызвав форму и придавая фокус соответствующим элементам RefEdit и затем, щелкая в ячейках рабочего листа, введем адреса ячеек. Это можно сделать как мышью, так и набором с клавиатуры и вводить вместо адресов имена ячеек, если они имеются.

В ячейке, указанной для вывода получим значение объема, которое должно быть таким же, как и в предыдущих случаях. Для вычисления значения переменной x4 можно было использовать уже готовую функцию пользователя фнкОбъём, написав:

x4=фнкОбъём(x1, x2,x3)

Итак, проект содержит стандартный модуль с общедоступной (Public) функцией фнкОбъём(), форму со своим модулем, где находится локальная (Private) процедура ввода, вычисления, вывода данных и модуль рабочего листа «Лист1» с процедурой вызова формы .





Дата добавления: 2015-02-27; просмотров: 261; Опубликованный материал нарушает авторские права? | Защита персональных данных | ЗАКАЗАТЬ РАБОТУ


Не нашли то, что искали? Воспользуйтесь поиском:

Лучшие изречения: Как то на паре, один преподаватель сказал, когда лекция заканчивалась - это был конец пары: "Что-то тут концом пахнет". 8578 - | 8149 - или читать все...

Читайте также:

  1. II. Рубки лесных насаждений и их применение
  2. III. Стадия применение методов психологического воздействия.
  3. Аминопласты. Сырьё для получения, виды, свойства, применение
  4. Антитоксины, их свойства, механизм действия. Значение антитоксинов в формировании иммунитета. Получение и титрование антитоксических сывороток, применение в медицинской практике.
  5. АРМ руководителя ремонтных работ депо (АРМ ВЧД Р). Основные функции АРМ ЛВЧД Р. Применение АРМ в системе управления качеством предприятия
  6. Ассортимент строительной керамики. Классификация, характеристика групп, видов, применение
  7. Безопасное применение сырья и материалов, утилизация
  8. Биологическое действие и применение оротовой кислоты
  9. Блок №10: Прикладное применение
  10. Боковые горизонтальные стволы скважин. В каких условиях наиболее эффективно их применение.
  11. Виды гипсовых вяжущих и их применение
  12. Виды известковых вяжущих, их применение


 

3.233.219.101 © studopedia.ru Не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования. Есть нарушение авторского права? Напишите нам | Обратная связь.


Генерация страницы за: 0.002 сек.