Excel 选定区域中单元格的定义

我有以下VBA代码要转换为OpenOffice Calc：

Sub RangeButton()
Dim rngArea As Range
    For Each rngArea In Selection.Areas
    Cells(3, 2).Value = rngArea(1).Address(0, 0) & ":" & rngArea(rngArea.Cells.Count).Address(0, 0)
    Next rngArea
End Sub

我正在创建一个范围按钮，用于在单元格（3,2）中定义选定区域的第一个和最后一个单元格。我想知道如何定义选定的第一个和最后一个单元格

在VBA中，定义如下：

rngArea(1).Address(0, 0)
rngArea(rngArea.Cells.Count).Address(0, 0)

?？（如果在VBA中定义为like，则表示您定义了第一个和最后一个单元格）。
我个人会把它们定义为

Selection = Range( _  
Cells(rngArea(1).Row,rngArea(1).Column), _ 
Cells(rngArea(1).Row + rngArea(1).Rows.Count - 1, rngArea(1).Column + rngArea(1).Columns.Count - 1) _  
)

---

我不能说我理解你的问题，但我想这会帮助你：

MsgBox（替换（范围（单元格（Selection.Row，Selection.Column），单元格（Selection.Row+Selection.Rows.Count-1，Selection.Column+Selection.Columns.Count-1））。地址，“$”，”）

对不起。我真正想要的是OpenOfficeBasic的代码，它允许用户按下一个按钮，并将他刚刚用鼠标完成的选择保存在一个单元格中。例如：用户用鼠标选择A2:C5并按下按钮，然后在单元格（“B3”）中出现字符串“A2:C5”。我需要这样做，因为我将使用这个范围作为另一个函数的输入。

Selection = Range( _  
Cells(rngArea(1).Row,rngArea(1).Column), _ 
Cells(rngArea(1).Row + rngArea(1).Rows.Count - 1, rngArea(1).Column + rngArea(1).Columns.Count - 1) _  
)