送东说念主玫瑰，手多余香，请将著作共享给更多一又友

动手操作是熟习掌抓EXCEL的最快捷路线！

AV小次郎

【置顶公众号】大概【设为星标】实时摄取更新不迷途

图片

小伙伴们，在骨子责任中偶而辰需要来判断一个责任簿是否也曾翻开，以及操作判断后的后续操作。这个任务使用VBA门径不错应答的完成。甚而，还不错将代码封装为函数，在以后需要使用时不错随时调出使用。

今天这篇帖子，将先容两种最为常用的判断门径。

01

遍历法

判断责任簿是否翻开，其实只需要轮回判断责任簿的称号是否等于指定的称号。

图片

完满代码如下：高中 自拍偷拍

Sub 判定责任簿是翻开()    Dim 责任簿称号 As String， wbk As Workbook    Dim isopen As String    isopen = "未翻开"    责任簿称号 = "ABC.xlsx"    For Each wbk In Workbooks        If wbk.Name = 责任簿称号 Then            isopen = "翻开"        End If    Next    MsgBox (责任簿称号 & " " & isopen)    End Sub

第6-10行代码：关于责任簿聚积中的每一个翻开的责任簿，只有其称号等于指定的称号“ABC.xlsx”，就对变量isopen赋值“翻开”。

02

空虚判断

期骗空虚判断法，不需要遍历现时应用门径中一说念责任簿即可赶走判断责任簿是否也曾翻开。

图片

完满代码如下：

Dim wbkname As StringFunction WBKopen(wbkname) As Boolean    Dim wbk As Workbook    Dim isopen As Boolean    On Error Resume Next    Err.Clear    Set wbk = Workbooks(wbkname)    If Err.Number = 0 Then        isopen = True    Else        isopen = False    End If    WBKopen = isopenEnd FunctionSub 判定责任簿是翻开1()    wbkname = "ABC.xlsx"    If WBKopen(wbkname) Then        MsgBox (wbkname & "已翻开")    Else        MsgBox (wbkname & "未翻开")    End IfEnd Sub

第2-14行代码：最初作念了一个绵薄函数封装。当第8行代码中空虚值的编号等于0时，标明这张责任簿是翻开的状况。并凭证Err.number的值来对变量isopen区别赋值。

第16-22行代码：判断责任簿是否翻开，并通过音信框输出信息。

事际上，咱们不成能判断后只是将服从传递给Msgbox。事际责任中还不错区别用2组不同的代码来替代Msgbox，一组现实翻开时的后续操作；另一组现实未翻开时的后续操作。

本期内容锻真金不怕火文献索求容貌：

聚合：https://pan.baidu.com/s/1F_lFKSFzgfYYwBstn7QMKQ?pwd=gpul

索求码：gpul

好了一又友们，今天和群众共享的内容即是这些了！心爱我的著作请共享、转发、点赞和保藏吧！如有任何问题不错随时私信我哦！

-END-

长按下方二维码体恤EXCEL应用之家

濒临EXCEL操作问题时不再漆黑无助

我就知说念你“在看”

推选阅读

碰到贫乏莫躁急，偶而辰管制它只是只需一列扶助列！

VLOOKUP vs INDEX+MATCH组合，绵薄才更好

逻辑绵薄题目不难，IF函数说：“你就不要和我抢了！”

有哪些函数不错赶走隔列乞降

你知说念怎么按照背闲散大概字体情态来乞降吗？高中 自拍偷拍

本站仅提供存储就业，系数内容均由用户发布，如发现存害或侵权内容，请点击举报。