У VBA можна створити файл Кнопка обертання що дозволяє користувачеві збільшувати число в комірці у визначеному діапазоні. Кожен раз, коли користувач натискає кнопку, кількість збільшується або зменшується. У цьому посібнику ви дізнаєтесь, як створити кнопку Spin та використовувати її в Excel та VBA.
Якщо ви хочете дізнатися, як користуватися кнопкою Опції, натисніть це посилання: Кнопка опції Excel VBA
Створіть кнопку обертання
Для того, щоб вставити кнопку обертання у робочий аркуш, потрібно перейти до Вкладка розробник, клацніть Вставити і в розділі Елементи керування ActiveX виберіть Кнопка обертання:
Зображення 1. Вставте кнопку обертання на робочому аркуші
Вибравши вставлену кнопку «Віджимання», можна натиснути Властивості під Вкладка розробник:
Зображення 2. Змінити властивості кнопки віджимання
Тут ви можете встановити різні властивості кнопки Віджимання. Для початку ми змінили атрибут Назва до spbSpinButton. Тепер ми можемо скористатися кнопкою Spin з такою назвою у коді VBA. Інші важливі атрибути Хв та Макс, які визначають діапазон чисел та SmallChange який визначає крок інкрементації.
Встановіть кнопку обертання за допомогою VBA
Спочатку ми побачимо, як встановити властивості кнопки Spin у VBA та отримати значення у робочому аркуші. Код повинен бути у випадку Змінити об'єкта spbSpinButton. Ви можете увійти в цю подію, клацнувши правою кнопкою миші по кнопці «Обертати» та вибравши Переглянути код варіант. Ось код:
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 |
Нарешті, ми призначаємо поточне значення кнопки Повороту до комірки В2. Це значення знаходиться в Цінність атрибут об’єкта Sheet1.spbSpinButton:
1 | Sheet1.Range ("B2") = Sheet1.spbSpinButton.Value |
Тепер, коли ми натискаємо на кнопку «Віджимання», значення буде збільшуватися або зменшуватися на 10 у діапазоні 100-200:
Зображення 3. Збільште число за допомогою кнопки «Обертати» у VBA
Встановіть кнопку повороту в Excel
Інший спосіб встановити кнопку обертання - це використання властивостей. Натисніть на Властивості під Вкладка розробник:
Зображення 4. Встановіть кнопку віджимання в Excel
Тут ми можемо встановити всі потрібні атрибути: Хв становить 10, Макс становить 100 і SmallChange дорівнює 2. Якщо ви хочете помістити результат натискання кнопки Spin у клітинку B2, ви повинні помістити цю клітинку в атрибут LinkedCell.