Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

24 Февраль 2020, 10:29 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Доступно и просто о работе в офисных пакетах
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1 2 »   Вниз
  Печать  
Автор Тема: Макрос изменяет формулу при её записи  (Прочитано 894 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Konstanta
Форумчанин
***
Offline Offline

Сообщений: 59


« Ответ #52374: 23 Октябрь 2019, 11:49 »

Приветствую Всех!
Пытаюсь понять причины и решить проблему, с которой в Excel не сталкивался (там просто эта проблема не появлялась):

В ячейке Z1 активного листа, макросом должна встать формула, ссылающаяся на другой лист книги (дело в том, что листы удаляются а потом вставляются новые но с тем же именем. Формула рушится и конечно её надо прописать заново после вставки нового листа):         

=ЕСЛИ(ЕОШИБКА(ПОИСК("ПРОМО";'ЗАПАСНЫЕ ЧАСТИ'!G1;1));Y1;0)         
При наличии в проверяемом выражении слова «ПРОМО» формула возвращает 0, а противном случае = Y1         
В ручном режиме конечно всё работает но, при вставке макросом он почему-то вставляет формулу иного вида:         

=ЕСЛИ(ЕОШИБКА(ПОИСК("ПРОМО",$'запасные части'.g10.1)),Y10)          

Что в итоге приводит к ошибке         Ошибка:508
Код:
Sub Макрос5()
'
' Макрос5 Макрос
'

'
    Sheets("Общий").Select
    Range("Z1").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(SEARCH(""ПРОМО"",'ЗАПАСНЫЕ ЧАСТИ'!RC[-19],1)),RC[-1],0)"
    Range("Z2").Select
End Sub

Проблемный файлик вложил.
Прошу помочь понять и исправить.
Подобные проблемы с внесением формул довольно часто могут появляться именно в LO, поэтому прошу знатоков разъяснить, что именно происходит с формулой и как её нужно формулировать в коде, чтобы она верно интерпретировалась макросом при вставке.

* проба.ods (17.44 Кб - загружено 7 раз.)
« Последнее редактирование: 23 Октябрь 2019, 11:59 от Konstanta » Записан
Страниц: 1 2 »   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!