Във VBA можете да създадете Бутон за завъртане което позволява на потребителя да увеличи число в клетката в определен диапазон. Всеки път, когато потребител кликне върху бутон, броят ще се увеличава или намалява. В този урок ще научите как да създадете бутон Spin и да го използвате в Excel и VBA.
Ако искате да научите как да използвате бутон с опции, щракнете върху тази връзка: Бутон с опции Excel VBA
Създайте бутон за завъртане
За да вмъкнете бутон Spin в работния лист, трябва да отидете на Раздел за програмисти, щракнете Вмъкване и под ActiveX Controls изберете Бутон за завъртане:
Изображение 1. Вмъкнете бутон Spin в работния лист
Когато изберете бутона Spin, който сте вмъкнали, можете да кликнете върху Имоти под Раздел за програмисти:
Изображение 2. Променете свойствата на бутона за центрофугиране
Тук можете да зададете различни свойства на бутона Spin. За начало променихме атрибута Име да се spbSpinButton. Сега можем да използваме бутона Spin с това име във VBA кода. Други важни атрибути са Мин и Макс, които определят диапазон от числа и Малка промяна което определя стъпка на нарастване.
Задайте бутон за завъртане с помощта на VBA
Първо ще видим как да зададем свойства на бутон Spin във VBA и да получим стойност в работен лист. Кодът трябва да е в случай Промяна на обекта spbSpinButton. Можете да влезете в това събитие, като щракнете с десния бутон върху бутона Spin и изберете Преглед на кода опция. Ето кода:
| 1234567891011 | Частен суб spbSpinButton_Change ()Sheet1.spbSpinButton.Min = 100Sheet1.spbSpinButton.Max = 200Sheet1.spbSpinButton.SmallChange = 10Sheet1.Range ("B2") = Sheet1.spbSpinButton.ValueEnd Sub |
Първо, ние задаваме долната граница за диапазон от числа:
| 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
Друг начин за задаване на бутон Spin е използването на Properties. Кликнете върху Имоти под Раздел за програмисти:
Изображение 4. Задайте бутон Spin в Excel
Тук можем да зададем всички атрибути, които искаме: Мин е 10, Макс е 100 и Малка промяна е 2. Ако искате да поставите резултата от бутона Spin в клетката B2, трябва да поставите тази клетка в атрибут LinkedCell.
