Кнопка отжима можно использовать для увеличения числа в ячейке. Для создания кнопки спины в Excel VBA, выполните следующие действия.

  1. На вкладке Разработчик нажмите кнопку Вставить.

  2. В контрольной группе ActiveX, нажмите кнопку Отжим.

Create a spin button in Excel VBA

  1. Перетащите кнопку спиновой на листе.

  2. Щелкните правой кнопкой мыши на кнопку отжима (убедитесь, что режим Design выбран).

  3. Нажмите кнопку View Code.

View Code

Примечание: Вы можете изменить имя элемента управления, щелкнув правой кнопкой мыши на контроле (убедитесь, что выбран режим Design), а затем нажав кнопку Свойства. На данный момент мы оставим SpinButton1 как имя кнопки спины.

  1. Для того, чтобы связать эту кнопку спина к ячейке, добавьте следующую строку кода.

Range("C3").Value = SpinButton1.Value
  1. Вы можете установить максимальное и минимальное значения, добавляя следующие строки кода.

SpinButton1.Max = 100

SpinButton1.Min = 0
  1. Чтобы изменить значение инкрементного, используйте свойство SmallChange.

SpinButton1.SmallChange = 2
  1. Нажмите стрелку кнопки спины (убедитесь, что режим Design выключенный).

Результат:

Spin Button

Примечание: вместо изменения свойств кнопки спины во время выполнения, вы можете также изменить свойство во время разработки. Чтобы добиться этого, щелкните правой кнопкой мыши на кнопке прокрутки (убедитесь, что режим Design выбран) и нажмите на свойства.

Properties