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

我还是请你再试试滚动条。只是请改变你对它的态度 - 不要把它当作一个控件，你需要在其中左右移动 slider ，而要把它当作一组四个按钮。不要移动，只需点击

在我的示例中，控件的属性“Large Change”设置为 10，这是默认值。您可以将其更改为 5。

我的宏有Const MAX_STEP = 20。您可以将其更改为 10。

你会得到按钮，只有 +/- 1、+/- 5 和 +/- 10

如果控件的大小不够大，无法用手指进入必要的部分，请根据您的喜好更改代码中的 oSBar.setSize() 。或者只是增加叶子的缩放，就像我录制 GIF 时所做的那样。