摘要： 如果要判断一个指定的工作簿是否打开，可以将下面的VBA代码放入标准模块中，然后在子过程中进行调用。
Function IsWkbOpened(sWkbName As String) As Boolean
‘如果目标工作簿已打开则返回TRUE，否则返回FALSE
Dim i As Long
exel单击单元格时运行一个指定的宏
我们可以用一个常规的方法来实现当单击某个单元格时运行一个指定的宏。方法如下： 1.选择一个单元格，按住Shift键的同时，单击菜单“编辑→复制图片”，在弹出的“复制图片”对话框中，“外观”选择“如屏幕所示”，&ld
For i = Workbooks.Count To 1 Step -1
If Workbooks(i).Name = sWkbName Then
Exit For
End If
Next
‘如果工作簿未找到
If i = 0 Then
IsWkbOpened = False
Else
IsWkbOpened = True
End If
End Function
调用示例如下，将“Book2.xls”换成指定的工作簿名称：
Sub IfWkbOpened()
If IsWkbOpened("Book2.xls") Then
MsgBox "指定的工作簿已打开"
Else
MsgBox "指定的工作簿没有打开"
End If
End Sub
excel用VBA删除空行和空列
在Excel中删除空行和空列的方法有很多，下面的方法是用VBA代码来删除工作表指定区域中的空行和空列： Option Explicit Sub Delete_Empty_Rows()Dim rnArea As RangeDim lnLastRow As Long, i As Long, j As Long Applic
