Google, ブログ

Googleカレンダーで休暇を入れたら自動でチャットに通知させる方法

2025年9月28日管理者コメントする

リモートワークやハイブリッドワークが普及する中で、**「自分が有給休暇で不在になることを関係者に自動で伝えたい」**というニーズは高まっています。

Googleカレンダーに休暇を登録するだけで、自動的にMicrosoft TeamsやSlackに通知できれば、わざわざ手動で連絡する必要がなく便利なので上手く使いこなしましょう。

この記事では、Googleカレンダーを使った休暇登録方法と、Teamsなどへの自動通知の仕組みを解説します。

休暇をカレンダーに登録する方法

個人アカウントの場合

通常の「予定」に「有給休暇」「不在」などと入力して登録します。
標準で「不在」タブは表示されません。

Google Workspace（仕事用アカウント）の場合

「予定」「タスク」に加えて 「不在（Out of Office）」タブ が表示されます。
「不在」で登録すると、休暇期間中の会議招待に 自動で辞退返信 できます。

「終日」チェックの使い分け

「時間を追加」を選択すると「終日」というチェックボックスが表示されます。

チェックを入れる → 1日まるごと休暇として登録（一般的な有給に最適）
チェックを外す → 午前休・午後休など、時間帯を指定して登録

👉 まる1日の有給休暇を登録する場合は、「終日」にチェックを入れましょう。

方法1：ゲスト招待で簡単に通知

Googleカレンダーには「ゲスト招待」機能があります。

休暇予定を作成（例：タイトル「有給休暇」）
「ゲストを追加」に同僚のメールアドレスを入力
保存するとゲストに通知メールが自動送信

➡ ただし、この方法では メール通知が中心で、TeamsやSlackには直接連携されません。

方法2：Zapierを使ってTeamsに自動通知

Zapier を使えば、Googleカレンダーの予定をTeamsに自動で投稿できます。

設定手順

Zapier にログインして新しいZapを作成
Trigger（トリガー）：「Google Calendar → New Event」
条件：「タイトルに『休暇』や『有給』を含む場合」
Action（アクション）：「Microsoft Teams → Send Channel Message」
通知先のチームとチャンネルを指定
Zapを保存して有効化

➡ これでGoogleカレンダーに「有給休暇」と登録すると、自動でTeamsに通知されます。

方法3：Power AutomateでTeamsに自動通知

Microsoft 365を利用している場合は、Power Automate での連携もおすすめです。

フロー作成の流れ

Power Automate にアクセス
トリガー：「Google Calendar → イベントの作成時」
条件：「件名に『休暇』『不在』を含む場合」
アクション：「Teams → チャンネルにメッセージを投稿」
保存して有効化

➡ Zapierと同様に、休暇登録が自動でTeamsに通知されます。

どの方法を選ぶべきか？

個人アカウント利用 → 「予定」に休暇を入れてZapierやPower Automateで通知
Google Workspace利用 → 「不在」タブで休暇登録＋Teams通知を自動化
メール通知で十分 → ゲスト招待機能で対応

まとめ

Googleカレンダーを活用すれば、休暇登録と同時に自動でチームに通知できます。

「終日」チェックを使えば、1日まるごとの休暇登録が可能
Workspaceアカウントなら「不在」タブで自動辞退も便利
TeamsやSlackへの通知はZapierやPower Automateで実現

👉 業務効率化だけでなく、休暇中も安心してチームに任せられる環境づくりに役立ちます。

Excel, ブログ

Excelで年間カレンダーを自作する方法｜月間・週間スケジュールにも対応

2025年9月28日管理者コメントする

Excelを使えば、自分専用のカレンダーを簡単に作れます。この記事では、年間・月間・週間の3種類のカレンダーを順に作成し、最後に祝日を自動反映するマクロを組み込みます。

旧バージョン（Excel 2010〜2021）でも動作するよう、関数は基本的なものだけを使用しています。

ステップ1：年間カレンダーを作る

年入力セルを用意
- B1セルに「2025」など西暦年を入力
日付列を生成
- A3セルに次の数式を入力し、365行コピー
  
  =DATE($B$1,1,1)+ROW(A1)-1
曜日を表示
- B3セルに
  
  =TEXT(A3,"aaa")
条件付き書式で土日を色分け
- 土曜：=WEEKDAY($A3,2)=6
- 日曜：=WEEKDAY($A3,2)=7
- 祝日：=COUNTIF(祝日!$A:$A,$A3)>0

ステップ2：月間カレンダーを作る

