表の中の表を判定」という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。Applications)のコードを探している方による検索です。[スポンサードリンク]アクティブな表の中に表があるかを判定するサンプルマクロ以下のマクロで、アクティブな表の中に表が存在しているかどうかを判定することができます。"アクティブな表の中に表が存在しています。"アクティブな表の中に表はありません。SubTableオブジェクトの、Tablesプロパティを使えば、表の中に表が存在しているかを調べられます。TableオブジェクトのTablesプロパティは、Tableオブジェクトの中にある、Tablesコレクションオブジェクトを返すプロパティだからです。Tableオブジェクトの中のTablesコレクションオブジェクトの数が「0」であれば、Tableオブジェクトの中にTablesコレクションオブジェクトは存在していないわけですから、表の中に表は存在していないことになります。Tableオブジェクトの中のTablesコレクションオブジェクトの数が「1」以上であれば、Tableオブジェクトの中にTablesコレクションオブジェクトが存在しているわけですから、表の中に表が存在していることになります。"アクティブな表の中に表が存在しています。"アクティブな表の中に表はありません。"MsgBox関数で、作成した文字列を表示しています。msgアクティブな文書内にある表の中に表があるかを判定するサンプルマクロ以下のようなマクロにすれば、アクティブ文書内の表の中に表が存在しているかどうかを判定することができます。"アクティブ文書の表の中に表はありません。"以下のページの表の中に表があります。Sub上記のマクロを実行したときに、表の中に表が存在していると、イミディエイトウィンドウに以下のような出力が行われます。Thenページ番号を変数・msgに格納しておきます。vbCrLfすべての表に対するループが終わったあとに、変数・msgに応じた内容をイミディエイトウィンドウに出力しています。"アクティブ文書の表の中に表はありません。"以下のページの表の中に表があります。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。