如何将连接到一行中多个纺丝器的单元格限制为所链接的单元格中值的之和？

Question

我有5个连着5个细胞的旋转器。当五个单元格之和达到一定值时，纺丝器是否有可能停止工作？

也就是说，除非你减少另一个细胞，否则不能进一步增加任何细胞。

Answer 1

看看这是否有效，这是有点麻烦，但做的工作。确保你遵循所有的步骤，否则你会遇到问题。

在您的工作簿中，将此代码添加到一个新模块中。

Public Sub Spinner1Change()
    SpinnerChange "Spinner1"
End Sub

Public Sub Spinner2Change()
    SpinnerChange "Spinner2"
End Sub

Public Sub Spinner3Change()
    SpinnerChange "Spinner3"
End Sub

Public Sub Spinner4Change()
    SpinnerChange "Spinner4"
End Sub

Public Sub Spinner5Change()
    SpinnerChange "Spinner5"
End Sub

Sub SpinnerChange(ByVal strSpinnerName As String)
    Dim bEnabled As Boolean, strLinkedCell As String, objSheet As Worksheet

    Set objSheet = Worksheets("Sheet1")

    If Range("rngCurrentValue") > Range("rngMaxValue") Then
        strLinkedCell = objSheet.Shapes(strSpinnerName).ControlFormat.LinkedCell
        objSheet.Range(strLinkedCell) = objSheet.Range(strLinkedCell) - 1
    End If
End Sub

将"Sheet1“更改为存在纺丝器的工作表的名称。

现在在你的工作表里..。

​

​

。。创建2个命名范围：

• rngCurrentValue (在我的示例中链接到单元格H2 )
• rngMaxValue (在我的示例中链接到单元格D2 )

用你的旋转器，给每个旋转器一个顺序的名称，我叫它们Spinner1，Spinner2，Spinner3等，并将它们连接到所需的单元.

​

​

输入一个最大值(如单元格D2中显示的那样)，然后旋转到它，它将导致最后一个自旋下降到它以前的值。

没有错误检查本身，但你可以自己解决，我觉得这是公平的。

如果你有更好的解决办法，那就随便拿吧。:-)