LibreOffice Calc非连续命名区域宏：批量设置单元格背景与值

1. 能否用单条语句设置非连续命名区域的背景与值？ #

不行。非连续命名区域在LibreOffice/OpenOffice API中对应MultiRange对象，这类对象不支持直接通过单条语句统一设置所有单元格的CellBackColor或Value属性——只有单个矩形单元格区域才能直接批量设置这些属性，非连续区域必须通过循环遍历实现。

2. 原代码报错原因 #

你遇到的PROPERTY OR METHOD NOT FOUND: GETROWS错误，是因为oCellRange是非连续的MultiRange对象，它没有getRows()和getColumns()方法。这两个方法仅适用于单个矩形的CellRange对象，非连续区域无法直接调用。

3. 正确的循环实现代码 #

下面是修正后的完整代码，核心思路是先获取非连续区域的所有子矩形区域，再逐个遍历子区域内的单元格：

sub addColorToNameGameBoard()

Dim myDocument As Object
Dim zoneOfNames As Object
Dim gameRangeName As String
Dim gameRangeNameCoordinates As String
Dim oCellAdress As New com.sun.star.table.CellAddress

myDocument = Thiscomponent

gameRangeNameCoordinates = "Feuille1.$B$5:$C$7~Feuille1.$D$4:$H$8" 
gameRangeName = "plateauDeJeu" 

' 维护命名区域（删除旧的再新建）
zoneOfNames = myDocument.NamedRanges 
If zoneOfNames.hasByName(gameRangeName) then 
    zoneOfNames.removeByName(gameRangeName) 
end If
zoneOfNames.addNewByName(gameRangeName, gameRangeNameCoordinates ,oCellAdress,0)

' 获取命名区域对应的单元格范围
Dim myGameBoard as Object
Dim oReferredCells as Object
myGameBoard = zoneOfNames.getByName(gameRangeName)
oReferredCells = myGameBoard.getReferredCells()

' 遍历非连续区域的每个子矩形范围
Dim iSubRange As Long
For iSubRange = 0 To oReferredCells.getCount() - 1
    Dim oSubRange As Object
    oSubRange = oReferredCells.getByIndex(iSubRange)
    
    ' 遍历当前子矩形的行和列
    Dim iRow As Long, iCol As Long
    For iRow = 0 To oSubRange.getRows().getCount() - 1
        For iCol = 0 To oSubRange.getColumns().getCount() - 1
            Dim oCell As Object
            oCell = oSubRange.getCellByPosition(iCol, iRow) ' 注意：参数是(列索引, 行索引)
            oCell.setValue(4)
            oCell.CellBackColor = RGB(50,60,70)
        Next iCol
    Next iRow
Next iSubRange

End Sub

关键修正点： #

• 用oReferredCells.getCount()获取非连续区域的子矩形数量，通过getByIndex()逐个取出每个子矩形区域
• 每个子矩形区域是标准的CellRange，可以正常调用getRows()和getColumns()
• 修正getCellByPosition的参数顺序：列索引在前，行索引在后，原代码写反了这一关键细节

另一种更直接的遍历方式（遍历所有单元格） #

如果不需要区分子区域，也可以直接获取所有单元格对象并操作，代码更简洁：

' 替换上述的子区域遍历部分
Dim oCells As Object
oCells = oReferredCells.getCells()
Dim iCell As Long
For iCell = 0 To oCells.getCount() - 1
    Dim oCell As Object
    oCell = oCells.getByIndex(iCell)
    oCell.setValue(4)
    oCell.CellBackColor = RGB(50,60,70)
Next iCell

内容的提问来源于stack exchange，提问作者pbelle