VBA Excel. Элемент управления SpinButton (счетчик)

Office VBA reference topic

Элемент управления SpinButton

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

Элемент управления SpinButton
Элемент управления SpinButton предназначен в VBA Excel для ввода пользователем числовых данных, которые ограничены минимальным и максимальным значениями. Увеличение или уменьшение числового значения счетчика при однократном нажатии кнопки происходит с указанным шагом.

Визуально, элемент управления SpinButton состоит из двух кнопок, расположенных вертикально или горизонтально в зависимости от настроек. При нажатии на верхнюю или правую кнопку элемента управления значение увеличивается, при нажатии на нижнюю или левую – уменьшается.

Обычно счетчик используется в паре с элементом управления TextBox или Label. Вспомогательный элемент необходим, чтобы отобразить значение счетчика на пользовательской форме.

См. также

  • Объект SpinButton
  • Примеры Форм Майкрософт
  • Справочник по Microsoft Forms
  • Концепции Microsoft Forms

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Create a Spin Button

In order to insert a Spin button in the Worksheet, you need to go to the Developer tab, click Insert and under ActiveX Controls choose Spin button:

vba-spin-button-insert

Image 1. Insert a Spin button in the Worksheet

When you select the Spin button which you inserted, you can click on Properties under the Developer tab:

vba-spin-button-properties

Image 2. Change Spin button Properties

Here you can set different properties of the Spin button. For the beginning, we changed the attribute Name to spbSpinButton. Now, we can use the Spin button with this name in VBA code. Other important attributes are Min and Max, which define a number range and SmallChange which defines a step of incrementation.

Assign value from a TextBox to a Spinner

<source lang=”vb”> Private Sub TextBox1_Change() Dim NewVal As Integer NewVal = Val(TextBox1.Text) If NewVal >= SpinButton1.Min And _ NewVal <= SpinButton1.Max Then _ SpinButton1.Value = NewVal End Sub</source>

Set Spinner value to a TextBox

<source lang=”vb”> Private Sub SpinButton1_Change() TextBox1.Text = SpinButton1.Value End Sub</source>

Spin up event procedure for spin button

<source lang=”vb”> Private Sub SpinButton1_SpinUp() With Range(“B4”) “Increase value in B4 by .05%. Stop at 1% .Value = WorksheetFunction.Min(0.01, .Value + 0.0005) End With End Sub</source>

Рейтинг
( 1 оценка, среднее 5 из 5 )
Загрузка ...