Excel VBAを用いた社内コンペティション結果発表日のリマインダー作成方法

この記事では、Excel VBAを使用して社内コンペティションの結果発表日を自動でリマインドする方法を詳しく説明します。初心者でも理解しやすいように具体的なコード例、その詳細な解説、さらなる応用例を含めて紹介します。

Excel VBAの基本

Excel VBA（Visual Basic for Applications）は、Microsoft Excelに組み込まれたプログラミング言語です。これを用いると、単純作業の自動化だけでなく、高度なデータ分析やレポート作成も可能になります。

そもそも、どこにVBAコードを書いて、どう実行すれば良いのか分からない場合は、以下の記事をご参照ください。

基本的なコードの作成

まず、Excel VBAを用いて結果発表日のリマインダーを設定する基本的なコードを紹介します。


Sub SetReminder()
    Dim ws As Worksheet
    Dim reminderDate As Date
    
    ' ワークシートの設定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 発表日の取得
    reminderDate = ws.Range("A1").Value
    
    ' リマインダーの設定
    If Now() <= reminderDate Then
        MsgBox "今日は社内コンペティションの結果発表日です！", vbInformation, "リマインダー"
    End If
End Sub

Sub SetReminder()

Dim ws As Worksheet

Dim reminderDate As Date

' ワークシートの設定

Set ws = ThisWorkbook.Sheets("Sheet1")

' 発表日の取得

reminderDate = ws.Range("A1").Value

' リマインダーの設定

If Now() <= reminderDate Then

MsgBox "今日は社内コンペティションの結果発表日です！", vbInformation, "リマインダー"

End If

End Sub

コードの詳細解説

上記のコードは、以下の手順で動作します：

1. Sheet1のA1セルに設定された結果発表日を取得します。
2. 現在の日付と発表日を比較します。
3. もし現在の日付が発表日であれば、メッセージボックスでリマインダーを表示します。

応用例

1. 結果発表日が近づくと毎日リマインド

発表日の3日前からリマインドする機能を追加します。


Sub AdvancedReminder1()
    Dim ws As Worksheet
    Dim reminderDate As Date
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    reminderDate = ws.Range("A1").Value
    
    If Now() >= (reminderDate - 3) And Now() <= reminderDate Then
        MsgBox "社内コンペティションの結果発表日まであと" & (reminderDate - Now()) & "日です！", vbInformation, "リマインダー"
    End If
End Sub

Sub AdvancedReminder1()

Dim ws As Worksheet

Dim reminderDate As Date

Set ws = ThisWorkbook.Sheets("Sheet1")

reminderDate = ws.Range("A1").Value

If Now() >= (reminderDate - 3) And Now() <= reminderDate Then

MsgBox "社内コンペティションの結果発表日まであと" & (reminderDate - Now()) & "日です！", vbInformation, "リマインダー"

End If

End Sub

2. さまざまなリマインダーメッセージ

結果発表日の近さに応じて異なるメッセージを表示します。


Sub AdvancedReminder2()
    Dim ws As Worksheet
    Dim reminderDate As Date
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    reminderDate = ws.Range("A1").Value
    
    If Now() = reminderDate Then
        MsgBox "今日は社内コンペティションの結果発表日です！", vbInformation, "リマインダー"
    ElseIf Now() = (reminderDate - 1) Then
        MsgBox "結果発表日まであと1日です！", vbInformation, "リマインダー"
    ElseIf Now() = (reminderDate - 2) Then
        MsgBox "結果発表日まであと2日です！", vbInformation, "リマインダー"
    End If
End Sub

Sub AdvancedReminder2()

Dim ws As Worksheet

Dim reminderDate As Date

Set ws = ThisWorkbook.Sheets("Sheet1")

reminderDate = ws.Range("A1").Value

If Now() = reminderDate Then

MsgBox "今日は社内コンペティションの結果発表日です！", vbInformation, "リマインダー"

ElseIf Now() = (reminderDate - 1) Then

MsgBox "結果発表日まであと1日です！", vbInformation, "リマインダー"

ElseIf Now() = (reminderDate - 2) Then

MsgBox "結果発表日まであと2日です！", vbInformation, "リマインダー"

End If

End Sub

3. リマインダーの停止オプションの追加

毎回のリマインダー表示時に、これ以上のリマインドを希望しない場合のオプションを追加します。


Sub AdvancedReminder3()
    Dim ws As Worksheet
    Dim reminderDate As Date
    Dim response As VbMsgBoxResult
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    reminderDate = ws.Range("A1").Value
    
    If Now() = reminderDate Then
        response = MsgBox("今日は社内コンペティションの結果発表日です！" &amp; vbCrLf &amp; "これ以上のリマインドは希望しますか？", vbInformation + vbYesNo, "リマインダー")
        If response = vbNo Then Exit Sub
    End If
