Home » Excel VBA Rangeオブジェクト » Cellsプロパティ » 折り返して全体を表示するの解除をExcel VBAで

折り返して全体を表示するの解除をExcel VBAで

対象：Excel2007, Excel2010, Excel2013

「vba 折り返して全体を表示するをやめる」
「vba 折り返して全体を表示するのチェックをはずす」
「マクロ折り返して全体を表示しない」
といった検索で、このサイト・インストラクターのネタ帳へのアクセスが時折あります。

さまざまに表現されていますが、［セルの書式設定］ダイアログ－［配置］タブ－［折り返して全体を表示する］チェックボックスを、

折り返して全体を表示するを解除するVBAのコード

Offにする・解除する、Excel VBAのコード・マクロを探している方による検索です。

［スポンサードリンク］

アクティブシートの折り返して全体を表示の解除マクロ

アクティブシートの、すべてのセルの、折り返して全体を表示を解除するのなら、以下のような一行のマクロでOKです。

Sub アクティブシートの折り返して全体を表示を解除する()
　Cells.WrapText = False
End Sub

Cellsプロパティの引数を省略すると、全セルをあらわすRangeオブジェクトが取得できるので、そのWrapTextプロパティを、

折り返して全体を表示するを解除するVBAのコード

Falseにしています。

アクティブなブックの、全ワークシートの、すべてのセルの、折り返して全体を表示の解除なら、以下のようなマクロです。

Sub アクティブブックの全シートの折り返して全体を表示を解除する()
　Dim ws As Worksheet
　For Each ws In Worksheets
　　ws.Cells.WrapText = False
　Next
End Sub

For Each ～ Next文を使って、先の
　Cells.WrapText = False
という処理が、すべてのワークシートに対して行われるようしたマクロです。

選択されたセル範囲の、折り返して全体を表示の解除なら、
　Selection.WrapText = False
です。

例えば、A1:G8セルの、折り返して全体を表示の解除なら、
　Range("A1", "G8").WrapText = False
です。

逆に、折り返して全体を表示する設定をしたいのならば、上記のコードでFalseとなっているのをTrueにしてください。

最終更新日時：2023-02-10 18:46

［スポンサードリンク］

Home » Excel VBA Rangeオブジェクト » Cellsプロパティ » 折り返して全体を表示するの解除をExcel VBAで

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「Cellsプロパティ」の記事一覧