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

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

19 Октябрь 2018, 17:02 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

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

Сообщений: 4


« Стартовое сообщение: 18 Май 2018, 18:32 »

Добрый день уважаемые формучане. Пожалуйста, помогите облегчить мою участь. Часть моей работы заключается в обработке отчётов в формате xls, я открываю файл и удаляю заведомо известные столбцы которые не идут по порядку. Вопрос: Возможно ли автоматизировать удаление нескольких столбцов одним действием? Например: я открываю файл, вбиваю формулу или делаю другое действие, и выбираются столбцы A, B, F, Q, Z, FA, и т.п. после чего я их удаляю?
« Последнее редактирование: 18 Май 2018, 19:32 от ikalina » Записан
maksvlad
Форумчанин
***
Offline Offline

Пол: Мужской
Расположение: Иркутск
Сообщений: 150


« Ответ #1: 19 Май 2018, 16:39 »

Макрос на кнопку спасёт отца русской демократии
Записан
ikalina
Новичок
*
Offline Offline

Сообщений: 4


« Ответ #2: 19 Май 2018, 16:42 »

Макрос на кнопку спасёт отца русской демократии
Прошу объяснить не для завстегдателей форума, так сказать чайников, буду благодарен:)
Так сказать на пальцах:(
Записан
Bigor
Опытный пользователь
***
Offline Offline

Пол: Мужской
Сообщений: 314


« Ответ #3: 20 Май 2018, 11:36 »

В ячейку a1 первого листа через запятую вводим столбцы, которые нужно удалить на втором листе. Жмем удалить столбцы, смотрим результат

ps цикл нужно "развернуть" for i=ubound(NRow) To 0 Step -1

* TestRemCol.ods (11.08 Кб - загружено 7 раз.)
« Последнее редактирование: 21 Май 2018, 19:31 от Bigor » Записан
ikalina
Новичок
*
Offline Offline

Сообщений: 4


« Ответ #4: 20 Май 2018, 15:05 »

Спасибо, большое, протестирую.
Записан
ikalina
Новичок
*
Offline Offline

Сообщений: 4


« Ответ #5: 21 Май 2018, 20:31 »

Спасибо, Bigor за помощь, сделал мне макрос.
Если будет подобный мне ламер интерисоваться такой функцией. Вот макрос на удаление заведомо известных столбцов на странице:
Код:
Sub ColsRemove
oSheet = ThisComponent.Sheets(0)
'создаем массив удаляемых столбцов
NameR="A,B,d"
NRow=split(NameR,",")
'цикл по массиву
For i=ubound(NRow) To 0 Step -1
oRange = oSheet.getCellRangeByName("" & ltrim(NRow(i)) & "1")
oCol = oRange.getColumns()
'удаляем
oCol.removeByIndex(0, 1)
next
End Sub
« Последнее редактирование: 22 Май 2018, 06:22 от Helen » Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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