Методы элемента управления Календарь.
Метод |
Описание |
Nextday, nextweek, nextmonth, nextyear |
Следующий день , неделя, месяц, год |
Previusday, Previusweek, Previusmonth, Previusyear, |
Предыдущий день , неделя, месяц, год |
Today |
Устанавливает текущую дату |
Создадим форму, с помощью которой введем список из трех столбцов Фамилия, Дата приема на работу и Дата увольнения. (см. рис.)
На пустую форму добавьте следующие элементы – 3 поля ввода, кнопка и календарь. Им даем следующие имена – textName, textBegin, textEnd, cmdOk, cldmy. В модуле напишите следующий код:
Private m As Byte
Private pole(1 To 2) As Object
Private Sub UserForm_Initialize()
Set pole(1) = Textbegin
Set pole(2) = Textend
m = 1
pole(1).SetFocus
cldmy.Value = Now
End Sub
Private Sub Textbegin_Enter()
m = 1
End Sub
Private Sub Textend_Enter()
m = 2
End Sub
Private Sub cldmy_Click()
pole(m) = cldmy.Value
End Sub
Private Sub cmdok_Click()
Range("A1").Value = Textname.Text
Range("B1").Value = Textbegin.Text
Range("C1").Value = Textend.Text
End Sub
Запустите модуль на выполнение и введите запись.
Самостоятельно 2 – й вариант: разработать пользовательскую форму для организации следующего списка сотрудников университета : Фамилия (поле ввода), Имя (поле ввода), Отчество (поле ввода), Дата приема на работу (элемент управления Календарь), Дата рождения (элемент управления Календарь), Должность (поле со списком ), факультет (поле со списком), кафедра (поле со списком), Кол-во отработанных лет (вычисляемое поле, в форму его не добавлять, а выводить вычисляемое значение в список), Возраст (вычисляемое поле, в форму его не добавлять, а выводить вычисляемое значение в список), Пол (переключатель), Оклад (поле ввода).
С помощью созданной формы добавить в список 10 записей.