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

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

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

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Подправить макрос для копирования последней строки в таблице  (Прочитано 404 раз)
0 Пользователей и 1 Гость смотрят эту тему.
X Brain
Новичок
*
Offline Offline

Сообщений: 1


« Стартовое сообщение: 11 Апрель 2020, 14:55 »

Добрый день. Есть макрос работающий в EXCEL, (копирует последнюю строку в таблице с изменением даты на следующий месяц), но в LibreOffice выдает ошибку, помогите подправить код пожалуйста. Приложил код и видео, чтобы было понятно, что нужно.

https://youtu.be/kmFLsmC28fI

Код:
Private Sub Copy_Row()
    With ActiveSheet.UsedRange
         rw& = .Rows.Count
         .Rows(rw&).Copy
         .Rows(rw& + 1).Insert xlDown
         .Rows(rw&).Cells(1).Resize(2).DataSeries , xlChronological, xlMonth
    End With
End Sub



* LibreOffice_calc.png (1836.4 Кб, 1009x620 - просмотрено 14 раз.)
« Последнее редактирование: 11 Апрель 2020, 15:06 от X Brain » Записан
eeigor
Ubuntu 18.04 LTS
Форумчанин
***
Offline Offline

Сообщений: 72


« Ответ #1: 12 Апрель 2020, 21:35 »

xlChronological, xlMonth
Трудно сказать, но попробуйте заменить xl-константы на значения: 3, 3
« Последнее редактирование: 12 Апрель 2020, 21:36 от eeigor » Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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