0

oOcalc ワークブックからデータを収集して整理する必要があります。情報の一部は、セルにコメントとして表示されます。

私はそれを行うための式を理解できず、アイテムを操作するための oOcalc DOM に慣れていません。

誰かが私を助けてくれることを願っています。ありがとう。

4

1 に答える 1

1

自分でこれを理解しなければならなかったので、あるシートのセルのコメントを別のシートの実際のセルにコピーするマクロを次に示します。それはもっと良いかもしれませんが、それは仕事を終わらせるので、これ以上（私の）時間を費やす価値はありません!

REM ****** BASIC *********

Sub ExtractCommentAnnotationThings

Dim myDoc as Object
Dim originalSheet as Object
Dim newSheet as Object
Dim originalCell as Object
Dim newCell as Object
Dim commentString As String

REM DEFINE VAR FOR OUR LOOP
Dim iTargetRow, iTargetColumn As Long

Const kEndRow = 950
Const kEndColumn = 20

REM SET DOC
myDoc = ThisComponent

REM GET SHEET
originalSheet = myDoc.Sheets(0)
newSheet = myDoc.Sheets(1)

REM START LOOP
For iTargetRow = 0 To kEndRow: DoEvents
For iTargetColumn = 0 To kEndColumn: DoEvents
    originalCell = originalSheet.getCellByPosition(iTargetColumn,iTargetRow)
    REM commentString = Trim(originalCell.Comment.Text)
    If originalCell.Annotation.isVisible = True Then

        commentString = originalCell.getAnnotation().String

        newCell = newSheet.getCellByPosition(iTargetColumn,iTargetRow)
        newCell.String = commentString
    End If      
Next
Next
REM CONTINUE LOOP

End Sub

kEndRowとを設定して、kEndColumnコピーするセル範囲のみを含めます。originalSheetとも適切に設定しnewSheetて (最初に新しいシートを作成する必要がある場合があります)、必要な場所にコピーします。

それが役に立てば幸い！

于 2013-02-01T01:54:09.523 に答える