Home » Excel VBA Rangeオブジェクト » 結合セル » MergeCellsでセル結合されているか判定して結合範囲を取得する

MergeCellsでセル結合されているか判定して結合範囲を取得する

動作検証バージョン：Windows 11 Home + 64bit Excel バージョン 2509（ビルド19231.20156クイック実行）

「vba mergecells 範囲」
といった検索でアクセスがありました。
何を調べていらしたのかいくつかの可能性が考えられる検索キーワードです。

Range.MergeCellsプロパティで、セル結合されていることが判定できたときに、どのセル範囲が結合されているかを取得する方法を調べていらしたのかもしれません。

［スポンサードリンク］

セル結合されているか判定して結合範囲を取得するサンプルマクロ

以下のExcelマクロを参考にしてください。

Sub セル結合されているか判定して結合範囲を取得する()
　If ActiveCell.MergeCells Then
　　MsgBox _
　　　ActiveCell.MergeArea.Address(False, False) & _
　　　"セルが、結合されています！"
　Else
　　MsgBox "セル結合されていません。"
　End If
End Sub

アクティブセルが結合されているセルのときに、
「〇:〇セルが、結合されています！」
といったメッセージボックスが表示されます。

サンプルマクロで行っている処理

Range.MergeCellsプロパティは、セル結合されているかどうかを取得/設定するプロパティです。

上記のマクロではIf文で、このRange.MergeCellsプロパティを使っています。

　If ActiveCell.MergeCells Then

結合されているセル範囲を表すRangeオブジェクトを取得するには、Range.MergeAreaプロパティを使います。

上記のマクロではRange.MergeCellsプロパティでセル結合されていると判定したときに、Range.MergeAreaプロパティで結合範囲を表すRangeオブジェクトを取得して、

　If ActiveCell.MergeCells Then
　　MsgBox _
　　　ActiveCell.MergeArea.Address(False, False) & _

Range.Addressプロパティでセル番地を取得しています。

　If ActiveCell.MergeCells Then
　　MsgBox _
　　　ActiveCell.MergeArea.Address(False, False) & _

［スポンサードリンク］

Home » Excel VBA Rangeオブジェクト » 結合セル » MergeCellsでセル結合されているか判定して結合範囲を取得する

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記のExcel VBAユーザー向けのPython超入門書の、元になったキンドル本です↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓ Excel VBA経験者の方に向けて、Word VBAの基本をキンドル本にしました↓↓ Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓


「結合セル」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.