3

グループ化された列がいくつか含まれているExcelが1つあります。そのグループ内には、いくつかの列が非表示になっています(右クリックして非表示)。グループが折りたたまれている場合、すべての列のHiddenプロパティはtrueを返しますが、これは望ましくありません。折りたたまれたグループ内の他のグループ列とは別に、元々非表示の列を識別する方法はありますか?

4

1 に答える 1

3

質問を完全には理解していませんが、VBAでは、次のように列が非表示になっているかどうかをテストできます。

Option Explicit

Sub TestFunction()

  'hide a few columns and then run me<<<<<<<<<<
  Dim mySearchColumn As Integer
  mySearchColumn = (CInt(Application.InputBox("input a column number")))

  MsgBox ("you wanted to know about column " & mySearchColumn & ". Is it hidden: " & IsColumnHidden(mySearchColumn))

End Sub

Function IsColumnHidden(targetColumn As Integer) As Boolean
    IsColumnHidden = False
    If Columns(targetColumn).EntireColumn.Hidden Then
        IsColumnHidden = True
    End If
End Function
于 2012-12-15T17:41:55.307 に答える