![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Dim NS As Integer, NORG As Integer
Dim DS As String, DORG As String ‘Определение последней заполненной строки в столбце А на листе «Сотрудники»;
NS=Application.CountA(Sheets(“Сотрудники”).Range(“A: A”)) ‘Определение последней заполненной строки в столбце А на листе «Организации» NORG=Application.CountA(Sheets(“Организации”).Range(“A: A”))
‘определение диапазона фамилий сотрудников: ’NS преобразуется в строку (функция cstr), ‘ затем складывается (&) со строкой A2: A.
DS=”A2: A”& cstr(NS) ‘определение диапазона наименований организаций: ’NО преобразуется в строку (функция cstr), ‘ затем складывается (&) со строкой A2: A.
DORG=”A2: A”& cstr(NОRG) ‘ присваивание имени диапазону, содержащему фамилии
Sheets(“Сотрудники”).Range(DS).Name=”Сотр” ‘ присваивание имени диапазону, содержащему организации
Sheets(“Организации”).Range(DORG).Name=”Орг” ‘ Далее работаем с пользовательской формой UserForm1.
With UserForm1
‘очистка содержимого полей для ввода: TextBox1, TextBox2, TextBox3, ‘TextBox4, TextBox5, ComboBox1, ComboBox2:
.TextBox1.Text = “ “ .TextBox2.Text = “ “ .TextBox3.Text = “ “ .TextBox4.Text = “ “ .TextBox5.Text = “ “ .ComboBox1.Text = “ “ .ComboBox2.Text = “ “ ‘указание источника строк для поля со списком ComboBox1.
.ComboBox1.Rowsource = “Сотр“
‘указание источника строк для поля со списком ComboBox2.
.ComboBox2.Rowsource = “Орг“
‘вывод пользовательской формы на экран. Show End with
Подзадача 4.5 – Работа кнопки Выход Создайте макрос Выход и введите текст программы:
Application.Quit
Все программы для решения задачи 4 – Меню созданы. Перейдем к программированию подзадач задачи 3 – Коман-дировки. Подзадача 3.3 – Расчет суммы в ПФ 1. Откройте форму UserForm1: Сервис-Макрос-Редактор Visual Basic. Если форма на экране не появилась, то выполните команду View-Project Explorer, затем откройте папку Forms и два раза щелкните по форме UserForm1. 2. В ПФ вызовите контекстное меню для поля Количество дней и выберите команду View Code (Исходный текст). На экране появится окно с первой и последней строками программы, которая будет выполняться при каждом изменении содержимого поля. Private Sub TextBox2 Change().
End Sub 3. Между этими строками введите текст программы (комментарии можно не набирать):
‘текст программы, выполняемой при каждом ‘ изменении чисел в полях Количество дней, Суточные и Цена ‘билета. ‘ Проверяем, числа ли записаны ‘ в поля ввода TextBox2, TextBox3, TextBox4. ‘ Если в этих поля записаны числа, ‘то преобразуем ‘ содержимое каждого поля в целое ‘ и запоминаем‘ в переменной, ‘ три следующих строки можно записать в одну строку.
If IsNumeric(TextBox2.Text) And _ IsNumeric(TextBox3.Text) And _
|