第141回.行・列の表示・非表示・列幅・行高
行または列を非表示にしたり、逆に表示したりする場合のマクロVBAについて説明します。
また、あるセルが表示されているか（可視セルか）の判定方法について解説します。
表示・非表示は、RangeオブジェクトのHiddenプロパティにTrue/Falseを設定することで行います。
列幅はColumnWidth、行高はRowHeightで設定します。
セルの非表示
行の表示・非表示
行の表示・非表示
行の表示・非表示の使用例
列の表示・非表示
列の表示・非表示
行・列の表示・非表示の使用例
セルが表示されているか（可視セルか）の判定方法
If Cells(3, 3).EntireRow.Hidden Or _
Cells(3, 3).EntireColumn.Hidden Then
MsgBox "非表示"
Else
MsgBox "表示"
End If
C3セルが可視セルか（表示されているか非表示か）を判定しています。
可視セル（SpecialCellsのxlCellTypeVisible）に含まれているかで判定
Sub sample()
MsgBox isHidden(Range("C3"))
End Sub
Function isHidden(ByVal argRange As Range) As Boolean
On Error Resume Next
Dim myRange As Range
Set myRange = argRange.SpecialCells(xlCellTypeVisible)
If Err Then
isHidden = True
Exit Function
End If
If Intersect(argRange, myRange) Is Nothing Then
isHidden = True
Else
isHidden = False
End If
End Function
上記VBAの関数Functionは引数のセルが非表示の時Trueを返します。
滅多にないとは思いますが、全セルが非表示の場合には、SpecialCellsがエラーになります。
これに対処するために、On Error Resume Nextをいれて判定しています。
引数のセルが可視セルと重なっているかをIntersect関数 で判定しています。
列幅・行高
Dim ws As Worksheet
Set ws = ActiveSheet
'列幅：文字数で指定する
ws.Columns(2).ColumnWidth = 30
'列幅：列全体で自動調整
ws.Columns(3).EntireColumn.AutoFit
'列幅：セルで自動調整
ws.Cells(1, 4).Columns.AutoFit
'行高：ポイントで指定する
ws.Rows(2).RowHeight = 20
'行高：行全体で自動調整
ws.Rows(3).EntireRow.AutoFit
'行高：列とは違い、行全体で判定されます
ws.Cells(4, 1).Rows.AutoFit
列幅の1単位は、標準スタイルの1文字の幅です。
行高はポイントです。
列幅と行高では単位が違うため設定しづらくなっています。
同じテーマ「マクロVBA入門」の記事
第99回.Replaceメソッド（置換）
第132回.その他のExcel機能（グループ化、重複の削除、オートフィル等）
第135回.ジャンプの選択オプション（SpecialCells）
第141回.行・列の表示・非表示・列幅・行高
第105回.Callステートメント
第106回.Functionプロシージャー
第107回.プロシージャーの引数
第108回.変数の適用範囲（スコープ,Private,Public）
第100回.InputBoxメソッド（インプットボックス）
第101回.Midステートメント
第102回.Intersectメソッド
新着記事NEW ・・・新着記事一覧を見る
生成AIが暴いた「VBAオワコン説」の盲点｜問われるのは言語ではなく評価軸｜エクセル雑感(2026-07-04)
【ITとは何か】Excel・VBAを学ぶ前に知っておきたい「4つの本質」｜エクセル雑感(2026-06-24)
2つのシート名を交換するVBAをGeminiに作らせてみた。｜VBA技術解説(2026-05-22)
ヘッダーに合わせて列をソートして値貼り付けするスマートな方法｜VBAサンプル集(2026-05-20)
4大分岐関数の使い分け（IF/IFS/SWITCH/CHOOSE）｜エクセル入門(2026-05-19)
Excel主要関数 習得難易度 10段階（文字列・日付除く）｜エクセル雑感(2026-04-27)
Excelのシート5分類｜エクセル雑感(2026-03-27)
グループ別に全員共通の重複期間を算出｜エクセル練習問題(2026-03-12)
ハイフン区切り文字列の『最初』と『最後』を抽出・結合｜エクセル練習問題(2026-02-23)
AIは便利なはずなのに…「AI疲れ」が次の社会問題になる｜生成AI活用研究(2026-02-16)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.変数宣言のDimとデータ型｜VBA入門
3.日本の祝日一覧｜Excelリファレンス
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.Excelショートカットキー一覧｜Excelリファレンス
6.繰り返し処理（For Next)｜VBA入門
7.RangeとCellsの使い方｜VBA入門
8.マクロとは？VBAとは？VBAでできること｜VBA入門
9.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
10.メッセージボックス(MsgBox関数)｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.