如何使用LibreOffice Basic函数获取单元格的行号和列号

Dim oDoc As Object
Dim oSheet As Object
Dim oCell As Object
Dim sCellAddress As String
Dim nRow As Integer
Dim nColumn As Integer

' 获取当前文档和活动工作表
oDoc = ThisComponent
oSheet = oDoc.getCurrentController().getSheet()

' 获取活动单元格
oCell = oSheet.getCellByPosition(0, 0) ' 这里的 0, 0 是示例坐标，你可以替换成任何有效的单元格坐标

' 获取单元格地址
sCellAddress = oCell.CellAddress

' 解析行号和列号
nRow = Mid(sCellAddress, InStr(sCellAddress, "$") + 1)
nColumn = Mid(sCellAddress, 2, InStr(sCellAddress, "$") - 2)

' 输出行号和列号
MsgBox "行号: " & nRow & ", 列号: " & nColumn

Dim oDoc As Object
Dim oSheet As Object
Dim oCell As Object

' 获取当前文档和活动工作表
oDoc = ThisComponent
oSheet = oDoc.getCurrentController().getSheet()

' 获取活动单元格
oCell = oSheet.getCellByPosition(0, 0) ' 这里的 0, 0 是示例坐标，你可以替换成任何有效的单元格坐标

' 获取行号和列号
Dim nRow As Integer
Dim nColumn As Integer
nRow = oCell.getRow()
nColumn = oCell.getColumn()

' 输出行号和列号
MsgBox "行号: " & nRow & ", 列号: " & nColumn