excel用快捷键放大和缩小工作表

Excel函数 2023-01-13

Excel中的许多命令都可以使用快捷键来完成，但仍然有一些命令没有指定快捷键。例如在“常用”工具栏中的“显示比例”命令。我们可以用下面的VBA代码来实现用快捷键调整工作表显示比例，将下列代码输入到标准模块中：

Sub ZoomIn()
Dim ZP As Integer
ZP = Int(ActiveWindow.Zoom * 1.1)
If ZP > 400 Then ZP = 400
ActiveWindow.Zoom = ZP
End Sub

Sub ZoomOut()
Dim ZP As Integer
ZP = Int(ActiveWindow.Zoom * 0.9)
If ZP < 10 Then ZP = 10
ActiveWindow.Zoom = ZP
End Sub

每执行一次上述代码，ZoomIn()可以将当前工作表的显示比例放大10%，ZoomOut()可以将当前工作表的显示比例缩小10%，需要说明的是Excel只允许将显示比例最大调整到400%，最小到10%，超过这个比例将停止放大或缩小。

下面给这两个宏指定快捷键，方法如下：

1.单击菜单“工具→宏→宏”，或按Alt+F8，打开“宏”对话框。

2.选择宏“ZoomIn”，单击“选项”按钮，在“Ctrl+”右侧的文本框中输入指定的英文字母，如“i”，单击“确定”按钮，然后关闭“宏”对话框。这样，当按快捷键“Ctrl+i”时将放大工作表，注意指定快捷键时最好不要与系统快捷键相冲突，如Ctrl+O为系统给定的显示“打开”对话框，指定快捷键时就不用“Ctrl+O”。

3.用同样的方法给宏“ZoomOut”也指定一个快捷键，如“Ctrl+j”，这样，当按快捷键“Ctrl+j”时将缩小工作表。

上一篇：利用VBA批量添加邮件链接下一篇：如何利用VBA生成一列不重复的随机整数

excel用快捷键放大和缩小工作表

热门文章

最新文章

标签列表