twitter 自慰 VBA判定职责簿是否绽放

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

起始操作是熟识掌持EXCEL的最快捷道路！

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

图片

小伙伴们，在践诺职责中有技巧需要来判断一个职责簿是否还是绽放，以及操作判断后的后续操作。这个任务使用VBA纪律不错镇定的完成。以致，还不错将代码封装为函数，在以后需要使用时不错随时调出使用。

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

01

遍历法

判断职责簿是否绽放，其实只需要轮回判断职责簿的称号是否等于指定的称号。

图片

完好代码如下：twitter 自慰

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函数说：“你就不要和我抢了！”

有哪些函数不错已毕隔列乞降

你知说念若何按照背悠然大概字体颜料来乞降吗？twitter 自慰

本站仅提供存储做事，整个内容均由用户发布，如发现存害或侵权内容，请点击举报。