Переписать макрос с VBA на OpenOffice Basic

@CEBAnder · Регистрация: 28.11.2014

Author24 — интернет-сервис помощи студентам

Есть код макроса, написанный на VBA

Visual Basic

Sub Макрос1()
Dim rn As Range, r&, rr&
Set rn = ActiveSheet.UsedRange
For r = 1 To rn.Rows.Count
  If Val(rn(r, 3)) > 50 Or Val(rn(r, 3)) = 0 Then
    rr = rr + 1
    Range(Cells(rr, 6), Cells(rr, 9)).Value = rn.Rows(r).Value
  End If
Next r
End Sub

Прошу помочь переписать его на OpenOffice Basic
Макрос должен вывести рядом таблицу, в которой были бы только строки, где кол-во участников больше 50

Переписать макрос с VBA на OpenOffice Basic

@Alex77755 · 29.12.2014, 21:24

А зачем его переписывать?
Макросы ексел работают в OpenOffice
Настроить надо только

@Alex77755 11517 / 3803 / 681 Регистрация: 13.02.2009 Сообщений: 11,221
	29.12.2014, 21:24	2
	А зачем его переписывать? Макросы ексел работают в OpenOffice Настроить надо только 0

Опции темы