Excel Sort

[HWorld]

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

Sheet.Range( 'A1:Z30' ).Sort;

[Yoil]

Дык надо, наверное, указать, по какому столбцу сортировать... (как - не знаю)

[HWorld]

в хелпе этот параметр не обязательный...

[Yoil]

Ну да, если бы был рендж 'A1:A30', то, наверное, необязательный

[Dzemon]

А какая ошибка возникает?

[HWorld]

ключем по умолчанию выбирается первый столбец... если кто-то сталкивался с сортировкой то помогите...(to Дуд: а гипотетические предположения по поводу того что я камень мне не нужны.... это я и так знаю...

to Dzemon: вызов метода sort класса Range неудачен.

[Yoil]

Чесслово, вот указал я ключик, и заработало оно.
Sheet.Range('A1:Z30').Sort(Sheet.Range('A1'));

[Dzemon]

Я думаю ошибка в выборе подтипа переменной Automation, т.е. не тот объект Екселя подставлен. Проверьте как инициализируются эти переменные.

[HWorld]

а теперь из 10 строк попробуй отсортировать таким способом только 5 строк в центре... не поверишь но он у меня сортирует всёравно все 10... я даже немогу понять как... скоро начну грызть угол стола... непойму где я туплю...

Sheet.Range( 'A10:I50' ).Sort( Sheet.Range( 'A10' ) );


Function Sort(
[Key1],
[Order1 As XlSortOrder = xlAscending],
[Key2],
[Type],
[Order2 As XlSortOrder = xlAscending],
[Key3],
[Order3 As XlSortOrder = xlAscending],
[Header As XlYesNoGuess = xlNo],
[OrderCustom],
[MatchCase],
[Orientation As XlSortOrientation = xlSortRows],
[SortMethod As XlSortMethod = xlPinYin],
[DataOption1 As XlSortDataOption = xlSortNormal],
[DataOption2 As XlSortDataOption = xlSortNormal],
[DataOption3 As XlSortDataOption = xlSortNormal])


там таблица... а в 7-9 строка есть шапка таблицы... так вот при сортировке шапка тоже сортируется и улетает в середину...

[HWorld]

если ктонить работал с сортировкой из навижена поможите плиз... а то у стола углы кончились.. скоро примусь за дверь...


там мне ещё нужно по 2м столбца сортировать... это вообще смерть

[HWorld]

теперь ещё одна веселуха...


Sheet.Range( 'A30:I50' ).Subtotal( 2, -4157, 3, TRUE, FALSE);

из хелпы VB

Function Subtotal(GroupBy As Long,
Function As XlConsolidationFunction,
TotalList,
[Replace],
[PageBreaks],
[SummaryBelowData As XlSummaryRow = xlSummaryBelow])
пример:
Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(2, 3)


один из параметров где стоит цифра 3 (TotalList).... должен быть массивом...
можно ли передать в этот параметр статично или как угодно... набор а не единственное число?????
оч надо...

[Jackal1]

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

[Polar_imported]

Да не работает эта хрень в екселе, сортируйте макросом.

делаешь шаблон екселевский. в нем макрос пишешь как хочешь на родном VB.
в него передаешь параметры для range , что сортировать хочешь.

из навижина Excel.Run(STRSUBSTNO('macros %1 %2....', param1, param2...));

Excel Automation 'Microsoft Excel 11.0 Object Library'.Application :beta:

вот так примерно в макросе можно написать


Dim tr As Range

Set tr = Range("A" + stRow + ":" + col + endRow)
tr.Sort Key1:=Range("G" + stRow), Order1:=xlAscending, Key2:=Range( _
"B" + stRow), Order2:=xlAscending

[Jackal1]

Хорошо, макрос так макрос, но меня не устраивает использование шаблонов.
Можно ли из Навика СОЗДАТЬ макрос в Excel?
И если можно то как это сделать.

[Polar_imported]

И чем же не устраивает использование шаблонов?

[Jackal1]

Задача так поставлена, нельзя шаблоны использовать

[Polar_imported]

Цитата:

Сообщение от Jackal

Задача так поставлена, нельзя шаблоны использовать 

<{POST_SNAPBACK}>

вспомнился пример из книжки:

- Не хватает опилок.
- А зачем вам опилки?
- Пол скользкий. Посыпаем.
- А почему пол скользкий?
- Масло с трубы капает.
- А почему масло с трубы капает?
- Сальник испортился.

- Так может сальник поменять?

P.S. А зачем вам сортировка в экселе?

[Jackal1]

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

Поэтому гараздо проще уже заполненай экселевский документ отсортировать в нужном порядке

[Jackal1]

Решение задачи

XlRange := XlWorkSheet.Cells;
XlRange := XlRange.Range('A7:I20');
XlRange.Sort(XlRange.Cells.Item(SortColNum));

Где:
SortColNum - номер колонки по которой сортировать начиная с 1
XlRange - Automation

[Yakuza]

Цитата:

Сообщение от Дуд

Чесслово, вот указал я ключик, и заработало оно.
Sheet.Range('A1:Z30').Sort(Sheet.Range('A1'));

Поднимаю старую тему... А как в таком примере отсортировать не по возрастанию, а по убыванию ?