获取范围/单元格对象的格式化文本

Question

我尝试用公式连接一些单元格的格式化内容。
因为我看不到用纯公式解决它的方法，所以我添加了一些基本代码。

但我不知道如何从单个单元格中访问格式化的文本值。
oCell 似乎不是单元格对象，而只是单元格内容。

我该如何改变这个，所以我可以使用类似的东西 oCell.Text 或 oCell.String ...

Function StringSumme(oCellRange )
    dim result as String
    dim nRow as Integer

    result = ""
   For nRow = LBound( oCellRange, 1) To UBound( oCellRange, 1 )
        For nCol = LBound( oCellRange, 2) To UBound( oCellRange, 2 )
            oCell=oCellRange(nRow,1)
            result = result + oCell
        Next 
    Next 
    StringSumme = result 
End Function

在 Excel 中这个可以工作

Function StringSumme(bezug As Range) As String
    Dim txt As String
    Dim ce As Range

    txt = ""
    For Each ce In bezug.Cells
        txt = txt & ce.Text
    Next
    StringSumme = txt
End Function

Answer 1

杰布

我想我现在明白你的问题了。

当你输入这个时

Function StringSumme(oCellRange)

oCellRange 不是范围。它是一个正在传递的数组。因此 oCell 不是单元格对象，而是您猜对的单元格内容。

你可能想把它改成类似

oCell = Sheet.getCellByPosition(X, Y)

然后使用oCell.Value

有趣的阅读

http://wiki.services.openoffice.org/wiki/Documentation/BASIC_Guide/Cells_and_Ranges