End Sub

Sub AdvancedReminder3()

Dim ws As Worksheet

Dim reminderDate As Date

Dim response As VbMsgBoxResult

Set ws = ThisWorkbook.Sheets("Sheet1")

reminderDate = ws.Range("A1").Value

If Now() = reminderDate Then

response = MsgBox("今日は社内コンペティションの結果発表日です！" & vbCrLf & "これ以上のリマインドは希望しますか？", vbInformation + vbYesNo, "リマインダー")

If response = vbNo Then Exit Sub

End If

End Sub

まとめ

Excel VBAを用いれば、社内コンペティションの結果発表日を効果的にリマインドすることができます。上記のコードを利用することで、結果発表日のリマインドだけでなく、様々な条件下でのリマインドも実現できます。VBAの機能を最大限に活用して、日常業務の効率化を図りましょう。

VBAも良いけどパワークエリも良い

VBAの解説をしてきましたが、VBAは正直煩雑でメンテナンス性が悪いです。最近はモダンExcelと呼ばれるパワークエリやパワーピボットへのシフトが進んできています。本サイトでもパワークエリの特集をしており、サンプルデータを含む全11回の学習コンテンツでパワークエリを習得することができます。

クリックするとパワークエリの全11講座が表示されます。

パワーピボットの記事はありません。興味がある場合は、書籍で学んでみてください

『Excel パワークエリ』+『Excelパワーピボット』+『Excel パワーピボット DAX編』-Excel自動化強化専門書- 3冊セット

created by Rinker

SHOEI

¥8,514 (2023/09/28 13:10:33時点 Amazon調べ-詳細)

Excel VBAを用いた社内コンペティション結果発表日のリマインダー作成方法

Excel VBAの基本

基本的なコードの作成

コードの詳細解説

応用例

1. 結果発表日が近づくと毎日リマインド

2. さまざまなリマインダーメッセージ

3. リマインダーの停止オプションの追加

まとめ

VBAも良いけどパワークエリも良い

【初心者向け】パワークエリ入門：ETLツールを使ってエクセルデータを簡単に整形・統合しよう！(1/11)

【実践ガイド】パワークエリでデータ収集：Excel、CSV、PDF、Webデータを簡単に取り込む方法をマスターしよう！(2/11)

【総力特集】パワークエリで列操作をマスター：選択、変更、移動、削除、結合、分割の詳細解説＆実践テクニック！(3/11)

【徹底解説】パワークエリで行操作をマスター！フィルター・保持・削除テクニックと練習用エクセルで実践学習(4/11)

パワークエリでデータクレンジング: 文字列結合、0埋め、テキスト関数をマスター(5/11)

パワークエリで四捨五入、切り捨て、切り上げをマスターする方法（6/11）

パワークエリで効率的なデータグループ化を実現する方法(7/11)

パワークエリで時間と日付の計算をマスター！便利な関数を使って効率アップ(8/11)

パワークエリで条件別集計をマスターする方法(9/11)

Excelパワークエリでクロス集計表とデータベース形式を瞬時に変換する方法(10/11)

Excelパワークエリ入門: 効率的なデータ整理をマスターしよう！(11/11)

コメント

コメントするコメントをキャンセル

Excel VBAを用いた社内コンペティション結果発表日のリマインダー作成方法

Excel VBAの基本

基本的なコードの作成

コードの詳細解説

応用例

1. 結果発表日が近づくと毎日リマインド

2. さまざまなリマインダーメッセージ

3. リマインダーの停止オプションの追加

まとめ

VBAも良いけどパワークエリも良い

【初心者向け】パワークエリ入門：ETLツールを使ってエクセルデータを簡単に整形・統合しよう！(1/11)

【実践ガイド】パワークエリでデータ収集：Excel、CSV、PDF、Webデータを簡単に取り込む方法をマスターしよう！(2/11)

【総力特集】パワークエリで列操作をマスター：選択、変更、移動、削除、結合、分割の詳細解説＆実践テクニック！(3/11)

【徹底解説】パワークエリで行操作をマスター！フィルター・保持・削除テクニックと練習用エクセルで実践学習(4/11)

パワークエリでデータクレンジング: 文字列結合、0埋め、テキスト関数をマスター(5/11)

パワークエリで四捨五入、切り捨て、切り上げをマスターする方法（6/11）

パワークエリで効率的なデータグループ化を実現する方法(7/11)

パワークエリで時間と日付の計算をマスター！便利な関数を使って効率アップ(8/11)

パワークエリで条件別集計をマスターする方法(9/11)

Excelパワークエリでクロス集計表とデータベース形式を瞬時に変換する方法(10/11)

Excelパワークエリ入門: 効率的なデータ整理をマスターしよう！(11/11)

コメント

コメントする コメントをキャンセル

コメントするコメントをキャンセル