首页 > 解决方案 > 从热键运行 VBA 宏

问题描述

我有这个宏来格式化我的 Excel 工作表。它会更改顶行的颜色并添加过滤器、冻结窗格等。

我有一个将其保存到的个人工作簿,因此我可以在打开的任何 Excel 文件中使用它。

如果我从开发人员选项卡运行宏,它会起作用。如果我尝试使用热键运行它,它不起作用。

当我使用热键时唯一有效的是它会在第一行添加一个过滤器。

Sub FormatSheet()
'
' FormatSheet Macro
'
' Keyboard Shortcut: Ctrl+Shift+L

Worksheets(1).Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorDark1
    .TintAndShade = -0.349986266670736
    .PatternTintAndShade = 0
End With
Selection.AutoFilter
With ActiveWindow
    .SplitColumn = 0
    .SplitRow = 1
End With
ActiveWindow.FreezePanes = True
Cells.Select
With Selection
    .HorizontalAlignment = xlLeft
    .VerticalAlignment = xlBottom
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
End With
Cells.EntireColumn.AutoFit

End Sub

标签: excelvbahotkeys

解决方案


你设置热键了吗?打开你的宏(Alt+f8)去选项(那个宏)并设置你的ctrl+shift+L。此外,命名模块会删除所有热键功能。


推荐阅读