Полоса прокрутки Excel увеличивает значение на 100 - PullRequest
0 голосов
/ 08 ноября 2018

Как настроить изменение полосы прокрутки Excel при перемещении большого пальца.Я хотел бы увеличить значения полосы прокрутки, скажем, до 100, а не по умолчанию 1.

Самым простым решением было бы сослаться из другой ячейки на LinkedCell полосы прокрутки и умножить ее на 100. Я хотел бы избежать этого промежуточного шага.Я хочу, чтобы полоса прокрутки производила 0, 100, 200 ... прямо в LinkedCell.

Под полосой прокрутки я подразумеваю полосу прокрутки OLEObjects.Примерно так: Set shScroll = ThisWorkbook.ActiveSheet.OLEObjects.Add(ClassType:="Forms.ScrollBar.1", Link:=False, DisplayAsIcon:=False)

Я попытался настроить его SmallChange и LargeChange: enter image description here Но это не влияет на использование большого пальца полосы прокрутки.

Я нашел это решение, которое приближает меня.Я установил изменение на 100 для полосы прокрутки, где Wareworm является названием полосы прокрутки:

Private Sub Wareworm_Scroll()
    Wareworm.Value = Round(Wareworm.Value / 100, 0) * 100
End Sub

Я не удовлетворен этим решением, потому что оно вычисляет связанные формулы, как если бы изменения были сглажены на 1. Этопоказывает правильную формулу только тогда, когда я опускаю большой палец, а не когда я его перемещаю.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...