исходные: есть таблица-список, в первой колонке № п/п, есть фильтры на колонках.
задаю значение фильтра  по некоторой колонке, получаю под-список.

вопрос: как добиться авто-нумерации в 1-й колонке для под-списка?

варианты "руками" и "скопипастить в другую вкладку и пронумеровать" не предлагать

позвать специалиста? не?
:)

пс не юзаю ни того, ни другова)

(1) "я и есть специалист!" ©
:)

а разве в ООо существует автофильтр ?

ещё заметил адский глюк: фильтр по колонке со строками типа "= НужнаяСтрока"  отрабатывает не как "=", а как "содержит"

хрень какая-то

(4) ты не поверишь

(6) не поверю

+(5) причём это проверено в разных версиях OO и LO ветки 3.х

(7) Данные\Фильтр\Автофильтр

(9) и чо там ?

не, в принципе, мне не сложно щас это ручками (в смысле - копипастами) сделать, интересно знать красивое решение

(10) а чо там, на твой взгляд, должно быть?

(12) картинку давай, не жми!

(13) http://savepic.su/1037916.htm

во, я даже понял что надо)))

видимостью можно играться программно?

(16) думаю, да. я, если честно, в скрипты опена ни разу не лез, я врайтером-то пользуюсь всего 2-3 раза на дню, а калком - и того реже. просто подумал, может, кто уже озадачивался таким, и есть что-то готовое. на будущее, так сказать

добавь колонку спереди с №п/п и заполняй руками.

(18) "протаскивание" нумерации не работает в этом случае так, как надо мне - нумеруются все строки, а не только видимые.
пока самый быстрый вариант - с копипастами под-списков на другой лист и нумерацией там "протаскиванием"

(19) а протаскивание и не будет работать в таком случае.

)) знаю как))

в ООо нет автофильтра

+21 там формулы есть?

(23) конечно есть
(22) пофиг, какие требования ты предъявляешь к автофильтру, главное, то, что называется автофильтром в опене, делает то, что надо

(19) В общем, лови http://webfile.ru/5739544

только это от мс

(24) если D2 стереть, то фильтров не надо ставить.

(25) идея прикольная, но нет универсализма (например, фильтр включили в нескольких колонках, или фильтр не по "=", а по ">=", или "содержит") + нужно ручное участие (вписать тек.значение фильтра в спец.ячейку).

в любом случае, спасибо за участие

если по нескольким, сделай еще столбец для второго-третьего и скока там будет, а потом сворачивай по И. профит)

а вот для больше/меньше надо думать еще)))

(30) ладно, забей :)  будем считать, что это задачка для скрипта. только времени нет сейчас для изучения скриптов опена. вот когда прижмёт невмоготу, тогда, может, и засяду за изучение.

(31) ок
:)

В простейшем разе, если нумератор слева (не обязательно первая колонка)

sub xxxx
   [Док] = ThisComponent
   [Листы]=[Док].getSheets()
   [Лист]=[Листы].getByIndex(0)
   [Курсор]=[Лист].createCursor()
   [Курсор].gotoStartOfUsedArea(0)
   [Курсор].gotoEndOfUsedArea(-1)
   [Адреса]=[Курсор].getRangeAddress()
   [Диапазон]=[Лист].getCellRangeByPosition([Адреса].StartColumn,[Адреса].StartRow,[Адреса].EndColumn,[Адреса].EndRow)
   [Поиск]=[Диапазон].createSearchDescriptor()
   [Поиск].SearchRegularExpression = -1
   [Поиск].SearchString = ".+"
   [Рез]=[Диапазон].findAll([Поиск])
   [Всего]=[Рез].getCount()
   [Начало]=[Рез].getByIndex(0).getRangeAddress()
   [Конец]=[Рез].getByIndex([Всего]-1).getRangeAddress()
   [Диапазон]=[Диапазон].getSpreadsheet().getCellRangeByPosition([Начало].StartColumn, [Начало].StartRow,[Конец].EndColumn,[Конец].EndRow)
   if [Док].DatabaseRanges.hasByName("XXX") then [Док].DatabaseRanges.removeByName("XXX")
   [Док].DatabaseRanges.addNewByName("XXX", [Диапазон].getRangeAddress())
   [ДиапазонДанных]=[Док].DatabaseRanges.getByName("XXX")
   [ДиапазонДанных].UseFilterCriteriaSource = False
   [ДиапазонДанных].AutoFilter = True
   [Фильтр] = [ДиапазонДанных].getFilterDescriptor()
   [Поля] = createUnoStruct("com.sun.star.sheet.TableFilterField")
   With [Поля]
       .Connection = com.sun.star.sheet.FilterConnection.OR
       .Field = 0
       .Operator = com.sun.star.sheet.FilterOperator.GREATER_EQUAL
       .isNumeric = True
       .NumericValue = 3
'        .StringValue = "Вася"
   End With
   [Фильтр].setFilterFields(Array([Поля]))
   [ДиапазонДанных].refresh()
   [ВидимыйДиапазон]=[Диапазон].queryVisibleCells()
   [Перечисление]=[ВидимыйДиапазон].createEnumeration()
   [Перечисление].nextElement()
   do while [Перечисление].hasMoreElements()
       [ПодДиапазон] = [Перечисление].nextElement()
       [Массив]() = [ПодДиапазон].getDataArray()
       for [Сч] = lBound([Массив]) to uBound([Массив])
           [Массив]([Сч])(0)=[Сч]+1
       next
       [ПодДиапазон].setDataArray([Массив])
   loop    
end sub


На деле, тебе надо только эту часть

   [ВидимыйДиапазон]=[Диапазон].queryVisibleCells()
   [Перечисление]=[ВидимыйДиапазон].createEnumeration()
   [Перечисление].nextElement()
   do while [Перечисление].hasMoreElements()
       [ПодДиапазон] = [Перечисление].nextElement()
       [Массив]() = [ПодДиапазон].getDataArray()
       for [Сч] = lBound([Массив]) to uBound([Массив])
           [Массив]([Сч])(0)=[Сч]+1
       next
       [ПодДиапазон].setDataArray([Массив])
   loop

(33) красава))))

(33) о, спасибо большое! вечерком гляну, щас убегаю