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

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

22 Сентябрь 2020, 16:48 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

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

Сообщений: 25


« Ответ #53225: 8 Январь 2020, 18:56 »

Код:
Sub NDRowsDelete
 odoc=thiscomponent
 oSheet = oDoc.CurrentController.getActiveSheet()
 myrows=oSheet.getrows
 
 rowmax=2000 'максимальное количество строк
 rowmin=0       'минимальное количество строк
 
 For i=rowmax To rowmin step -1
 textnd = osheet.getcellbyposition(5,i).string '(5)- столбец 'F'  0=A 1=B 2=C 3=D  и т.п.
    If textnd >="0,95" Then 'удалять строку если в столбце F  значение =>0.95
      myrows.removebyindex(i,1)
    End if   
 Next i
 
End Sub
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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