Макрос LibreOffice всегда показывает #NULL! после повторного открытия файла
Я написал макрос в LibreOffice Calc, и он может работать правильно. Но если я закрою файл и снова открою, он всегда показывает#NULL!
вместо правильного значения. Что мне здесь не хватает?
Мой код макроса
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Function Calculate(CalType As String) As Double
'
' Calculate Macro
'
Dim i As Integer
Calc = 0
i = 1
Do While Not IsEmpty(Cells(i, 2))
If (Cells(i, 3).Value = CalType And (Cells(i,2) = "A" Or Cells(i,2) = "B")) Then
Calculate = Calculate + Cells(i, 4).Value
ElseIf (Cells(i, 3).Value = CalType And Cells(i,2) = "C") Then
Calculate = Calculate - Cells(i, 4).Value
End If
i = i + 1
Loop
'
End Function
Вызывающая функция будет что-то вроде=Calculate(J6)
Файл сохранен как.ods
формат.