用快捷键给excel单元格着色

为了避免频繁的鼠标和键盘之间的切换，所以参考了网上的方法。

遇见问题 1 https://zhidao.baidu.com/question/137331184366987605.html

遇建问题2 https://jingyan.baidu.com/article/ca41422f121c771eaf99ed10.html

录制宏之后，文件类型也应当发生改变，  改成了 .xlsm

Sub 单元格着色()
'
' 单元格着色 宏
'
' 快捷键: Ctrl+q
'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -4.99893185216834E-02
        .PatternTintAndShade = 0
    End With
End Sub