Как запрограммировать горячие клавиши для реализации определенного формата ячейки в Excel

Question

Я хочу отформатировать ячейку с помощью горячей клавиши для номера.

Например, Shift + Ctrl + 1 форматируетячейка с 3621, как это: «3621,00» Я хочу назначить горячую клавишу (например, Shift + Ctrl + W ) для форматирования ячейки с 3621 для просмотракак этот "3621" без десятичных знаков.

В настоящее время я должен сделать Shift + Ctrl + 1 затем Alt + H + 9 дважды, чтобы получить число через запятую без десятичных дробей.

Пока что любой поиск, который я выполнял, в основном просто показывал, как построить макрос для выполнения этого в VBA, а это не решение, которое я ищу.

Я просто хочу назначить свой собственныйнабор из трех горячих клавиш для получения желаемого формата.Я бы даже хорошо переназначил Shift + Ctrl + 1 , чтобы просто отбрасывать десятичные дроби, если это возможно.

Answer 1

Поместите их в общий кодовый лист модуля ( Alt + F11 , Alt + I , M ) и запустите asignCSWhotkey.

При нажатии Ctrl + Shift + W текущая выбранная ячейка или ячейки будут иметь формат без запятой или числа запятых тысяч.

Sub asignCSWhotkey()

    Application.MacroOptions Macro:="zeroDecCommaThou", _
                             Description:="No decimals with comma thousands separator.", _
                             ShortcutKey:="W"

End Sub

Sub zeroDecCommaThou()

    Selection.NumberFormat = "#,###0"

End Sub

Предполагается, что никакая другая подпроцедура не была назначена последовательности Ctrl + Shift + W .Если один из них уже был назначен, эту горячую клавишу следует сначала удалить.