W VBA możesz utworzyć Przycisk wirowania co pozwala użytkownikowi zwiększyć liczbę w komórce w określonym zakresie. Za każdym razem, gdy użytkownik kliknie przycisk, liczba wzrośnie lub zmniejszy się. W tym samouczku dowiesz się, jak utworzyć przycisk Spin i używać go w Excelu i VBA.
Jeśli chcesz dowiedzieć się, jak korzystać z przycisku opcji, kliknij ten link: Przycisk opcji Excel VBA
Utwórz przycisk wirowania
Aby wstawić przycisk Spin w arkuszu, musisz przejść do Zakładka Deweloper, Kliknij Wstawić i pod kontrolkami ActiveX wybierz Przycisk wirowania:
Obraz 1. Wstaw przycisk Spin do arkusza roboczego
Po wybraniu przycisku Obrót, który wstawiłeś, możesz kliknąć Nieruchomości pod Karta programisty:
Obraz 2. Zmień właściwości przycisku wirowania
Tutaj możesz ustawić różne właściwości przycisku Zakręć. Na początek zmieniliśmy atrybut Nazwa do spbSpinButton. Teraz możemy użyć przycisku Spin o tej nazwie w kodzie VBA. Inne ważne atrybuty to Min oraz Maks., które definiują zakres liczb i Mała zmiana który definiuje krok inkrementacji.
Ustaw przycisk wirowania za pomocą VBA
Najpierw zobaczymy, jak ustawić właściwości przycisku Spin w VBA i uzyskać wartość w Worksheet. Kod musi być w przypadku Reszta obiektu spbSpinButton. Możesz wziąć udział w tym wydarzeniu, klikając prawym przyciskiem myszy przycisk Zakręć i wybierając Zobacz kod opcja. Oto kod:
| 1234567891011 | Subskrypcja prywatna spbSpinButton_Change()Arkusz1.spbSpinButton.Min = 100Arkusz1.spbSpinButton.Max = 200Arkusz1.spbSpinButton.Mała zmiana = 10Sheet1.Range("B2") = Sheet1.spbSpinButton.ValueNapis końcowy |
Najpierw ustalamy dolną granicę zakresu numerów:
| 1 | Arkusz1.spbSpinButton.Min = 100 |
Następnie ustalamy górną granicę zakresu numerów:
| 1 | Arkusz1.spbSpinButton.Max = 200 |
Musimy również ustawić krok dla inkrementacji liczby:
| 1 | Arkusz1.spbSpinButton.Mała zmiana = 10 |
Na koniec przypisujemy bieżącą wartość przycisku Zakręć do komórki B2. Ta wartość jest w Wartość atrybut obiektu Sheet1.spbSpinButton:
| 1 | Sheet1.Range("B2") = Sheet1.spbSpinButton.Value |
Teraz za każdym razem, gdy klikniemy przycisk Spin, wartość wzrośnie lub spadnie o 10 w zakresie 100-200:
Obraz 3. Zwiększ liczbę za pomocą przycisku Spin w VBA
Ustaw przycisk wirowania w programie Excel
Innym sposobem ustawienia przycisku Spin jest użycie Właściwości. Kliknij Nieruchomości pod Karta programisty:
Obraz 4. Ustaw przycisk Spin w Excelu
Tutaj możemy ustawić wszystkie atrybuty jakie chcemy: Min ma 10 lat, Maks. wynosi 100 i Mała zmiana wynosi 2. Jeśli chcesz umieścić wynik przycisku Spin w komórce B2, musisz umieścić tę komórkę w atrybucie Połączona komórka.
