Yoshisuke Blog

序論：変化への拒絶は「停滞」ではなく「防衛」である

現代社会において、「変化」や「改革」という言葉は無条件に善として扱われがちです。

一方で、「今のままでいい」「変えたくない」という感情は、しばしば消極的、あるいは思考停止であると批判の対象になります。

しかし、最新の認知科学や経済学の知見に照らし合わせれば、この「現状を維持したい」という欲求は、決して怠惰によるものではありません。

それは、不確実な未来がもたらすリスクから、自らの生活基盤と精神の安寧を守ろうとする、極めて合理的かつ適応的な「生存戦略」なのです。

本稿では、与党への投票がもたらす「安定の配当」と、安易な変革が孕む「見えないコスト」について、多角的な視点から考察します。

1. 心理学的合理性：心の平穏を守る「システム正当化」

人間が現状の社会体制を肯定しようとする心理には、生物学的な裏付けがあります。心理学における「システム正当化理論」によれば、人は現在の体制を「正当で望ましいもの」と信じることで、将来への不安やストレスを大幅に軽減しています。

現状を肯定することは、不確実な世界を生き抜くための「精神的安定剤」として機能し、私たちの主観的な幸福感を支えています。

また、行動経済学が示す「損失回避（現状維持バイアス）」の知見によれば、人間は「改革によって得られるかもしれない不確実な利益」よりも、「現在の生活が崩れるという確実な損失」を圧倒的に重く受け止めます。

したがって、「今のままでいい」と考え、与党に一票を投じる行為は、予見可能な損害から自身と家族を守るための、能動的かつ賢明な心理的防衛策であると言えるのです。

2. 経済学的合理性：政治的安定こそが最大の経済対策

マクロ経済の視点に立つと、政権の継続性がもたらす「予見可能性」こそが、健全な投資と成長を促す最大のエネルギーとなります。

IMF（国際通貨基金）の研究等でも実証されている通り、頻繁な政権交代や急激な政策変更といった「政治的不安定性」は、投資家のマインドを冷え込ませ、GDP成長率の低下やインフレを招く大きな要因となります。

企業や海外の機関投資家が最も嫌うのは「不透明な変化」です。

与党が信任を得て、政策の一貫性が保証されることは、長期的な経済成長を支えるインフラを整えることと同義です。

現状の経済環境を維持し、予測可能な未来を確定させることは、自身の資産を防衛し、持続可能な繁栄を確保するための最も確実な投資戦略なのです。

3. 歴史的教訓：繰り返してはならない「失われた時間」

私たちは歴史から、無計画な「変化」がいかに高い代償を伴うかを学んでいます。その最たる例が、2009年の政権交代に伴う混乱です。

当時は「変化のための変化」が叫ばれましたが、結果として待っていたのは、法治主義の軽視や政策決定プロセスの迷走による行政の機能不全でした。

外交的信頼は失墜し、経済的利益も大きく損なわれました。

当時、日本市場は世界経済の回復基調から取り残される「デカップリング」に陥り、国際社会からの信頼を失いました。

この「失敗の記憶」を持つ有権者にとって、現状維持を選択することは、感情的な固執ではありません。

過去の過ちを冷静に分析した結果として導き出された、「学習効果」の表れなのです。

結論：確実な「現在」を選ぶ勇気

2024年から2026年にかけての日本経済は、現行体制のもとで緩やかな回復基調が続くと予測されています。

あえて不確実な「変化」という名のギャンブルに身を投じ、現在の手堅い歩みを止める必要はどこにもありません。

「何も変えなくていい」という意思表示。

それは、私たちが今享受している平和、安全、そしてささやかな日常を、責任を持って次世代に継承しようとする、最も堅実で理性的な政治参加の形なのです。

不確実な明日を追うのではなく、確実な今日を守り抜く。そのための選択こそが、与党への一票に集約されているのです。

 

#これは皮肉です

 

 

それにしてもTylaかわいいですよね。

 

Googleカレンダーに予定をインポートするのに、今まではデータを切ったり貼ったりしていたんだけれども、もっと楽な方法はないものかと思ってAIに相談しました。

以下よしすけとChatGPTの会話です。

よしすけ

---

エクセルのスクリーンショットをペーストしてCSVファイルの9行目までをペースト。

やりたいことを指示しました。

ChatGPT

いいですね、これは典型的だけど意外と手でやると面倒なやつです🙂
**「1 が入っている列名を、日付とペアにして縦に吐き出す」**マクロを書けば一発です。

---

前提（今のCSV／Excelの形）

• A列：日時
• B列以降：人名（中村、社長、金子茂子…）
• セルの値が 1 のところだけ有効
• 1行に複数人いる場合は、その人数分だけ行を増やす

---

出力形式

2026/4/1,大田
2026/4/4,中村
2026/4/4,社長
2026/4/4,金子茂子
2026/4/5,前田
2026/4/6,中村
2026/4/7,金子茂子

