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

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

1 个答案: