2

に相当するものは何ですか

 Workbooks(ThisWorkbook.Name)

libre office マクロ (StarBasic) で

Workbooks(ThisWorkbook.Name) を次のように使用したい

下

 With Workbooks(ThisWorkbook.Name)

While (.Worksheets(ConstData.Detail).Range(ConstData.detailDtId + CStr(count)).Value <> 0)

//Some Code

Wend


End With

Libre Office Calc マクロでこれを行う方法

4

1 に答える 1

2

Open Office BASIC ガイドの例:

Dim Doc As Object
Dim Sheet As Object
Dim CellRange As Object

Doc = ThisComponent
Sheet = Doc.Sheets.getByName("Sheet 1")
CellRange = Sheet.getCellRangeByName("A1:C15")

MsgBox CellRange.computeFunction(com.sun.star.sheet.GeneralFunction.AVERAGE)

http://wiki.openoffice.org/wiki/Documentation/BASIC_Guide/Structure_of_Spreadsheets http://wiki.openoffice.org/wiki/Documentation/BASIC_Guide/Editing_Spreadsheet_Documents

于 2013-05-24T08:04:49.737 に答える