入力セル
- B1=年、D1=月
月初を算出
- B3セルに
  
  =DATE($B$1,$D$1,1)-WEEKDAY(DATE($B$1,$D$1,1),2)+1
カレンダー枠を埋める
- 各セルに =$B$3+オフセット を入力
条件付き書式
- 他月の日付はグレー表示
- 土日を色分け

ステップ3：週間カレンダーを作る

週の開始日を指定
- B1セルに「週の開始日」（例: 2025/9/29）を入力
見出し表示
- B2以降に
  
  =TEXT($B$1+列番号,"m/d(aaa)")
条件付き書式
- 列ごとに「土曜」「日曜」「祝日」を判定して色付け

ステップ4：祝日を自動反映する

仕組み

固定祝日（元日、建国記念日など）
ハッピーマンデー制度（成人の日、海の日、敬老の日、スポーツの日）
春分・秋分（1980〜2099年は近似式で計算）
振替休日（日曜の祝日→翌平日）
国民の休日（祝日で挟まれた平日）

このルールをVBAで計算し、「祝日」シートに一覧化 → 他シートが COUNTIF で参照して色分けします。
※ネットから取得しているわけではありません。

VBAコード全文（標準モジュールに貼り付け）

Option Explicit

' 祝日シートB1に年を入力 → ボタンで実行
Public Sub FetchHolidays()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("祝日")
    
    Dim y As Long
    y = CLng(ws.Range("B1").Value)
    If y < 1949 Or y > 2099 Then
        MsgBox "Year is out of range (1949-2099).", vbExclamation, "Error"
        Exit Sub
    End If
    
    Dim hol As Collection
    Set hol = BuildJapaneseHolidays(y)
    
    ws.Range("A2:A1000").ClearContents
    Dim i As Long
    For i = 1 To hol.Count
        ws.Range("A" & (i + 1)).Value = hol(i)
    Next i
    ws.Range("A2:A" & (hol.Count + 1)).NumberFormatLocal = "yyyy/mm/dd"
    
    MsgBox CStr(y) & "年の祝日を更新しました (" & hol.Count & "日)", vbInformation, "更新完了"
End Sub

' 指定年の祝日リストを作成
Private Function BuildJapaneseHolidays(ByVal Y As Long) As Collection
    Dim c As New Collection

    ' 固定日
    AddUnique c, DateSerial(Y, 1, 1)   ' 元日
    AddUnique c, DateSerial(Y, 2, 11)  ' 建国記念の日
    If Y >= 2020 Then AddUnique c, DateSerial(Y, 2, 23) ' 天皇誕生日
    AddUnique c, DateSerial(Y, 4, 29)  ' 昭和の日
    AddUnique c, DateSerial(Y, 5, 3)   ' 憲法記念日
    AddUnique c, DateSerial(Y, 5, 4)   ' みどりの日
    AddUnique c, DateSerial(Y, 5, 5)   ' こどもの日
    AddUnique c, DateSerial(Y, 8, 11)  ' 山の日
    AddUnique c, DateSerial(Y, 11, 3)  ' 文化の日
    AddUnique c, DateSerial(Y, 11, 23) ' 勤労感謝の日

    ' ハッピーマンデー
    AddUnique c, NthWeekday(Y, 1, vbMonday, 2)   ' 成人の日
    AddUnique c, NthWeekday(Y, 7, vbMonday, 3)   ' 海の日
    AddUnique c, NthWeekday(Y, 9, vbMonday, 3)   ' 敬老の日
    AddUnique c, NthWeekday(Y, 10, vbMonday, 2)  ' スポーツの日

    ' 春分・秋分
    AddUnique c, DateSerial(Y, 3, VernalDay(Y))
    AddUnique c, DateSerial(Y, 9, AutumnDay(Y))

    ' 振替休日・国民の休日
    AddSubstituteHolidays c
    AddCitizensHoliday c

    SortCollection c
    Set BuildJapaneseHolidays = c
End Function

' 月内の第N・曜日を返す
Private Function NthWeekday(ByVal Y As Long, ByVal M As Long, ByVal FirstWeekday As VbDayOfWeek, ByVal N As Long) As Date
    Dim d As Date
    d = DateSerial(Y, M, 1)
    Do While Weekday(d, vbMonday) <> (FirstWeekday - 0)
        d = d + 1
    Loop
    NthWeekday = d + (N - 1) * 7
End Function

' 春分日（近似）
Private Function VernalDay(ByVal Y As Long) As Integer
    VernalDay = Int(20.8431 + 0.242194 * (Y - 1980)) - Int((Y - 1980) / 4)
