Исходя из моего опыта работы с Excel 2013, я считаю, что эта функция недоступна через VBA. Тем не менее, вы можете добиться этого с помощью этого макроса AutoHotKey, который я связал с Ctrl+Shift+C как часть примера:
;--------------------------------- header with some global settings
SendMode Input
SetTitleMatchMode, RegEx
;--------------------------------- Hotkeys/Excel only
#IfWinActive - Excel$ ; only in windows contatining "- Excel" in title
^+c::Send !od{Down 2}{Enter}+{Tab 3}
#IfWinActive
Это в основном посылает серию нажатий клавиш для достижения ожидаемого эффекта. Если что-то не работает для вас (например, если у вас есть версия Excel, отличная от английской, поэтому Alt+O, D не открывает окно « Условное форматирование») , повторите приведенную выше последовательность клавиш вручную, и вы легко сможете найти то, что нужно крепления. Если вы не знакомы с AHK, последовательность: Alt+O, D, ↓, ↓, Enter, 3 × (Shift+Tab)
AutoHotKey - ваш друг во многих ситуациях, когда авторы приложений что-то не реализовали.
Редактировать:
Я изменил сочетание клавиш на неиспользуемое.
Я тоже пропустил функциональность, поэтому спасибо, что побудили меня решить эту проблему. Кроме того, удобнее иметь диалоговое окно с одним сочетанием клавиш вместо последовательного по умолчанию.