---

VBAマクロ（そのまま使えます）

Sub ConvertCSVStyle()

    Dim srcWs As Worksheet
    Dim dstWs As Worksheet
    Dim lastRow As Long
    Dim lastCol As Long
    Dim r As Long, c As Long
    Dim outRow As Long
    
    ' 元データのシート
    Set srcWs = ActiveSheet
    
    ' 出力用シートを作成（既にあれば削除）
    Application.DisplayAlerts = False
    On Error Resume Next
    Worksheets("変換結果").Delete
    On Error GoTo 0
    Application.DisplayAlerts = True
    
    Set dstWs = Worksheets.Add
    dstWs.Name = "変換結果"
    
    ' 最終行・列
    lastRow = srcWs.Cells(srcWs.Rows.Count, 1).End(xlUp).Row
    lastCol = srcWs.Cells(1, srcWs.Columns.Count).End(xlToLeft).Column
    
    outRow = 1
    
    ' データ走査
    For r = 2 To lastRow
        For c = 2 To lastCol
            If srcWs.Cells(r, c).Value = 1 Then
                dstWs.Cells(outRow, 1).Value = srcWs.Cells(r, 1).Value
                dstWs.Cells(outRow, 2).Value = srcWs.Cells(1, c).Value
                outRow = outRow + 1
            End If
        Next c
    Next r
    
    ' CSVっぽく見せる（任意）
    dstWs.Columns("A:B").AutoFit

    MsgBox "変換が完了しました", vbInformation

End Sub

---

使い方

1. ExcelでCSVを開く
2. Alt + F11 → VBAエディタ
3. 「挿入」→「標準モジュール」
4. 上のコードを貼り付け
5. Excelに戻って マクロ実行

→ 「変換結果」シートに、希望どおり縦持ちデータが生成されます。

---

応用（必要なら）

• CSVとして自動保存したい
• 「1」以外（TRUE / ○ / ✔）でも反応させたい
• 日付フォーマットを強制したい
• 出力を既存シートに追記したい

このへんもすぐ拡張できます。
次はどこまで自動化します？

 

---

よしすけ

このデータ変換の目的はGoogleカレンダーにインポートするためなのですが、もっと手順を省くようなやり方があれば提案してください。

---

ChatGPT

目的が Googleカレンダーに入れるだけ なら、
正直いま考えている「Excel → マクロ → CSV」は やや重装備 です。
手順を削る方向で、現実的な選択肢を整理しますね。

---

結論から（おすすめ順）

🥇 方法A：Excelで一発生成 → そのままGoogleカレンダー用CSV

👉 マクロ1本・中間作業ゼロ

🥈 方法B：Googleスプレッドシートで直接変換

👉 Excelすら使わない／クラウド完結

🥉 方法C：Google Apps Script（完全自動）

👉 定期運用向け・一度作れば放置

---

🥇 方法A：Excelで「Googleカレンダー仕様CSV」を直接作る（最短）

GoogleカレンダーのCSVは、最低限これでOKです：

Subject,Start Date
中村,2026/4/4
社長,2026/4/4

つまり

• 「日付 + 人名」＝ イベント
• 時間がなければ 終日イベント で問題なし

---

改良版マクロ（そのままインポート可）

Sub ExportForGoogleCalendar()

    Dim ws As Worksheet
    Dim outWs As Worksheet
    Dim r As Long, c As Long
    Dim lastRow As Long, lastCol As Long
    Dim outRow As Long

    Set ws = ActiveSheet

    Application.DisplayAlerts = False
    On Error Resume Next
    Worksheets("GoogleCal").Delete
    On Error GoTo 0
    Application.DisplayAlerts = True

    Set outWs = Worksheets.Add
    outWs.Name = "GoogleCal"

    ' Googleカレンダー用ヘッダ
    outWs.Cells(1, 1).Value = "Subject"
    outWs.Cells(1, 2).Value = "Start Date"
    outWs.Cells(1, 3).Value = "All Day Event"

    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

    outRow = 2

    For r = 2 To lastRow
        For c = 2 To lastCol
            If ws.Cells(r, c).Value = 1 Then
                outWs.Cells(outRow, 1).Value = ws.Cells(1, c).Value
                outWs.Cells(outRow, 2).Value = ws.Cells(r, 1).Value
                outWs.Cells(outRow, 3).Value = "True"
                outRow = outRow + 1
            End If
        Next c
    Next r

    MsgBox "Googleカレンダー用CSV完成", vbInformation

End Sub

手順

1. マクロ実行
2. 「GoogleCal」シートを CSVで保存
3. Googleカレンダー → 設定 → インポート

✔ 変換 → 整形 → インポート、全部1回で完了

---

🥈 方法B：Googleスプレッドシートだけで完結（Excel不要）

流れ

1. CSVを Googleスプレッドシートにアップ
2. 別シートで FLATTEN を使う

