Turinys
Dažnai susimąstau, kodėl nėra nuostatos, leidžiančios koreguoti maksimalią „Excel“ slinkties juostos vertę pagal langelio vertę. Jei tai būtų pasiekiama, slinkties juosta automatiškai pakoreguotų maksimalią vertę, kai pasikeičia langelio vertė.
Kažkas, kaip parodyta žemiau, galėjo būti įmanomas:
Iki to laiko, kai „Microsoft Office“ komanda to nepasiekia, šis patarimas gali padėti susieti maksimalią slinkties juostos vertę su langeliu.
Nustatykite maksimalią slinkties juostos vertę programoje „Excel“
- Eikite į skirtuką Kūrėjas -> Įterpti -> „ActiveX“ valdikliai -> Slinkties juosta („ActiveX“ valdiklis)
- Neturite kūrėjo skirtuko ?? Skaitykite čia, kaip pridėti juostelės kūrėjo skirtuką.
- Spustelėkite bet kur savo darbalapyje, kad įterptumėte slinkties juostą.
- Dešiniuoju pelės mygtuku spustelėkite slinkties juostą ir pasirinkite Ypatybės.
- Nustatykite susietą langelį kaip C10 ir uždarykite ypatybių langelį.
- Šiame pavyzdyje naudojau C10. Galite turėti kitą langelį, kuriame turite didžiausią vertę.
- Dukart spustelėkite slinkties juostą. Jis atidarys VBA redaktorių su kodu, kuris atrodo taip:
Privatus antrinis „ScrollBar1_Change“ () Pabaiga
- Pridėkite eilutę, kad jūsų kodas atrodytų taip:
Privatus antrinis „ScrollBar1_Change () Activesheet.Scrollbar1.Max = Diapazonas („ C7 “). Vertės pabaiga
- Uždarykite VBA redaktoriaus langą.
- Eikite į skirtuką „Kūrėjas“ ir kairiuoju pelės mygtuku spustelėkite mygtuką „Dizaino režimas“.
- Viskas!! Slinkties juosta yra paruošta naudoti.
Atminkite, kad kadangi failas turi makrokomandą, failą turite išsaugoti bet kuriame iš jų.xls arba.xlsm formatu.
Kai baigsite tai nustatyti, ir JEI slinkties juosta neveikia, atlikite šiuos veiksmus:
- Eikite į skirtuką Kūrėjas ir spustelėkite Dizaino režimas.
- Dukart spustelėkite slinkties juostą.
- VBA redaktoriuje paspauskite F5 arba spustelėkite mygtuką Vykdyti papildomą/vartotojo formą.
- Uždarykite VBA redaktorių.
Išbandykite patys … Atsisiųskite failą
