Ve VBA můžete vytvořit soubor Tlačítko roztočení což uživateli umožňuje zvýšit číslo v buňce v definovaném rozsahu. Pokaždé, když uživatel klikne na tlačítko, počet se zvýší nebo sníží. V tomto tutoriálu se naučíte, jak vytvořit tlačítko Spin a použít ho v Excelu a VBA.
Pokud se chcete naučit používat tlačítko Option, klikněte na tento odkaz: Tlačítko Option Excel VBA
Vytvořte otočné tlačítko
Chcete -li vložit tlačítko Spin do listu, musíte přejít na Karta vývojáře, klikněte Vložit a v části Ovládací prvky ActiveX vyberte Tlačítko roztočení:
Obrázek 1. Vložte tlačítko Spin do pracovního listu
Když vyberete tlačítko Spin, které jste vložili, můžete na něj kliknout Vlastnosti pod Karta vývojáře:
Obrázek 2. Změnit Vlastnosti tlačítka Spin
Zde můžete nastavit různé vlastnosti tlačítka Spin. Na začátku jsme změnili atribut název na spbSpinButton. Nyní můžeme použít tlačítko Spin s tímto názvem v kódu VBA. Dalšími důležitými atributy jsou Min a Max, které definují rozsah čísel a Malá změna který definuje krok přírůstku.
Nastavte otočné tlačítko pomocí VBA
Nejprve uvidíme, jak nastavit vlastnosti tlačítka Spin ve VBA a získat hodnotu v listu. Kód musí být v případě Změna objektu spbSpinButton. Do této události se můžete dostat kliknutím pravým tlačítkem na tlačítko Spin a výběrem Zobrazit kód volba. Zde je kód:
1234567891011 | Soukromý sub spbSpinButton_Change ()Sheet1.spbSpinButton.Min = 100Sheet1.spbSpinButton.Max = 200Sheet1.spbSpinButton.SmallChange = 10Sheet1.Range ("B2") = Sheet1.spbSpinButton.ValueEnd Sub |
Nejprve nastavíme dolní limit pro rozsah čísel:
1 | Sheet1.spbSpinButton.Min = 100 |
Poté nastavíme horní limit pro rozsah čísel:
1 | Sheet1.spbSpinButton.Max = 200 |
Musíme také nastavit krok pro zvýšení počtu:
1 | Sheet1.spbSpinButton.SmallChange = 10 |
Nakonec buňce B2 přiřadíme aktuální hodnotu tlačítka Spin. Tato hodnota je v Hodnota atribut objektu List1.spbSpinButton:
1 | Sheet1.Range ("B2") = Sheet1.spbSpinButton.Value |
Nyní, kdykoli klikneme na tlačítko Spin, hodnota se zvýší nebo sníží o 10 v rozsahu 100-200:
Obrázek 3. Zvyšte číslo pomocí tlačítka Spin ve VBA
Nastavte tlačítko Spin v aplikaci Excel
Dalším způsobem, jak nastavit tlačítko Spin, je použití Vlastnosti. Klikněte na Vlastnosti pod Karta vývojáře:
Obrázek 4. Nastavte tlačítko Spin v Excelu
Zde můžeme nastavit všechny požadované atributy: Min je 10, Max je 100 a Malá změna je 2. Pokud chcete v buňce B2 vložit výsledek tlačítka Spin, musíte tuto buňku vložit do atributu LinkedCell.