=ARRAYFORMULA(
  SPLIT(
    FLATTEN(
      IF(B2:G="",,A2:A&","&B1:G1)
    ),
  ",")
)

→ そのまま「日付・名前」リスト完成
→ ファイル → 共有 → CSVでダウンロード → インポート

✔ VBA不要
✔ マクロ禁止環境でもOK

---

🥉 方法C：Google Apps Script（最終形態）

• CSVをDriveに置くだけ
• 自動でイベント作成
• CSVすら不要

CalendarApp.getDefaultCalendar()
  .createAllDayEvent(name, new Date(date))

👉 定期的に同じ形式のデータを流し込む人向け
（今回が単発ならオーバーキル）

---

判断基準まとめ

状況	ベスト
Excel使ってる	🥇 方法A
マクロ禁止	🥈 方法B
毎月やる	🥉 方法C

---

率直な結論

Googleカレンダーがゴールなら
「中間CSV」を作る発想を捨てたほうが速い

もし次にやるなら、

• 人ごとに色分けしたい
• カレンダーを分けたい
• 時間帯（9:00–17:00）を入れたい

ここまで含めて設計できます。
どこまで自動化します？

---

よしすけ

（今回が単発ならオーバーキル）ってどういう意味ですか？やり過ぎっていうこと？

---

ChatGPT

そうそう、その理解で ぴったり合ってます 🙂

「オーバーキル（overkill）」 というのは、

目的に対して、手段や仕組みが必要以上に大がかり・強力すぎる
→ つまり やり過ぎ

という意味です。

---

今回の文脈で言うと

• やりたいこと
  → 「この表を一回だけ Googleカレンダーに入れたい」
• Google Apps Script案
  →
  • スクリプトを書く
  • 権限設定する
  • Drive・Calendar APIの理解が必要
  • デバッグも発生する可能性あり

これを 一回きりの作業 に使うと、

🐜を踏みつぶすのに🛠大型建設機械を持ち出す

みたいな感じになるわけです。

---

だから「単発ならオーバーキル」

手段	適正
Excelマクロ	ちょうどいい
スプレッドシート関数	ちょうどいい
Apps Script	継続運用前提なら最強／単発だとやり過ぎ

---

逆に「オーバーキルじゃなくなる瞬間」

もし今後こんなことが起きたら、話は変わります：

• 毎月・毎週このCSVが来る
• 担当者が変わっても自動で入れたい
• 人が触るとミスが出る
• カレンダーが業務の基幹になる

この場合は、

「一回で済む楽」より
「毎回考えなくていい仕組み」

の方が価値が出てきます。

---

まとめると

• はい、「やり過ぎ」という意味
• ただし 悪い意味ではなく
• 「将来を見越すならアリ」な手段

言葉が少し乱暴だったので、そこ引っかかるのは自然です。
他にもIT用語で「これ日本語だと誤解されやすいな」というの、気になったらどんどん聞いてください。

---

1年に1回しかつかわないんですけど、どうですかね？

---

ChatGPT

率直に言いますね。
「1年に1回」なら、Apps Scriptはやり過ぎです。
しかも かなり。

---

判断をハッキリさせると

年1回の作業に対して

手段	評価
Excelマクロ	◎ 最適
スプレッドシート関数	○ まあ良い
Apps Script	✕ コスパ悪い

理由はシンプルで、

• 1年後には
  「あれ？これどうやるんだっけ？」
  になります。
• スクリプトは 思い出しコスト が高い。
• 権限・仕様変更で 去年動いたものが今年動かない こともある。

---

1年に1回なら、いちばん大事なのは

「考えなくても再現できること」

技術的にカッコいいかどうかは、正直どうでもいいです。

---

おすすめの現実解（これで十分）

✔ Excelマクロを1本だけ保存

• ファイル名例

  GoogleCalendar用_変換.xlsm
  

• シートに 「①マクロ実行 → ②CSV保存 → ③インポート」 と書いておく

👉 来年の自分への説明書付き

---

さらに省力化するなら（ワンポイント）

• マクロで CSVまで自動保存
• ファイル名に年を自動付与

ThisWorkbook.SaveAs _
  Filename:="GoogleCalendar_" & Year(Date) & ".csv", _
  FileFormat:=xlCSV

※ここまでやっても、まだ「適正レベル」

---

逆に「やらない方がいいこと」

• GASを書く
• APIを叩く
• 自動実行・トリガー設定

👉 1年に1回だと 必ず忘れる
👉 忘れる仕組みはストレスになる

---

結論

年1回 → 仕組みは「紙の手順書レベル」が正解

Excelマクロ＋短いメモ。
これが一番ラクで、一番失敗しません。

もしよければ、

• 「来年の自分向けコメント」をマクロに埋め込む
• ボタン1個で完結させる

ここまで一緒に整えましょうか。

---

ちゃんと動きました。