Obsah
Často sa čudujem, prečo neexistuje ustanovenie na úpravu maximálnej hodnoty posúvača v programe Excel na základe hodnoty bunky. Ak by to bolo k dispozícii, posúvač by automaticky zmenil svoju maximálnu hodnotu pri zmene hodnoty bunky.
Niečo, ako je uvedené nižšie, potom mohlo byť možné:
Tento tip vám môže pomôcť prepojiť maximálnu hodnotu posúvača s bunkou, kým nie je k dispozícii tímom balíka Microsoft Office.
Upravte maximálnu hodnotu posúvača v programe Excel
- Prejdite na kartu Vývojár -> Vložiť -> Ovládacie prvky ActiveX -> Posuvník (Ovládací prvok ActiveX)
- Nemáte kartu pre vývojárov ?? Prečítajte si, ako pridať kartu vývojára na pás s nástrojmi.
- Kliknutím na ľubovoľné miesto v pracovnom hárku vložíte posúvač.
- Pravým tlačidlom myši kliknite na posúvač a vyberte položku Vlastnosti.
- Prepojenú bunku nastavte ako C10 a zatvorte pole vlastností.
- V tomto prípade som použil C10. Môžete mať inú bunku, kde máte maximálnu hodnotu.
- Dvakrát kliknite na posúvač. Otvorí sa editor VBA s kódom, ktorý vyzerá takto:
Private Sub ScrollBar1_Change () End Sub
- Pridajte riadok, aby váš kód vyzeral takto:
Private Sub ScrollBar1_Change () Activesheet.Scrollbar1.Max = Range ("C7"). Hodnota End Sub
- Zatvorte okno editora VBA.
- Prejdite na kartu Vývojár a kliknite ľavým tlačidlom myši na tlačidlo Režim návrhu.
- To je ono !! Váš posuvník je nastavený na používanie.
Keďže súbor má makro, musíte ho uložiť do oboch súborov.xls alebo.xlsm formát.
Akonáhle skončíte s nastavením, a AK posuvník nefunguje, postupujte nasledovne:
- Prejdite na kartu Vývojár a kliknite na Režim návrhu.
- Dvakrát kliknite na posuvník.
- V editore VBA stlačte kláves F5 alebo kliknite na tlačidlo Spustiť pod/používateľa.
- Zatvorte editor VBA.
Skúste to sami … Stiahnite si súbor