请问如何更正这个宏？

※矾风※ · 发表于 2018-7-19 00:33

本帖最后由 ※矾风※ 于 2018-7-19 12:35 编辑

如9/30号为星期天，但是上班的（b列显示）。理应执行取消关机（不执行rng）。但是为什么依然会执行自动关机呢？请问如何修改？

Private Sub Workbook_Open()

Dim RNG, RNG2
Set RNG = [A1:A100].Find(Date, LookIn:=xlValues)‘’法定假期
Set RNG2 = [B1:B100].Find(Date, LookIn:=xlValues)‘上班’
If Not RNG Is Nothing Or Application.Weekday(Date, 2) = 6 Or Application.Weekday(Date, 2) = 7 Then Shell ("Shutdown.exe -s -t 1800")
If Not RNG2 Is Nothing Then Shell ("Shutdown.exe -a")
Set RNG = Nothing
Set RNG2 = Nothing

End Sub

liulang0808 · 发表于 2018-7-19 07:39

楼主看看find是否找到结果啊

506981919 · 发表于 2018-7-19 08:49

本帖最后由 506981919 于 2018-7-19 08:52 编辑

liulang0808 发表于 2018-7-19 07:39
楼主看看find是否找到结果啊

我试了。2018/9/30是星期日。B
列有这日期。按两次才是取消关机。应该如何纠正呢

506981919 · 发表于 2018-7-19 08:51

9月30号那天。按一出现关机。按第二次有可能是取消关机

※矾风※ · 发表于 2018-7-19 12:28

liulang0808 发表于 2018-7-19 07:39
楼主看看find是否找到结果啊

不明白？能说详细点吗？

※矾风※ · 发表于 2018-7-19 12:30

请教大侠们，这语句应该怎么纠正呢？或用其他办法

liulang0808 · 发表于 2018-7-19 13:04

※矾风※ 发表于 2018-7-19 12:30
请教大侠们，这语句应该怎么纠正呢？或用其他办法

请楼主上传附件，

※矾风※ · 发表于 2018-7-19 23:32

liulang0808 发表于 2018-7-19 13:04
请楼主上传附件，

已上传文件

※矾风※ · 发表于 2018-7-20 19:09

liulang0808 发表于 2018-7-19 13:04
请楼主上传附件，

逐语句测试是没问题，但用到 Private Sub Workbook_Open()就不行了

		自动登录	找回密码
密码			免费注册

[求助] 请问如何更正这个宏？