セルが結合されているかどうか判定せよ（Excel VBA）

【本日のミッション】

セルが結合されているかどうか判定せよ。（Excel VBA）

ミッションの概要

Excel VBAにて、セルが結合されているかどうか判定せよ、というのが今回のミッションです。

プロシージャ

このシートをアクティブにした状態で、Alt＋F11でVsual Basic Editerを起動します。
［挿入］－［標準モジュール］で新規モジュールを作成し、下記の通りコードを記入します。

Sub セル結合判定()

    If ActiveCell.MergeCells = True Then
        MsgBox "アクティブセルは結合されています。"
    Else
        MsgBox "アクティブセルは結合されていません。"
    End If
   
End Sub

Mergecellsプロパティ

特定のセル、またはセル範囲が結合されていたら「Ture」を返します。

Range.MergeCells

参照

系列が1つのグラフを自動大量連続作成（Excel ーBA）
「実行時エラー 1004」を出さずに、ワークシート内のグラフを「グラフ 元」以外全て削除（Excel VBA）
グラフの参照先を変えると勝手にグラフの色が変わる現象を解決せよ
系列が複数あるグラフを自動大量連続作成（Excel VBA）
n行毎の改ページ設定 「実行時エラー1004 RangeクラスのPageBreakプロパティを設定できません」の原因（Excel VBA）
参照データ数が異なる・参照先が変動する月別グラフを自動大量連続作成（Excel VBA）
複数系列・参照データ数が異なる・参照先が変動する月別グラフを自動大量連続作成（Excel VBA）
エクセル 既存の表形式のセル範囲をテーブルに変換せよ。（Excel VBA)
セルが結合されているかどうか判定せよ（Excel VBA）