Добрый день! Пожалуйста помогите переделать из VBA в OpenO...

Автор ForumOOo (бот), 9 октября 2014, 14:35

0 Пользователи и 1 гость просматривают эту тему.

rami

#30
Цитата: Pavv от 15 ноября 2014, 20:34Это же тоже можно с помощью рег выражений сделать.
Я бы сделал так:
Sub SearchSheet1
Dim oSheet    'Лист для замены
Dim oReplace  'Дескриптор замены
oSheet=ThisComponent.Sheets(2)
oReplace=oSheet.createReplaceDescriptor()
oReplace.SearchRegularExpression=true
oReplace.setSearchString("^[:digit:]+,?[:digit:]+$")
oReplace.setReplaceString("=CEILING(&*(1+Пересчет!R11C9/100);50;1)")
oSheet.replaceAll(oReplace)
End Sub

Но этот макрос для синтаксиса  R1C1

Pavv

Спасибо за помощь. Думаю что на этом пока все.