軟體:excel
版本:2003
Private Sub Workbook_Open()
Title1 = "○●例假日提醒●○" & vbNewLine & vbNewLine
Alarmday = Range("Options!G6")
For J1 = 5 To Sheets("Reminder").[Reminder!B65536].End(xlUp).Row
If Range("Reminder!B" & J1) <> "" Then i1 = DateDiff("D", Format(Now(),
"M/D"), Range("Reminder!B" & J1)) Else GoTo EndJ1
If i1 >= 0 And i1 <= Alarmday Then
If i1 = 0 Then holiday1 = "今天是 " Else holiday1 = "還有 " & i1 & " 天是 "
holiday2 = holiday2 & holiday1 & "「" & Sheets("Reminder").Range("C" & J1) & "
」" & vbNewLine
End If
Next
EndJ1:
If holiday2 <> "" Then MsgBox Title1 & holiday2
holiday2 = ""
End Sub
現在假設我想要新增一個條件，
假Reminder裡面A10=A11
則此打開excel的提醒視窗將不會出現
請問要怎麼寫才能讓他取消呢...
多謝各位><
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.44.111.197