첫 번째 행의 문자열을 기반으로 열을 숨기고 너비를 설정하려면 어떻게해야합니까?

Question

첫 번째 행에 특정 문자열이 포함 된 통합 문서가 있습니다. 예를 들어, A-D 행에서 "Dog", "Cat", "Squirrel"및 "Fish"가 있다고 가정 해 봅시다. 'Dog'및 'Squirrel'값을 검색하는 매크로를 원합니다. 열을 숨긴 다음 "Cat"및 "Fish"의 너비를 11로 설정합니다.

모든 통합 문서에서 일관성이 없기 때문에 열 번호를 사용할 수 없습니다. 당신의 도움을 주셔서 감사합니다. 원하는 범위 이상의 동적 뭔가 : ("D1 A1") :

Sub HideColumn1() 
If Range("B4").Value = 0 Then 
    Columns("H").EntireColumn.Hidden = True 
Else 
    Columns("H").EntireColumn.Hidden = False 
End If 
End Sub 

Answer 1

변경 범위 숨기고 열 크기를 조정하기 전에 여기

Dim cell As Range 
Dim hiddenRng As Range, widthRng As Range 

For Each cell In Range("A1:D1") 

    If cell = "Dog" Or cell = "Squirrel" Then 

     If (hiddenRng Is Nothing) Then 
      Set hiddenRng = cell 
     Else 
      Set hiddenRng = Union(hiddenRng, cell) 
     End If 

    End If 

    If cell = "Cat" Or cell = "Fish" Then 

     If (widthRng Is Nothing) Then 
      Set widthRng = cell 
     Else 
      Set widthRng = Union(widthRng, cell) 
     End If 

    End If 

Next cell 

If (Not hiddenRng Is Nothing) Then hiddenRng.EntireColumn.Hidden = True 
If (Not widthRng Is Nothing) Then widthRng.EntireColumn.ColumnWidth = 11 

Answer 2

는 또 다른 예

Sub hideColumns() 
Dim iRow, iCol As Integer 
iRow = 1 
iCol = 1 

Dim cat, dog, fish, squirrel As String 

cat = "Cat" 
dog = "Dog" 
fish = "Fish" 
squirrel = "Squirrel" 

Do While Cells(iRow, iCol).Value <> "" 
    If Cells(iRow, iCol).Value = dog Or Cells(iRow, iCol).Value = squirrel Then 
     Cells(iRow, iCol).Select 
     Selection.EntireColumn.Hidden = True 
    ElseIf Cells(iRow, iCol).Value = cat Or Cells(iRow, iCol).Value = fish Then 
     Cells(iRow, iCol).EntireColumn.Select 
     Selection.ColumnWidth = 11 
    Else 
     'did not find anything do somthing 
    End If 

iCol = iCol + 1 
Loop 
End Sub