В VBA вы можете создать Кнопка вращения который позволяет пользователю увеличивать число в ячейке в определенном диапазоне. Каждый раз, когда пользователь нажимает кнопку, число будет увеличиваться или уменьшаться. В этом руководстве вы узнаете, как создать кнопку вращения и использовать ее в Excel и VBA.
Если вы хотите узнать, как использовать кнопку Option, щелкните эту ссылку: Кнопка выбора Excel VBA
Создать кнопку вращения
Чтобы вставить кнопку вращения в рабочий лист, вам нужно перейти к Вкладка разработчиканажмите Вставлять и в разделе ActiveX Controls выберите Кнопка вращения:
Изображение 1. Вставьте кнопку вращения в рабочий лист.
Когда вы выбираете кнопку вращения, которую вы вставили, вы можете нажать на Характеристики под Вкладка разработчика:
Изображение 2. Изменить свойства кнопки вращения
Здесь вы можете установить различные свойства кнопки Spin. Для начала изменили атрибут Имя к spbSpinButton. Теперь мы можем использовать кнопку Spin с этим именем в коде VBA. Другие важные атрибуты: Мин. а также Максимум, которые определяют диапазон номеров и Небольшой изменение который определяет шаг приращения.
Установите кнопку вращения с помощью VBA
Сначала мы увидим, как установить свойства кнопки вращения в VBA и получить значение в листе. Код должен быть в событии Изменять объекта spbSpinButton. Вы можете войти в это событие, щелкнув правой кнопкой мыши кнопку Spin и выбрав Просмотреть код вариант. Вот код:
1234567891011 | Частная подпрограмма spbSpinButton_Change ()Sheet1.spbSpinButton.Min = 100Sheet1.spbSpinButton.Max = 200Sheet1.spbSpinButton.SmallChange = 10Sheet1.Range ("B2") = Sheet1.spbSpinButton.ValueКонец подписки |
Сначала мы устанавливаем нижнюю границу диапазона номеров:
1 | Sheet1.spbSpinButton.Min = 100 |
После этого мы устанавливаем верхнюю границу диапазона номеров:
1 | Sheet1.spbSpinButton.Max = 200 |
Также нам нужно установить шаг приращения числа:
1 | Sheet1.spbSpinButton.SmallChange = 10 |
Наконец, мы присваиваем текущее значение кнопки Spin ячейке B2. Это значение находится в Ценить атрибут объекта Sheet1.spbSpinButton:
1 | Sheet1.Range ("B2") = Sheet1.spbSpinButton.Value |
Теперь всякий раз, когда мы нажимаем кнопку Spin, значение будет увеличиваться или уменьшаться на 10 в диапазоне 100-200:
Изображение 3. Увеличьте число с помощью кнопки Spin в VBA.
Установить кнопку вращения в Excel
Другой способ установить кнопку вращения - использовать свойства. Нажмите на Характеристики под Вкладка разработчика:
Изображение 4. Установите кнопку вращения в Excel
Здесь мы можем установить все необходимые атрибуты: Мин. 10 лет, Максимум 100 и Небольшой изменение равно 2. Если вы хотите поместить результат нажатия кнопки Spin в ячейку B2, вы должны поместить эту ячейку в атрибут LinkedCell.