Получить форматированный текст объекта range/cell

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