button - 创建 float 按钮以向/从电子表格中的单元格添加/减去值

Question

为了简化该字段中的数据输入，即使用平板电脑，我想在电子表格中创建按钮，用于在选定单元格中添加或减去值。使用旋转按钮不是一种选择，因为我必须添加数百个这样的按钮。 This answer准确显示了我正在寻找的内容，即一组将相对于所选单元格移动的 float 按钮。

不幸的是，VBA 宏不能在 android 环境中运行，所以我需要在基于 StarBasic 的软件中找到一个解决方案，例如自由办公室。我知道与将 VBA 移植到 SB 相关的问题不是很受欢迎，但我的编程经验仅限于 R，我不知道如何解决这个问题。我已经将 VBA 代码归结为基本要素:

 Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ActiveSheet.CommandButton
        .Left = Target.Offset(, 2).Left
        .Top = Target.Offset(0).Top
    End With
 End Sub

Sub CommandButton_Click()
    ActiveCell.Value = ActiveCell.Value + 1
End Sub

在移植或从头开始创建新的 SB 宏方面的任何帮助将不胜感激(!)。

Answer 1

我仍然要求您再次尝试滚动条。请改变你对它的态度——不要把它当作一个控件，你需要左右移动滑块，而是把它当作一组四个按钮。不要移动，只需点击

在我的示例中，控件“大更改”的属性设置为 10，这是默认值。您可以将其更改为 5。
我的宏有 Const MAX_STEP = 20 .您可以将其更改为 10。
你得到的按钮只有 +/- 1、+/- 5 和 +/- 10
如果控件的大小不足以用手指进入必要的部分，则更改 oSBar.setSize()在你喜欢的代码中。或者只是增加叶子的缩放比例，就像我在录制 GIF 时所做的那样。