求一个VBA自定义的填充颜色快捷键

fanlishiblcu

目前EXCEL的填充背景色功没有找到很好用的快捷键，大部分的建议是下面这两个：
* Alt+H+H快捷键,但还要用方向键选颜色，步骤太长
* F4重复步骤，缺点是只适用于上一步操作也是颜色填充

也录制过宏，但是只能填充指定的颜色。如下：

Sub color() '
' color Macro
'
' Keyboard Shortcut: Ctrl+m
'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub


想要有个自定义的快捷键：Ctrl+M，能够对选定单元格进行背景色填充。填充颜色取自工具栏里当前选定的背景色。
求路过的大佬给个方案啊，先谢谢了

约定的童话

Ctrl+M，能够对选定单元格进行背景色填充。填充颜色取自工具栏里当前选定的背景色！你这不还是要选啊？！

fanlishiblcu

约定的童话 发表于 2019-12-5 21:52
Ctrl+M，能够对选定单元格进行背景色填充。填充颜色取自工具栏里当前选定的背景色！你这不还是要选啊？！

只需第一次或者后续更改颜色时才需要选，然后就可以一直用ctrl+M快捷填充，比每次都用鼠标点选快得多

summeren

fanlishiblcu 发表于 2019-12-9 13:13
只需第一次或者后续更改颜色时才需要选，然后就可以一直用ctrl+M快捷填充，比每次都用鼠标点选快得多

你可以创建2个宏，第一个宏用于获取颜色值，
colornum = Selection.Interior.color

第二个把这个变量赋值给填充的宏（CTRL+M）就可以了。
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .color = colornum
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With