Tag: 滑块

无法将滑块控件的值更改为0

所以我有一个表单上有一些滑块，以及一些相应的checkbox，禁用或启用每个滑块。 当我禁用一个滑块，我想改变它的值为0，但它拒绝合作，不会改变的价值。 令人沮丧的是，只要我将价值设定为0以外的东西，它就会改变。 我debugging了它，观察滑块的Value属性更改为大于0的值，validationsliders数组中的控件是否与我期望的控件相对应，validationMin属性为0，甚至将其更改为一个荒谬的低这个数字并不包括在内，所以我无法想象它为什么会这样做。 这实际上并不是非常重要，因为滑动条的值在被禁用时不计算在内，但是它让我不知所措，所以我希望能够对此有所了解。 Private Sub UpdateSliderComponents(i As Integer) Dim enable As Boolean enable = Not daysOff(i).Value If Not enable Then sliders(i).Value = 0 End If labels(i).Enabled = enable sliders(i).Enabled = enable End Sub

Excel滚动条用户窗体拖动时不会连续更新

我正在devise一个电子表格，它将利用带有滚动条的用户表单。 我需要滚动条更新实时指定的单元格，因为我使用鼠标拖动栏，目前它只调整单元格中的值，当我释放鼠标。 我最初想要使用滑块，但从研究看来，这些不能在用户窗体中使用。 有谁知道任何VBA代码或任何使滚动条不断更新，因为我用鼠标拖动栏？

Excel滑块控件：我怎样才能限制所有滑块的总和，比如100？

为了清晰起见请参阅图 我有5个variables（A，B，C，D和E），每个variables的范围可以从0到100。 我需要所有这些variables的总和为100，而不是更多，不能less。 但是，目前设置的方式，如果将variablesA从21更改为51，则总数变为130。 我怎么能这样设置，如果我改变一个variables，其他人可以自动补偿这个增加或减less，总数总是 100？