End Function

' 秋分日（近似）
Private Function AutumnDay(ByVal Y As Long) As Integer
    AutumnDay = Int(23.2488 + 0.242194 * (Y - 1980)) - Int((Y - 1980) / 4)
End Function

' コレクションに重複なく追加
Private Sub AddUnique(ByRef c As Collection, ByVal d As Date)
    On Error Resume Next
    c.Add d, Format$(d, "yyyy-mm-dd")
    On Error GoTo 0
End Sub

' 振替休日
Private Sub AddSubstituteHolidays(ByRef c As Collection)
    Dim i As Long
    Dim arr() As Date
    arr = ToArray(c)
    For i = LBound(arr) To UBound(arr)
        If Weekday(arr(i), vbSunday) = vbSunday Then
            Dim dd As Date: dd = arr(i) + 1
            Do While IsHoliday(c, dd)
                dd = dd + 1
            Loop
            AddUnique c, dd
        End If
    Next i
End Sub

' 国民の休日
Private Sub AddCitizensHoliday(ByRef c As Collection)
    Dim i As Long
    Dim arr() As Date
    arr = ToArray(c)
    For i = LBound(arr) To UBound(arr) - 1
        Dim mid As Date: mid = arr(i) + 1
        If mid = arr(i + 1) - 1 Then
            If Weekday(mid, vbMonday) <= 5 Then
                AddUnique c, mid
            End If
        End If
    Next i
End Sub

Private Function IsHoliday(ByRef c As Collection, ByVal d As Date) As Boolean
    On Error Resume Next
    Dim tmp As Date: tmp = c(Format$(d, "yyyy-mm-dd"))
    IsHoliday = (Err.Number = 0)
    Err.Clear
    On Error GoTo 0
End Function

' 昇順ソート
Private Sub SortCollection(ByRef c As Collection)
    Dim arr() As Date: arr = ToArray(c)
    Dim i As Long, j As Long, t As Date
    For i = LBound(arr) To UBound(arr) - 1
        For j = i + 1 To UBound(arr)
            If arr(j) < arr(i) Then
                t = arr(i): arr(i) = arr(j): arr(j) = t
            End If
        Next j
    Next i
    Dim c2 As New Collection
    For i = LBound(arr) To UBound(arr)
        AddUnique c2, arr(i)
    Next i
    Set c = c2
End Sub

' Collection → 配列
Private Function ToArray(ByRef c As Collection) As Date()
    Dim arr() As Date
    ReDim arr(1 To c.Count)
    Dim i As Long
    For i = 1 To c.Count
        arr(i) = c(i)
    Next i
    ToArray = arr
End Function

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

Option Explicit

' 祝日シートB1に年を入力 → ボタンで実行

Public Sub FetchHolidays()

Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets("祝日")

Dim y As Long

y = CLng(ws.Range("B1").Value)

If y < 1949 Or y > 2099 Then

MsgBox "Year is out of range (1949-2099).", vbExclamation, "Error"

Exit Sub

End If

Dim hol As Collection

Set hol = BuildJapaneseHolidays(y)

ws.Range("A2:A1000").ClearContents

Dim i As Long

For i = 1 To hol.Count

ws.Range("A" & (i + 1)).Value = hol(i)

Next i

ws.Range("A2:A" & (hol.Count + 1)).NumberFormatLocal = "yyyy/mm/dd"

MsgBox CStr(y) & "年の祝日を更新しました (" & hol.Count & "日)", vbInformation, "更新完了"

End Sub

' 指定年の祝日リストを作成

Private Function BuildJapaneseHolidays(ByVal Y As Long) As Collection

Dim c As New Collection

' 固定日

AddUnique c, DateSerial(Y, 1, 1) ' 元日

AddUnique c, DateSerial(Y, 2, 11) ' 建国記念の日

If Y >= 2020 Then AddUnique c, DateSerial(Y, 2, 23) ' 天皇誕生日

AddUnique c, DateSerial(Y, 4, 29) ' 昭和の日

AddUnique c, DateSerial(Y, 5, 3) ' 憲法記念日

AddUnique c, DateSerial(Y, 5, 4) ' みどりの日

AddUnique c, DateSerial(Y, 5, 5) ' こどもの日

AddUnique c, DateSerial(Y, 8, 11) ' 山の日

AddUnique c, DateSerial(Y, 11, 3) ' 文化の日

AddUnique c, DateSerial(Y, 11, 23) ' 勤労感謝の日

