Question

我正在设计一个电子表格，它将使用带有滚动条的用户表单。当我使用鼠标拖动条时，我需要滚动条来实时更新指定的单元格，目前它只在我释放鼠标时调整单元格中的值。

我最初想要使用滑块但是从研究中可以看出这些不能用于用户形式。

当我使用鼠标拖动栏时，是否有人知道任何VBA代码或任何会使滚动条不断更新的内容？

Answer 1

如果您正在使用用户窗体上的滚动条，并且希望在拖动时进行更新，则需要将代码放在滚动条的滚动事件处理程序中。您所描述的行为发生在滚动条的更改事件处理程序中。要查看差异，请创建一个新的用户窗体，并使用滚动条作为其唯一控件。在它的代码模块中输入以下两个事件处理程序。当你运行它时，你应该看到B1而不是A1顺利更新：

Private Sub ScrollBar1_Change()
    Range("A1").Value = ScrollBar1.Value
End Sub

Private Sub ScrollBar1_Scroll()
    Range("B1").Value = ScrollBar1.Value
End Sub

Excel滚动条用户表单在拖动时不会连续更新

1 个答案: