Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

行・列の表示・非表示（Hidden プロパティ）

2015/07/09

Hidden プロパティ

Hidden プロパティに True を設定することで、行または列（Range オブジェクト）を非表示にします。また、Falese を設定すると、再表示させることができます。

【書式】

＜取得＞
result = Object.Hidden

＜設定＞
Object.Hidden = boolean

引数・戻り値

object ・・・行または列の集合となる Range オブジェクトを指定します。
Rows プロパティ、Columns プロパティ、任意のセル範囲に対する EntireRow プロパティ、 任意のセル範囲に対する EntireColumn プロパティ
result ・・・非表示の場合、True、非表示でない場合、False

Rows プロパティまたは、Columns プロパティに引数を指定せずに取得したセル範囲に対して、Hidden プロパティの値を False に設定することで、非表示にされているセル範囲をすべて再表示することができます。（フィルターの結果によって非表示になっているセル範囲は除きます）

非表示の行または列があるかを確認する場合、１行毎または１列毎に確認します。

フィルターの結果によって非表示になっているセル範囲に対して、Hidden プロパティに False を設定しても再表示することはできませんが、Hidden プロパティの値を取得することは可能です（フィルターで非表示になっている場合も True を返します）。

Hidden プロパティ使用例

サンプルVBAソース

　
Sub Sample_Hidden()

    Dim myRng As Range
    Dim HRowCnt As Long     '非表示の行数
    Dim HColCnt As Long     '非表示の列数
    Dim i As Long
    
    Set myRng = Range("A1").CurrentRegion

    'フィルター
    myRng.AutoFilter _
        Field:=3, _
        Criteria1:=Array("男"), _
        Operator:=xlFilterValues

    
    'セル範囲「A7:C8」を含む行を非表示にする
    Range("A7:C8").EntireRow.Hidden = True
    
    'B列を非表示にする
    Columns(2).Hidden = True
    
    '非表示の行数を求める
    For i = myRng.Cells(1).Row To myRng.Cells(myRng.Cells.Count).Row
        
        If Rows(i).Hidden = True Then
            
            HRowCnt = HRowCnt + 1
        
        End If
    
    Next i
    
    '非表示の列数を求める
    For i = myRng.Cells(1).Column To myRng.Cells(myRng.Cells.Count).Column
    
        If Columns(i).Hidden = True Then
        
            HColCnt = HColCnt + 1
        
        End If
    
    Next i

    MsgBox "非表示の行数：" & HRowCnt & Chr(13) & _
           "非表示の列数：" & HColCnt
           

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

　

Sub Sample_Hidden()

Dim myRng As Range

Dim HRowCnt As Long '非表示の行数

Dim HColCnt As Long '非表示の列数

Dim i As Long

Set myRng = Range("A1").CurrentRegion

'フィルター

myRng.AutoFilter _

Field:=3, _

Criteria1:=Array("男"), _

Operator:=xlFilterValues

'セル範囲「A7:C8」を含む行を非表示にする

Range("A7:C8").EntireRow.Hidden = True

'B列を非表示にする

Columns(2).Hidden = True

'非表示の行数を求める

For i = myRng.Cells(1).Row To myRng.Cells(myRng.Cells.Count).Row

If Rows(i).Hidden = True Then

HRowCnt = HRowCnt + 1

End If

Next i

'非表示の列数を求める

For i = myRng.Cells(1).Column To myRng.Cells(myRng.Cells.Count).Column

If Columns(i).Hidden = True Then

HColCnt = HColCnt + 1

End If

Next i

MsgBox "非表示の行数：" & HRowCnt & Chr(13) & _

"非表示の列数：" & HColCnt

End Sub

　

実行結果

サンプルVBA 実行前

実行

- セルの操作 Columns プロパティ, EntireColumn プロパティ, EntireRow プロパティ, Hidden プロパティ, Range オブジェクト, Rows プロパティ, VBA基本, エクセルVBA, セルの操作, セルの表示非表示

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: セルの行番号または列番号を取得（Row プロパティ,Column プロパティ）

Row プロパティ・Column プロパティ Row プロパティは、指定したセル …

: セルのロック（Locked プロパティ）

セルのロック（Locked プロパティ） Locked プロパティで、セルのロッ …

: 指定した条件に一致するセルを取得（SpecialCells メソッド）

SpecialCells メソッド SpecialCells メソッドは、指定し …

: 次の検索（FindNext メソッド,FindPrevious メソッド）

FindNext メソッド Find メソッドで開始された検索を継続します。引数 …

: セルが結合セルの一部である場合、その結合セルの範囲を取得（MergeArea プロパティ）

MergeArea プロパティ MergeArea プロパティは、指定したセルが …

: セルを挿入する（Insert メソッド）

Insert メソッド Insert メソッドで、指定した場所に新規の空白セルを …

: 任意のセルを含む行または列全体を参照（EntireRow プロパティ,EntireColumn プロパティ）

EntireRow プロパティ・EntireColumn プロパティ Entir …

: 対象のセル・セル範囲に数式があるかどうか調べる（HasFormula プロパティ）

HasFormula プロパティ HasFormula プロパティは、対象のセル …

: ２つ以上のセル範囲を１つにまとめて参照（Union メソッド）

Union メソッド Union メソッドは、２つ以上のセル範囲を１つにまとめて …

: 指定した行数・列数移動したセル・セル範囲を参照（Offset プロパティ）

Offset プロパティ Offset プロパティは、基準となるセル・セル範囲か …

PREV: グラフが保護されているか確認（ProtectContents プロパティ）
NEXT: セルの位置を取得（Left プロパティ、Top プロパティ）