랩핑 된 텍스트 내용에 맞게 높이를 자동으로 조정하도록 Excel의 셀을 얻으려면 어떻게해야합니까? [복제]

Excel에 줄 바꿈 된 텍스트 내용이있는 셀이 있고 셀의 서식을 지정하여 높이가 여러 줄에 걸쳐있을 수있는 내용에 맞게 조정되도록하고 싶습니다. 이 동작을 어떻게 달성 할 수 있습니까?

에서 http://support.microsoft.com/kb/149663

셀의 모든 텍스트에 맞게 행 높이를 조정하려면 다음 단계를 수행하십시오.

행을 선택하십시오.

Microsoft Office Excel 2003 및 이전 버전의 Excel에서는 서식 메뉴에서 행을 가리킨 다음 자동 맞춤을 누릅니다.

Microsoft Office Excel 2007에서 홈 탭을 클릭하고 셀 그룹에서 서식을 클릭 한 다음 행 높이 자동 맞춤을 클릭합니다.

모든 행이 선택된 경우에도 작동

시험

열-> 마우스 오른쪽 단추 클릭-> 셀 서식-> 정렬 탭-> 텍스트 줄 바꿈을 선택하십시오.

병합 된 셀에서는 자동 맞춤이 작동하지 않습니다. 수동으로해야합니다.

이 Microsoft 답변을 참조하십시오.

Excel에서 병합 된 셀이 포함 된 행 또는 열에는 자동 맞춤 기능을 사용할 수 없습니다.

자동으로 수행하지 않으면 행 번호 사이의 작은 선 위에 커서를 놓고 (예 : 1과 2 사이) 두 번 클릭하면 행의 크기가 조정됩니다 (예 : 1의 작은 선 바로 위). (수직 측면에서) 모든 것이 보이도록합니다.

당신은 매크로를 알고 있습니까? 다음 코드를 입력하십시오

Application.ActiveCell.WrapText = True

Worksheet_SelectionChange 서브 루틴 내부.

VBA 솔루션은 다음을 사용하는 것입니다.

 Call Application.ActiveCell.AutoFit

예상대로 작동하도록 할 수있는 유일한 방법은 CTRL-A로 전체 시트를 강조 표시하고 도구 모음에서 "텍스트 줄 바꿈"단추를 클릭 한 다음 다시 선택하는 것입니다. 다른 설정은 변경되지 않지만 각 행은 이제 내용의 "적절한"높이입니다.

범위 (B2 : B1500) 내의 셀이 2014 년 12 월 28 일 이상의 날짜 값으로 인해 이러한 날짜가 작업 표에 표시된다는 경고를 표시하기 때문에 헤더 행의 크기를 조정하려면 다음 VB 코드를 작성했습니다. 2015 년 1 주차 :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    ' The variable KeyCells contains the cells that will
    ' cause an Action when they are changed.
    Set KeyCells = Range("B2:B1500")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        ' Change the height of the header row when one of the defined cdlls is changed
        Rows("1:1").EntireRow.AutoFit

    End If
End Sub