物联网软件开发市场价格 VBA判定责任簿是否绽开
送东说念主玫瑰,手多余香,请将著述共享给更多一又友
出手操作是熟谙掌抓EXCEL的最快捷阶梯!
【置顶公众号】概况【设为星标】实时承袭更新不迷途
图片
本期14场销量为13,042,662元,任九投注总额13,450,910元。
2024年有五项世界大赛开战,再加上上半年进行决赛的梦百合杯,本赛季的六项世界大赛,已经有三项有了决赛人选。梦百合杯李轩豪胜党毅飞,衢州烂柯杯辜梓豪对垒申真谞,应氏杯谢科迎战一力辽。中国棋手占据了其中四位,中国围棋的“厚度”优势依旧。世界大赛四强八强的人数和人次也能佐证这一点。
小伙伴们,在骨子责任中未必分需要来判断一个责任簿是否依然绽开,以及操作判断后的后续操作。这个任务使用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函数说:“你就不要和我抢了!”
有哪些函数不错达成隔列乞降
你知说念若何按照背满足概况字体样式来乞降吗?物联网软件开发市场价格
本站仅提供存储就业,整个内容均由用户发布,如发现存害或侵权内容,请点击举报。