Как сделать код VBA совместимым с офисом libre
Я недавно перешел на pclinuxos из Windows и, похоже, мне это нравится. Единственная проблема, с которой я сталкиваюсь, заключается в том, что libreoffice, пакет электронных таблиц по умолчанию, не совместим с макросами Excel. Ниже код VBA у меня есть:
Option VBASupport
Sub DeleteToLeft()
Selection.SpecialCells(xlBlanks).Delete shift:=xlToLeft
End Sub
Function SinceLastWash()
Application.Volatile
WashCount = 0
WearCount = 0
CurrentRow = Application.ThisCell.Row
For i = 3 To 35
If Range(Cells(CurrentRow, i), Cells(CurrentRow, i)).Value = "a" Then
WearCount = WearCount + 1
End If
If Range(Cells(CurrentRow, i), Cells(CurrentRow, i)).Value = "q" Then
WashCount = WashCount + 1
WearCount = 0
End If
Next i
SinceLastWash = WearCount
End Function
Function testhis()
testhis = Application.ThisCell.Row
End Function
Есть ли способ конвертировать этот код, чтобы сделать его совместимым с libreoffice, или мне нужно изучать совершенно новый язык, такой как python? Изучение Python не было бы проблемой, но не является решением моей проблемы, так как у меня есть много связанных с работой файлов в Excel, которые содержат много кода VBA, и я не могу использовать open office / libreoffice на работе ...
Я просто хочу добавить, что функция SinceLastWash дает правильное значение в некоторых ячейках, где я его использую, а в других выдает ошибку, #NAME?
Спасибо