[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『VBAを使ってポップアップを出したい。』(あんじゅ)
はじめて質問させていただきます。
エクセルで資格管理表を作成しています。
エクセルシートを開いた時に、有効期限が半年以内に切れてしまう人をポップアップで表示できるようにしたいと考えています。
条件つき書式で該当者のセルの色が変わるようにはしましたが、ポップアップでも表示されるようにしたいのです。
A列 氏名(A3から入力)
B列 資格名称(B3から入力)
C列 有効期限(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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.