Tlačítko roztočení Excel VBA

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.

wave wave wave wave wave