如何用StarBasic为LibreOffice电子表格实现单元格增减值浮动按钮

为了简化户外场景下使用平板等设备的数据录入工作，我希望在电子表格中创建按钮，可对选中单元格的数值进行增减操作。使用spin buttons不可行，因为我需要添加数百个这类按钮。我需要实现一组可跟随选中单元格相对移动的浮动按钮，效果见下图：

遗憾的是，VBA-macros无法在安卓环境下运行，因此我需要在基于StarBasic的软件（例如LibreOffice）中实现该功能。我仅具备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

希望能得到VBA转StarBasic的相关帮助，或是从零编写对应的SB-macro。

完整实现代码 #

1. 选区变更自动移动按钮的宏 #

Sub OnSelectionChange(oEvent As Object)
    Dim oSheet As Object
    Dim oButton As Object
    Dim oTargetCell As Object
    Dim oOffsetCell As Object
    
    ' 获取当前活动工作表
    oSheet = ThisComponent.CurrentController.ActiveSheet
    ' 获取选中的目标单元格
    oTargetCell = oEvent.CellRange
    ' 匹配提前插入的按钮，名称需和控件属性中设置的一致
    oButton = oSheet.DrawPage.Forms.getByName("Form").getByName("IncrementBtn")
    
    ' 计算向右偏移2列的单元格位置，对应原VBA的Offset(,2)逻辑
    oOffsetCell = oTargetCell.getCellByPosition(2, 0)
    
    ' 移动按钮到对应位置
    oButton.PositionX = oOffsetCell.Position.X
    oButton.PositionY = oTargetCell.Position.Y
End Sub

2. 按钮点击数值+1的宏 #

Sub IncrementActiveCell()
    Dim oActiveCell As Object
    oActiveCell = ThisComponent.CurrentController.Selection
    ' 仅选中单个单元格时执行逻辑
    If oActiveCell.supportsService("com.sun.star.sheet.SheetCell") Then
        ' 空单元格默认初始值为1
        If IsNull(oActiveCell.Value) Or oActiveCell.Value = "" Then
            oActiveCell.Value = 1
        Else
            oActiveCell.Value = oActiveCell.Value + 1
        End If
    End If
End Sub

配置操作步骤 #

• 打开目标LibreOffice Calc文件，依次点击「工具-宏-编辑宏」，将上述两段代码粘贴到当前文件的宏模块中保存
• 回到工作表界面，依次点击「视图-工具栏-表单控件」调出编辑面板，点击「按钮」控件在工作表任意位置插入按钮，右键按钮选择「控件属性」
  • 将「名称」字段设置为IncrementBtn，可自行调整按钮标签、背景色等外观参数
  • 切换到「事件」标签，找到「执行操作」项，点击右侧「...」绑定到IncrementActiveCell宏
• 绑定选区变更事件：右键工作表底部的工作表标签，选择「工作表事件」，找到「选择已更改」项，绑定到OnSelectionChange宏
• 点击表单控件面板的「设计模式开关」退出编辑状态，即可正常使用

如果需要增加减量按钮，只需复制上述逻辑，新增一个按钮控件，编写对应的数值减1宏绑定即可。

内容的提问来源于stack exchange，提问作者M.Teich