Question

我有以下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)

Answer 1

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

？（如果在VBA中定义为意味着您定义了第一个和最后一个单元格。）我个人会将它们定义为

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) _  
)

选定区域中单元格的定义

1 个答案: