Как узнать, какие иконки в сортировке

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как узнать, какие иконки в сортировке (Макросы/Sub)

Anat97

Дата: Воскресенье, 06.11.2016, 14:39 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Всем привет! Пользователь делает сортировку по значкам. Я хочу узнать с помощью макроса, какие значки выбрал пользователь. Как это сделать? Я не смог найти и думаю, что это нельзя сделать, но вдруг кто-то найдет способ.

Сообщение отредактировал Anat97 - Воскресенье, 06.11.2016, 14:57

Ответить

Karataev

Дата: Воскресенье, 06.11.2016, 14:51 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

Цитата Anat97, 06.11.2016 в 14:39, в сообщении № 1

Я хочу узнать с помощью макроса, какие значки выбрал пользователь.

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

Ответить

Anat97

Дата: Воскресенье, 06.11.2016, 14:59 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Karataev да Вы правы, я неточно написал. Мне нужна информация только по одной выбранной иконке. Какой набор иконок используется - мне не нужно знать.

Ответить

krosav4ig

Дата: Воскресенье, 06.11.2016, 21:04 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Цитата Anat97, 06.11.2016 в 14:39, в сообщении № 1

Как это сделать?

[vba]

Код

debug.? activesheet.autofilter.filters(НомерСтолбца).criteria1.index

[/vba]выдаст порядковый номер иконки из используемого набора
[vba]

Код

With Selection.FormatConditions
    For i = 1 To .Count
        If TypeOf .Item(i) Is IconSetCondition Then Debug.Print .Item(i).iconSet.ID
    Next
End With

[/vba] выдаст id набора иконок

К сообщению приложен файл: ICON.xlsm (23.3 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Воскресенье, 06.11.2016, 21:17

Ответить

Anat97

Дата: Воскресенье, 06.11.2016, 21:14 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Но у меня вопрос по сортировке, а Вы описываете фильтрацию.
Мне нужно узнать, какую иконоку выбрал пользователь для сортировки. Еще (позднее я подумал) понадобится и знать набор иконок, который выбрал пользователь.
Я хочу провести свою сортировку с помощью макроса, а затем хочу вернуть прежние настройки сортировки обратно. Может быть это будет удобно для пользователя.

Сообщение отредактировал Anat97 - Воскресенье, 06.11.2016, 21:17

Ответить

krosav4ig

Дата: Воскресенье, 06.11.2016, 21:46 | Сообщение № 6

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

с сортировкой почти то же самое

Код

SortField.SortOnValue.Index

выдает порядковый номер иконки (в прямом порядке, возможно нужно будет еще проверять [vba]

Код

IconSetCondition.ReverseOrder

[/vba])

К сообщению приложен файл: 2888535.xlsm (23.7 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Anat97

Дата: Воскресенье, 06.11.2016, 22:03 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Да, спасибо, номер иконки удалось узнать. Теперь нужно узнать номер набора иконок, чтобы можно было сделать так
[vba]

Код

SortField.SetIcon ActiveWorkbook.IconSets(1).Item(3)

[/vba]
Через условное форматирование можно узнать? Посмотреть, какое условное форматирование в столбце? Или можно через объект "SortField" узнать номер набора иконок?