ExcelのVBAは、単純処理が日¥外にも重宝します。マクロで記録するとソースがシンプルではないので、記述したほうが賢明です。そしてショートカット登録もVBAで記述すると整理しやすいです。
■時刻の加算処理のデフォルトは24時間でリセットされてしまいますが、リセットさせないためには表記を h:mm から [h]:mm に変更する必要があります。
-----------------
' 24時間でのリセットを無効に
Sub 時間リセット無効()
Dim selectedRange As Range
Set selectedRange = Selection
selectedRange.NumberFormat = "[h]:mm"
End Sub
-----------------■比率表記の % は整数なので必要に応じて小数点以下を表記したい場合は表記を 0% から 0.0% に変更する必要があります。
-----------------
' 少数1桁までの%表記に
Sub 少数桁表記()
Dim selectedRange As Range
Set selectedRange = Selection
selectedRange.NumberFormat = "0.0%"
End Sub
-----------------■フォントの変更
-----------------
' メイリオに変更
Sub メイリオ()
Dim selectedRange As Range
Set selectedRange = Selection
selectedRange.Font.Name = "メイリオ"
End Sub
-----------------■フォントの色替え
-----------------
' フォントを赤に変更（その1）
Sub フォントを赤に()
Selection.Font.Color = vbRed
' vbBlack: 黒 vbBlue: 青 vbCyan: シアン
' vbGreen: 緑 vbMagenta: マゼンタ
' vbRed: 赤 vbWhite: 白 vbYellow: 黄
End Sub
-----------------■フォントの色替え（RGB指定）
-----------------
' フォントを赤に変更（その２）
Sub フォントを赤に()
Selection.Font.Color = RGB(255, 0, 0) ' 赤色
End Sub
' （その２）で指定した方が
' テーマカラーの切り替えに連動しないので合理的です
-----------------
vbRed等はOfficeのカラーパレットの標準色がベースです。Accent1〜6はカラーパレットのテーマ色で上図右の左から1〜6となっています。
また .TintAndShadeは -1から 1までの値で指定します。以下のコメント部分を参照。
■セルを塗り潰し
-----------------
-----------------
' 塗りを薄い青に変更（その1）
Sub 塗りを水色に()
With Selection.Interior
' ここでテーマカラーを指定します
' Accent1〜6
.ThemeColor = xlThemeColorAccent1
' 0.5は明るくする値です。
' -1（完全な黒）
' -0.9（90%暗く）〜-0.1（10%暗く）
' 0（本来の色）
' 0.1（10%明るく）〜0.9（90%明るく）
' 1（完全な白）
.TintAndShade = 0.7
End With
End Sub
-----------------■セルを塗り潰し（RGB指定）
-----------------
' 塗りを薄い青に変更（その２）
Sub 塗りを水色に()
With Selection.Interior
' ここでテーマカラーを指定します
Selection.Interior.Color = RGB(163, 217, 240) ' 水色
End With
End Sub
' （その２）で指定した方が
' テーマカラーの切り替えに連動しないので合理的です
-----------------最初にコレを実行してから個々のVBAをショートカットで実行します。今回のサンのプルでは「セルを塗り潰し」と「フォントを赤に変更」を2種類記述していますが、実際に利用するときはどちらか1つとしてください。同じ名前の重複はトラブルの元です。
-----------------
-----------------Sub ショートカット有効()
Application.OnKey "^+A", "時間リセット無効"
Application.OnKey "^+C", "少数桁表記"
Application.OnKey "^+D", "メイリオ"
Application.OnKey "^+E", "フォントを赤に"
Application.OnKey "^+G", "塗りを水色"
End Sub
' Ctrl + Shift + Aで「時間リセット無効」を実行
' Ctrl + Shift + Cで「少数桁表記」を実行
' Ctrl + Shift + Dで「メイリオ」を実行
' Ctrl + Shift + Eで「フォントを赤に」を実行
' Ctrl + Shift + Gで「塗りを水色に」を実行
' Shiftキー + (正符号)
' Control（Ctrl）キー ^ (カレット)
' Alt キー % (パーセント記号)
' command * (アスタリスク)※ Excel 2011のみ
' macOS版でもShift、Controlだけを使った方が賢明です
ショートカットキーの登録は重複しないようにします。今回の例はmacOS上で処理していますので以下がダメでしたが、
Ctrl + Shift + B Ctrl + Shift + F
Windowsだと以下がダメでした。
Ctrl + Shift + F Ctrl + Shift + G
Officeに限らず他のツールとの関係もあるので個々の環境で異なります。
なお、冒頭のSubで始まるVBAの名称に日本語は使えますが、全角の英数字が混在しているとエラーになります。
