按 CTRL+S 将在工作表上执行宏

Question

在 Excel VBA 中

我只想要一个简单的条件代码，如果用户按下快捷键 Ctrl+S，这将执行

Cells.EntireColumn.AutoFit

谢谢你 我只知道这段代码，但我不知道还能用什么来执行我的目标

简单的 Cells.EntireColumn.AutoFit 代码

Answer 1

使用

Workbook_BeforeSave

事件。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cells.EntireColumn.AutoFit
End Sub