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

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

16 Апрель 2021, 20:06 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

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

Сообщений: 11


« Ответ #41800: 4 Май 2017, 16:04 »

Добро пожаловать на форум!
Наверное, имелось в виду что-то в этом роде:
Спасибо помогло!
Можно ли усовершенствовать следующую строку
oRange = oSheet.getCellRangeByPosition(2, 13, 80, 91)
вместо 80 и 90 использовать "Dim FinalRow,FinalColumn as integer"

Находим последнюю не пустую строку в 2 колонке
FinalRow = oSheet.Cells(Rows.Count, 2).End(xlUp).Row              'на Excel примено так было бы

Находим последнюю не пустую колонку в 13 строке
FinalColumn = oSheet.Cells(13, Columns.Count).End(xlToLeft).Column        'на Excel примено так было бы

Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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