Excel滚动条将值增加100

Question

如何在移动拇指的同时设置Excel滚动条更改。我想将滚动条值增加100，而不是默认值1。

最简单的解决方案是从另一个单元格引用滚动条LinkedCell并将其乘以100。我想避免此中间步骤。我希望滚动条直接在LinkedCell中产生0、100、200...。

通过滚动条，我的意思是OLEObjects滚动条。像这样： 设置shScroll = ThisWorkbook.ActiveSheet.OLEObjects.Add(ClassType:="Forms.ScrollBar.1", Link:=False, DisplayAsIcon:=False)

我尝试设置其SmallChange和LargeChange： 但这不会影响使用滚动条的拇指。

我发现了这个解决方案，这使我更加接近。我为滚动条设置了100的更改，其中Wareworm是滚动条的名称：

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

我对这种解决方案不满意，因为它计算链接的公式好像在1处平滑变化。它仅在放下拇指时（而不是在移动拇指时）显示正确的公式。