2.6.3.Элементы управления - Счетчик


Элемент управления SpinButton (Счетчик) можно рассматривать, как полосу Прокрутки без ползунка, и он выполняет те же функции, что и полоса прокрутки.

 

Пример. В следующем примере создается простейшее приложение по вводу данных (имени, возраста и пола) о клиенте в таблицу рабочего листа. Создайте форму, на которой расположите три надписи, три поля, два счетчика и кнопку.  В ячейки AJ, Bl и С1 рабочего листа введите имя, возраст и пол, а в модуле формы - код из листинга. Первый счетчик вводит в поле Возраст целые значения от 0 до 100, а второй счетчик — в поле Пол два значения: муж и жен. Поля Возраст и Пол заблокированы для прямого ввода в них значений пользователем. Номер очередной пустой строки в таблице определяется при помощи функции рабочего листа countA, возвращающей число непустых ячеек в указанном диапазоне.


'Установить свойства объекта
Private Sub UserForm_Initialize()
'SpinButton1.Min = 0
'SpinButton1.Max = 100
'SpinButton1.Value = 20
'TextBox2.Locked = True
'SpinButton2.Min = 0
'SpinButton2.Max = 1
'SpinButton2.Value = 1
'TextBox3.Locked = True
End Sub

Private Sub SpinButton1_Change()
TextBox2.Text = SpinButton1.Value
End Sub

Private Sub SpinButton2_Change()
TextBox3.Text = Switch(SpinButton2.Value = 0, "муж", _
SpinButton2.Value = 1, "жен")
End Sub

Private Sub CommandButton1_Click()
Dim n As Integer
n = Application.WorksheetFunction.CountA(Range("a:a")) + 1
Cells(n, 1).Value = TextBox1.Text
Cells(n, 2).Value = TextBox2.Text
Cells(n, 3).Value = TextBox3.Text
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub



ПОИСК
МОЯ КНОПКА
Контакты
МБОУ "Лицей им.Атякшева"

628260 г. Югорск, ул. Ленина 24,
ХМАО-Югра, Тюменская область
Телефон: 8 (34675)2-48-30
Факс: 8 (34675)2-48-30



89222596815 nady_er@mail.ru
Карта
sample map