excel2013设置字体颜色快捷键

工具栏----VIEW----Macros-Recording Mecro

弹出录制新宏窗口，宏名不要动，在快捷键哪里设置你想要的快捷键，尽量不要设置和系统冲突的快捷键，比如CTRL+C等,这里我们设置成ctrl+q。然后点确定，
接着点停止录制。按ALT+F11，进入VBE，在左上角找到模块，点前面的+号，点开后，出现模块1，能在右边的看到这样的代码：
Sub Macro1()
'
' Macro2 Macro
'
' 快捷键: Ctrl+q
'
End Sub

将这样的代码改成：
Sub Macro1()
'
' Macro2 Macro
'
' 快捷键: Ctrl+q
'
    With Selection.Font
        .Color = vbRed
    End With
End Sub

保存。然后关闭VBE。回到Excel界面，点任意单元格,按ctrl+q试试。。
是不是字体变红了。。