Column Width?

[cranebill]

This works to test if a row is hidden...

Public Function IsHiddenRow(par1 As Range) As Boolean
    IsHiddenRow = False
    If par1.Cells(1, 1).Rows.Height = 0 Then IsHiddenRow = True
End Function

However this does not work for Columns...

Public Function IsHiddenRow(par1 As Range) As Boolean
    IsHiddenRow = False
    If par1.Cells(1, 1).Columns.Width = 0 Then IsHiddenRow = True
End Function

Any Ideas?

 

[SkipVought]

Hi,

RowHeight = 0 is not hidden.

BTW, your function does work. Why do you say it does not?

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[SkipVought]

I am mistaken. a ZERO row height or column width is symonimous with hidden. So, this code would work for either...

Public Function IsHidden(par1 As Range, Optional RC As String = "Row") As Boolean
    Select Case RC
        Case "Row": IsHidden = par1.EntireRow.Hidden
        Case "Column": IsHidden = par1.EntireColumn.Hidden
    End Select
    
End Function

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[cranebill]

The first piece of code above works for rows, however I changed Rows.Height to Columns.Width and the second one did not work.

I tried your code calling it from =IsHidden(B2) and hid both the row and the column... neither of which changed the value to True

 

[SkipVought]

It works, both on a sheet and called in VBA.

Where did you paste the function?

How are you calling the function

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[cranebill]

I pasted the code in a module. I wasnt sure how to call it exactly so I used =IsHidden(B2) as I was able to use in the sample i provided.

How are you calling it... or a better question how are you using it on a sheet? I am not familiar how to use it on a sheet and not through the vb edit panes.

 

[SkipVought]

I use it on the sheet like any other spreadsheet function. Be sure Calculation is AUTOMATIC or hit F9.

Can be called in code...

sub test()
  msgbox ishidden([B2])
end sub

With Column B & Row 2 hidden...

if I enter this formula and copy down...
[tt]
=ishidden(B2)
=ishidden(B3)
[/tt]
I get

True
False

if I enter this formula and copy across...
[tt]
=ishidden(B2,"Column")
=ishidden(C2,"Column")
[/tt]
I get

True
False



Skip,

_{Just traded in my old subtlety...
for a NUANCE!}