摘要： 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%，超过这个比例将停止放大或缩小。
如何利用VBA生成一列不重复的随机整数
如果我们要用VBA生成一列不重复的随机整数，可以用下面的VBA代码。本例可以在A1:A100中产生1-100的不重复随机整数。 Sub RndNumberNoRepeat()Dim TempArr1(99) As Integer, TempArr2(0 To 99, 1 To 1) As IntegerDim RndN
下面给这两个宏指定快捷键，方法如下：
1.单击菜单“工具→宏→宏”，或按Alt F8，打开“宏”对话框。
2.选择宏“ZoomIn”，单击“选项”按钮，在“Ctrl ”右侧的文本框中输入指定的英文字母，如“i”，单击“确定”按钮，然后关闭“宏”对话框。这样，当按快捷键“Ctrl i”时将放大工作表，注意指定快捷键时最好不要与系统快捷键相冲突，如Ctrl O为系统给定的显示“打开”对话框，指定快捷键时就不用“Ctrl O”。
3.用同样的方法给宏“ZoomOut”也指定一个快捷键，如“Ctrl j”，这样，当按快捷键“Ctrl j”时将缩小工作表。
用VBA判断指定的excel文件夹或文件是否存在
有时我们需要用VBA代码判断某个文件夹或文件是否存在，以便进行后续操作。可以用下面的代码来实现这个功能： Public Function FileFolderExists(strFullPath As String) As Boolean On Error GoTo EarlyExitIf Not Dir(strFul
