Obsah
Často se divím, proč neexistuje ustanovení upravující maximální hodnotu posuvníku v aplikaci Excel na základě hodnoty buňky. Pokud by to bylo k dispozici, posuvník by automaticky upravil svou maximální hodnotu, když se změní hodnota buňky.
Něco, jak je uvedeno níže, by pak mohlo být možné:
Do doby, než je tým Microsoft Office zpřístupní, vám tento tip pomůže propojit maximální hodnotu posuvníku s buňkou.
Upravte maximální hodnotu posuvníku v aplikaci Excel
- Přejděte na kartu Vývojář -> Vložit -> Ovládací prvky ActiveX -> Posuvník (Ovládací prvek ActiveX)
- Nemáte kartu vývojáře ?? Zde si přečtěte, jak přidat kartu vývojáře na pás karet.
- Kliknutím na libovolné místo v listu vložte posuvník.
- Klikněte pravým tlačítkem na posuvník a vyberte Vlastnosti.
- Propojenou buňku nastavte jako C10 a zavřete pole vlastností.
- V tomto příkladu jsem použil C10. Můžete mít jinou buňku, kde máte maximální hodnotu.
- Poklepejte na posuvník. Otevře editor VBA s kódem, který vypadá takto:
Private Sub ScrollBar1_Change () End Sub
- Přidejte řádek, aby váš kód vypadal takto:
Private Sub ScrollBar1_Change () Activesheet.Scrollbar1.Max = Range ("C7"). Hodnota End Sub
- Zavřete okno editoru VBA.
- Přejděte na kartu Vývojář a klikněte levým tlačítkem na tlačítko Režim návrhu.
- A je to!! Váš posuvník je nastaven k použití.
Vzhledem k tomu, že soubor obsahuje makro, musíte soubor uložit do obou.xls nebo.xlsm formát.
Jakmile nastavení dokončíte, a LI posuvník nefunguje, postupujte takto:
- Přejděte na kartu Vývojář a klikněte na Režim návrhu.
- Dvakrát klikněte na posuvník.
- V editoru VBA stiskněte klávesu F5 nebo klikněte na tlačítko Spustit formulář Sub/User.
- Zavřete editor VBA.
Vyzkoušejte to sami … Stáhněte si soubor