りん最新番号 VBA判定责任簿是否开放
送东谈主玫瑰，手多余香，请将著述共享给更多一又友
动手操作是熟习掌抓EXCEL的最快捷路线！
【置顶公众号】约略【设为星标】实时汲取更新不迷途
图片
小伙伴们，在骨子责任中偶而刻需要来判断一个责任簿是否也曾开放，以及操作判断后的后续操作。这个任务使用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函数说：“你就不要和我抢了！”
有哪些函数不错收尾隔列乞降
你知谈若何按照背舒心约略字体颜料来乞降吗？りん最新番号
本站仅提供存储劳动，系数内容均由用户发布，如发现存害或侵权内容，请点击举报。