✅ Регулирайте максималната стойност на лентата за превъртане на Excel въз основа на стойността на клетката

Съдържание

Често се чудя защо няма разпоредба за регулиране на максималната стойност на лентата за превъртане в Excel въз основа на стойността на клетката. Ако това беше налично, лентата за превъртане автоматично ще коригира максималната си стойност, когато стойността на клетката се промени.

Тогава може да е възможно нещо, както е показано по -долу:

До момента, в който не бъде предоставен от екипа на Microsoft Office, този съвет може да ви помогне да свържете максималната стойност за лента за превъртане с клетка.

Регулирайте максималната стойност на лентата за превъртане в Excel

Отидете на Раздел Developer -> Insert -> ActiveX Controls -> Scroll Bar (ActiveX Control)
- Нямате раздел за програмисти ?? Прочетете тук как да добавите раздела за програмисти към лентата.

Щракнете навсякъде във вашия работен лист, за да вмъкнете лентата за превъртане.
Щракнете с десния бутон върху лентата за превъртане и изберете Свойства.
Задайте свързаната клетка като C10 и затворете полето със свойства.
- В този пример използвах C10. Можете да имате различна клетка, където имате максималната стойност.

Щракнете двукратно върху лентата за превъртане. Той ще отвори VBA Editor с код, който изглежда така:

Private Sub ScrollBar1_Change () End Sub

Добавете ред, така че кодът ви да изглежда така:

Private Sub ScrollBar1_Change () Activesheet.Scrollbar1.Max = Range ("C7"). Value End Sub

Затворете прозореца на VBA Editor.
Отидете в раздела Developer и щракнете с левия бутон върху бутона Design Mode.
Това е!! Вашата лента за превъртане е настроена да се използва.

Обърнете внимание, че тъй като файлът има макрос, трябва да го запишете в който и да е от двете.xls или .xlsm формат.

След като приключите с настройката, и АКО лентата за превъртане не работи, изпълнете следните стъпки:

Отидете в раздела Разработчик, щракнете върху Режим на проектиране.
Щракнете двукратно върху лентата за превъртане.
В редактора на VBA натиснете F5 или щракнете върху бутона Изпълни под/потребителски формуляр.
Затворете редактора на VBA.