' ハッピーマンデー

AddUnique c, NthWeekday(Y, 1, vbMonday, 2) ' 成人の日

AddUnique c, NthWeekday(Y, 7, vbMonday, 3) ' 海の日

AddUnique c, NthWeekday(Y, 9, vbMonday, 3) ' 敬老の日

AddUnique c, NthWeekday(Y, 10, vbMonday, 2) ' スポーツの日

' 春分・秋分

AddUnique c, DateSerial(Y, 3, VernalDay(Y))

AddUnique c, DateSerial(Y, 9, AutumnDay(Y))

' 振替休日・国民の休日

AddSubstituteHolidays c

AddCitizensHoliday c

SortCollection c

Set BuildJapaneseHolidays = c

End Function

' 月内の第N・曜日を返す

Private Function NthWeekday(ByVal Y As Long, ByVal M As Long, ByVal FirstWeekday As VbDayOfWeek, ByVal N As Long) As Date

Dim d As Date

d = DateSerial(Y, M, 1)

Do While Weekday(d, vbMonday) <> (FirstWeekday - 0)

d = d + 1

Loop

NthWeekday = d + (N - 1) * 7

End Function

' 春分日（近似）

Private Function VernalDay(ByVal Y As Long) As Integer

VernalDay = Int(20.8431 + 0.242194 * (Y - 1980)) - Int((Y - 1980) / 4)

End Function

' 秋分日（近似）

Private Function AutumnDay(ByVal Y As Long) As Integer

AutumnDay = Int(23.2488 + 0.242194 * (Y - 1980)) - Int((Y - 1980) / 4)

End Function

' コレクションに重複なく追加

Private Sub AddUnique(ByRef c As Collection, ByVal d As Date)

On Error Resume Next

c.Add d, Format$(d, "yyyy-mm-dd")

On Error GoTo 0

End Sub

' 振替休日

Private Sub AddSubstituteHolidays(ByRef c As Collection)

Dim i As Long

Dim arr() As Date

arr = ToArray(c)

For i = LBound(arr) To UBound(arr)

If Weekday(arr(i), vbSunday) = vbSunday Then

Dim dd As Date: dd = arr(i) + 1

Do While IsHoliday(c, dd)

dd = dd + 1

Loop

AddUnique c, dd

End If

Next i

End Sub

' 国民の休日

Private Sub AddCitizensHoliday(ByRef c As Collection)

Dim i As Long

Dim arr() As Date

arr = ToArray(c)

For i = LBound(arr) To UBound(arr) - 1

Dim mid As Date: mid = arr(i) + 1

If mid = arr(i + 1) - 1 Then

If Weekday(mid, vbMonday) <= 5 Then

AddUnique c, mid

End If

Next i

End Sub

Private Function IsHoliday(ByRef c As Collection, ByVal d As Date) As Boolean

On Error Resume Next

Dim tmp As Date: tmp = c(Format$(d, "yyyy-mm-dd"))

IsHoliday = (Err.Number = 0)

Err.Clear

On Error GoTo 0

End Function

' 昇順ソート

Private Sub SortCollection(ByRef c As Collection)

Dim arr() As Date: arr = ToArray(c)

Dim i As Long, j As Long, t As Date

For i = LBound(arr) To UBound(arr) - 1

For j = i + 1 To UBound(arr)

If arr(j) < arr(i) Then

t = arr(i): arr(i) = arr(j): arr(j) = t

End If

Next j

Next i

Dim c2 As New Collection

For i = LBound(arr) To UBound(arr)

AddUnique c2, arr(i)

Next i

Set c = c2

End Sub

' Collection → 配列

Private Function ToArray(ByRef c As Collection) As Date()

Dim arr() As Date

ReDim arr(1 To c.Count)

Dim i As Long

For i = 1 To c.Count

arr(i) = c(i)

Next i

ToArray = arr

End Function

ステップ5：完成版テンプレート

上記の手順をすべてまとめた「サンプルExcelカレンダー.xlsm」を用意しました。

年間／月間／週間カレンダー
祝日シートに年を入力 → ［最新の祝日を取得］ ボタン
祝日・土日が自動で色分け

📂 ダウンロード：Excelサンプルをダウンロード

まとめ

Excel標準機能（DATE、TEXT、WEEKDAY、COUNTIF）で年間・月間・週間カレンダーを作成
VBAマクロで祝日リストを自動生成 → 条件付き書式で色分け
配布テンプレートを使えばすぐに利用可能

Oracle, データベース, トラブル対応, ブログ

