特定の日付にポップアップを表示させるには？ (ID:121176)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 リーマン同士がんばりましょう。 Private Sub Form_Load() Dim NowDate As Date Dim TargetDate As Date Dim intDay As Integer NowDate = Format(Date, "yyyy/mm/dd") TargetDate = "2005/05/05" 'とりあえず固定指定 intDay = DateDiff("d", NowDate, TargetDate) Select Case intDay Case 7: MsgBox "一週間前です" Case 3: MsgBox "三日前です" Case 0: MsgBox "当日です" Case Else: MsgBox CStr(intDay) & "日前です" '参考までに End Select Unload Me End Sub EXEをスタートアップに作ればWin起動時に自動で動いてくれます