Re: [算表] 日期提醒VBA的取消條件
看著代碼改的 未測試~
※ 引述《xemerald ()》之銘言：
: 軟體: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 <> "" And [A10]<>[A11] Then MsgBox Title1 & holiday2
: holiday2 = ""
: End Sub
: 現在假設我想要新增一個條件，
: 假Reminder裡面A10=A11
: 則此打開excel的提醒視窗將不會出現
: 請問要怎麼寫才能讓他取消呢...
: 多謝各位><
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.164.51.218
推
02/17 00:09, , 1F
02/17 00:09, 1F
→
02/17 03:49, , 2F
02/17 03:49, 2F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Office 近期熱門文章
PTT數位生活區 即時熱門文章
