вторник, 2 марта 2010 г.

Простейший VBA макрос в OpenOffice.org


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

Sub Main

Dim Doc As Object
Dim Sheet As Object
Dim Cell As Object

Doc = ThisComponent
Sheet = Doc.Sheets(0)

Cell = Sheet.getCellByPosition(0, 0)
Cell.Value = Cell.Value+1


End Sub




Источник : http://www.excelforum.com/excel-programming/715250-simple-cell-value-1-macro.html

Комментариев нет: