Przycisk obracania może służyć do zwiększania liczby w komórce. Stworzyć przycisk wirowania w Excel VBA, wykonaj następujące kroki.
1. Na karcie Deweloper kliknij Wstaw.
2. W grupie Formanty ActiveX kliknij przycisk Zakręć.
3. Przeciągnij przycisk pokrętła na arkuszu.
4. Kliknij prawym przyciskiem myszy przycisk obrotu (upewnij się, że wybrano Tryb projektowania).
5. Kliknij Wyświetl kod.
Uwaga: możesz zmienić nazwę kontrolki, klikając ją prawym przyciskiem myszy (upewnij się, że wybrano Tryb projektowania), a następnie klikając Właściwości. Na razie zostawimy SpinButton1 jako nazwę przycisku wirowania.
6. Aby połączyć ten przycisk pokrętła z komórką, dodaj następującą linię kodu.
Zakres("C3").Value = SpinButton1.Value
7. Możesz ustawić maksimum i minimum, dodając następujące linie kodu.
SpinButton1.Max = 100
SpinButton1.Min = 0
8. Aby zmienić wartość przyrostową, użyj właściwości SmallChange.
SpinButton1.Mała zmiana = 2
9. Kliknij strzałki przycisku pokrętła (upewnij się, że tryb projektowania nie jest zaznaczony).
Wynik:
Uwaga: zamiast zmieniać właściwości przycisku pokrętła w czasie wykonywania, możesz również zmienić właściwości w czasie projektowania. Aby to osiągnąć, kliknij prawym przyciskiem myszy przycisk obrotu (upewnij się, że wybrany jest tryb projektowania) i kliknij właściwości.