Excel VBA to LibreOffice Calc

File: LibreOffice Calc (.ods)


Calc code


REM  *****  BASIC  *****
Option VBASupport 1
Sub A1Test()
'
' A1Test Macro
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Test"
End Sub

Excel code

Sub A1Test()
'
' A1Test Macro
'

'
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Test"
End Sub

いいなと思ったら応援しよう!