[[20180615140459]]　『VBAを使ってポップアップを出したい。』（あんじゅ）　ページの最後に飛ぶ

『VBAを使ってポップアップを出したい。』（あんじゅ）

はじめて質問させていただきます。

エクセルで資格管理表を作成しています。

エクセルシートを開いた時に、有効期限が半年以内に切れてしまう人をポップアップで表示できるようにしたいと考えています。

条件つき書式で該当者のセルの色が変わるようにはしましたが、ポップアップでも表示されるようにしたいのです。

Ａ列　氏名(A3から入力)
Ｂ列　資格名称(B3から入力)
Ｃ列　有効期限(C3から入力)
をそれぞれ入力しており、
C1 =TODAY()
C列の有効期限日には条件付き書式を（=$C3-180<=TODAY()に当てはまればセルの色を赤にする）設定しています。

似たような質問を見つけたので、自分なりに当てはめてみたのですが、実行時エラーが出てしまいお手上げ状態です。

VBAは全くの初心者ですので、お分かりになる方がいらっしゃいましたら御力添えをお願いできたらなと思います。
よろしくお願いします。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 こんなのをThisWorkbookモジュールに貼り付けて置けばいいんじゃないですか？
 ↓

 Private Sub Workbook_Open()
     Dim Wsh As Worksheet
     Dim cel As Range
     Dim msg
     Dim daysLeft As Long
     Set Wsh = Sheets("資格管理表")

     For Each cel In Wsh.Range("C3:C10000").SpecialCells(xlCellTypeConstants, 1)

         daysLeft = cel.Value - Date
         If daysLeft <= 180 Then
             msg = msg & cel(1, -1).Value & "さん " & cel(1, 0).Value & _
                  Format(cel(1, 1).Value, "  ge.m.d (あと") & daysLeft & "日)" & vbCrLf
         End If
     Next

     MsgBox msg
 End Sub

（半平太） 2018/06/15(金) 16:15

コメント返信：

[ 一覧(最新更新順) ]

[[20180615140459]] 『VBAを使ってポップアップを出したい。』（あんじゅ） ページの最後に飛ぶ

[[20180615140459]]　『VBAを使ってポップアップを出したい。』（あんじゅ）　ページの最後に飛ぶ