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