Oracle「ORA-06502: PL/SQL 数値または値エラー」エラーが出た時の解決方法

2025年9月28日管理者コメントする

Oracle データベースを利用していると、**「ORA-06502: PL/SQL: 数値または値エラー」**というエラーに遭遇することがあります。これは比較的よく見られるエラーの一つで、主に「データ型の不一致」や「文字列長の超過」が原因です。この記事では、このエラーの代表的な原因と解決方法を解説します。

ORA-06502 エラーの意味

エラーメッセージ全文は以下のようになります。

このエラーは、PL/SQL 実行時に「値が期待されるデータ型に収まらない」場合に発生します。例えば以下のケースです。

数値型の変数に、文字列を代入しようとした場合
VARCHAR2 の長さ制限を超える文字列を代入した場合
型変換関数（TO_NUMBER, TO_DATE など）が失敗した場合

よくある原因と解決方法

1. 文字列長の超過

解決方法: 変数の長さを見直す、あるいは SUBSTR を利用して長さを調整する。

2. 数値変換エラー

解決方法: 入力値が数値かどうかを事前にチェックする。正規表現を利用するのも有効です。

3. 不正な日付変換

原因: 存在しない日付を変換しようとした。
解決方法: 入力フォーマットをチェックし、妥当な値のみ渡す。

4. 数値桁数のオーバーフロー

解決方法: NUMBER の定義を見直す、または値を丸める。

トラブルシューティングのポイント

エラー発生時の 変数定義 を確認する
DBMS_OUTPUT.PUT_LINE で 代入しようとしている値 を出力する
データベースの カラム定義と変数定義の不一致 を確認する
外部入力（CSV など）を扱う場合は 入力データの妥当性チェック を行う

まとめ

「ORA-06502」エラーは、ほとんどの場合 データ型の不一致 や 値の範囲超過 が原因です。
再発防止のためには以下が重要です。

変数やカラムの定義を余裕を持たせて設計する
入力値チェックを徹底する
デバッグ時に DBMS_OUTPUT を活用して値を追跡する

これらを意識することで、エラーを効率的に解消できるはずです。

覚え書き.com

日別アーカイブ: 2025年9月28日

Googleカレンダーで休暇を入れたら自動でチャットに通知させる方法

休暇をカレンダーに登録する方法

個人アカウントの場合

Google Workspace（仕事用アカウント）の場合

「終日」チェックの使い分け

方法1：ゲスト招待で簡単に通知

方法2：Zapierを使ってTeamsに自動通知

設定手順

方法3：Power AutomateでTeamsに自動通知

フロー作成の流れ

どの方法を選ぶべきか？

まとめ

Excelで年間カレンダーを自作する方法｜月間・週間スケジュールにも対応

ステップ1：年間カレンダーを作る

ステップ2：月間カレンダーを作る

ステップ3：週間カレンダーを作る

ステップ4：祝日を自動反映する

仕組み

VBAコード全文（標準モジュールに貼り付け）

ステップ5：完成版テンプレート

まとめ

Oracle「ORA-06502: PL/SQL 数値または値エラー」エラーが出た時の解決方法

ORA-06502 エラーの意味

よくある原因と解決方法

1. 文字列長の超過

2. 数値変換エラー

3. 不正な日付変換

4. 数値桁数のオーバーフロー

トラブルシューティングのポイント

まとめ

「駑馬十駕」を信念に IT系情報を中心に調べた事をコツコツ綴っています。

休暇をカレンダーに登録する方法

個人アカウントの場合

Google Workspace（仕事用アカウント）の場合

「終日」チェックの使い分け

方法1：ゲスト招待で簡単に通知

方法2：Zapierを使ってTeamsに自動通知

設定手順

方法3：Power AutomateでTeamsに自動通知

フロー作成の流れ

どの方法を選ぶべきか？

まとめ

関連記事

ステップ1：年間カレンダーを作る

ステップ2：月間カレンダーを作る

ステップ3：週間カレンダーを作る

ステップ4：祝日を自動反映する

仕組み

VBAコード全文（標準モジュールに貼り付け）

ステップ5：完成版テンプレート

まとめ

関連記事

ORA-06502 エラーの意味

よくある原因と解決方法

1. 文字列長の超過

2. 数値変換エラー

3. 不正な日付変換

4. 数値桁数のオーバーフロー

トラブルシューティングのポイント

まとめ

関連記事

「駑馬十駕」を信念に IT系情報を中心に調べた事をコツコツ綴っています。

　関連記事

　関連記事

　関連記事