将SpinUp和SpinDown宏分配给旋转器

Question

我有一个工作表表格旋转器，它需要将单元格值从1增加到100。SpinUp和SpinDown事件过程包含在Sheet1 VBA对象中，但我只能在分配宏菜单中选择一个。这意味着，无论我单击何处，旋转器只能向上或向下递增。

如何将这两者结合起来，使旋转器正确工作？

请不要建议使用ActiveX旋转器。我已经成功地做到了这一点，但它与Mac版本存在兼容性问题，因此希望避免它。

我的旋转器名为Spinner1，Sheet1中的代码是：

Sub Spinner1_SpinUp()
    With Range("A2")
        .Value = WorksheetFunction.Min(100, .Value + 1)
    End With
End Sub

Sub Spinner1_SpinDown()
    With Range("A2")
        .Value = WorksheetFunction.Max(1, .Value - 1)
    End With
End Sub

Answer 1

Private lngPrevVal As Long

Sub Spinner1_Change()

Dim s As Spinner
Set s = Sheets("sheet1").Shapes("Spinner 1").OLEFormat.Object

    If s.Value > lngPrevVal Then
        Sheets("sheet1").Range("a1").Value = "Up"
    Else
        Sheets("sheet1").Range("a1").Value = "Down"
    End If

lngPrevVal = s.Value

End Sub