Outlookの予定をVBAで色分けする方法【初心者向け解決ガイド】

2025.03.052026.01.27

皆さん、こんにちは。今日は、Outlookの予定を色分けして、スケジュール管理をもっと便利にする方法をご紹介します。特に、VBAを使って自動的に色を設定する方法を、初心者の方にもわかりやすくお伝えします。

色分けのメリットと基本的な設定方法
VBAを使って予定に自動的に色を付ける方法
1. VBAとは？
2. 具体的な手順
よくある質問や疑問
1. Q1: VBAのコードを実行する際にエラーが出ます。どうすればいいですか？
2. Q2: 他の条件で色分けしたい場合、どのようにコードを変更すればいいですか？
まとめ

色分けのメリットと基本的な設定方法

Outlookのイメージ

まず、予定を色分けすることで、視覚的にスケジュールを把握しやすくなります。例えば、重要な会議は赤、プライベートな予定は青、といった具合に色を使い分けることで、一目で内容を確認できます。

Outlookで予定に色を付ける基本的な方法は以下の通りです

ここがポイント！

既に入力してある予定を右クリックします。
「分類」をクリックします。
表示される分類項目から該当するものを選択します。

この方法で、手動で予定に色を付けることができます。

VBAを使って予定に自動的に色を付ける方法

手動での色付けも便利ですが、毎回行うのは手間がかかります。そこで、VBAを使って自動的に予定に色を付ける方法をご紹介します。

VBAとは？

VBA（Visual Basic for Applications）は、Microsoft Office製品に組み込まれているプログラミング言語です。これを使うことで、Outlookの操作を自動化することができます。

具体的な手順

1. OutlookでVBAエディターを開くOutlookを起動し、`Alt + F11`キーを押してVBAエディターを開きます。

2. 新しいモジュールを作成するメニューから「挿入」→「標準モジュール」を選択します。

3. コードを入力する以下のコードをコピーして、先ほど作成したモジュールに貼り付けます。

vba

   Sub CategorizeAppointments()

       Dim objNamespace As Outlook.NameSpace

       Dim objFolder As Outlook.Folder

       Dim objAppointment As Outlook.AppointmentItem

       Dim objCategory As Outlook.Category
       ' 名前空間の取得

       Set objNamespace = Application.GetNamespace("MAPI")

       ' 予定表フォルダの取得

       Set objFolder = objNamespace.GetDefaultFolder(olFolderCalendar)
       ' 予定表内の各アイテムを確認

       For Each objAppointment In objFolder.Items

           ' ここで条件を設定し、該当する場合にカテゴリを設定

           ' 例: 件名に「会議」が含まれる場合

           If InStr(objAppointment.Subject, "会議") > 0 Then

               ' "会議" というカテゴリが存在しない場合は作成

               On Error Resume Next

               Set objCategory = Application.Session.Categories("会議")

               If objCategory Is Nothing Then

                   Set objCategory = Application.Session.Categories.Add("会議", olCategoryColorRed)

               End If

               On Error GoTo 0
               ' 予定にカテゴリを設定

               objAppointment.Categories = "会議"

               objAppointment.Save

           End If

       Next objAppointment

' オブジェクトの解放 Set objAppointment = Nothing Set objFolder = Nothing Set objNamespace = Nothing End Sub

4. コードの実行`F5`キーを押して、コードを実行します。

このコードは、予定表内のすべての予定を確認し、件名に「会議」という文字が含まれている場合に、「会議」というカテゴリを設定します。もし「会議」というカテゴリが存在しない場合は、赤色のカテゴリとして新しく作成します。

よくある質問や疑問

Q1: VBAのコードを実行する際にエラーが出ます。どうすればいいですか？

エラーが出る場合、コード内のスペルミスや構文エラーが考えられます。もう一度コードを確認してください。また、Outlookのセキュリティ設定でマクロが無効になっている可能性もありますので、設定を確認してください。

Q2: 他の条件で色分けしたい場合、どのようにコードを変更すればいいですか？

`If InStr(objAppointment.Subject, “会議”) > 0 Then`の部分を変更することで、別の条件を設定できます。例えば、開始時間や場所など、他のプロパティを条件にすることも可能です。

まとめ

Outlookの予定を色分けすることで、スケジュール管理がより効率的になります。VBAを使って自動化することで、手間を省き、ミスを減らすことができます。ぜひ試してみてください。他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。