409 pts 이상의 행에 텍스트를 표시하려면 어떻게해야합니까?

Question

나의 과제는 409 포인트 행보다 길지만 인쇄하고 표시 할 텍스트를 얻는 것입니다. 내가 작업하고있는 시트는 자주 바뀔 수있는 소스 시트의 대상 시트이지만 일반적으로 15 개의 셀 중 1 개에서만이 문제를 나타냅니다. 셀 매개 변수는 고정되어 있으므로 글꼴이나 열 너비를 변경할 수 없습니다.

스프레드 시트에서 하나 이상의 행을 삽입하고 필요한 셀을 병합하고 셀 높이를 높이기 위해 행 높이를 변경하는 매크로를 만들었지 만 IF ... END IF을 트리거 할 수있는 행 수가 408 개를 초과 할 때 사용할 수 있습니까? 매크로?

Excel 2007을 사용 중입니다.

Answer 1

매크로 기록 및 행 크기 변경을 시도해보십시오. 그런 다음 매크로가 생성하는 VBA 코드를 검사하여 행의 크기가 코드에서 생성되는 방식을 확인합니다.

VBA 코드는 픽셀을 사용하지 않으므로 변환을 수행하여 409 픽셀을 찾아야합니다. 그런 다음 루프를 사용하여 셀 높이가 특정 값보다 큰 모든 행을 찾을 수 있습니다.

Dim lng As Long 
lng = 1 
Do While Not IsEmpty(Range("A" & lng).Value) 
    If Rows(lng).RowHeight >= 306.75 Then 
    'Insert the code to add a new row here. When looking at the ' 
    'code in your macro, you can replace the row number (e.g. the "18:18" in ' 
    'Rows("18:18") with the counter variable, lng, like so: Rows(lng).... ' 
    'If you want the *following* row, use Rows(lng+1) instead. 
    '' 
    'I'm not sure of the command to insert a new row, but if you do insert a ' 
    'new row, watch your counter. You may need to add an additional ' 
    'lng = lng + 1 into your code to account for the newly added row.' 
    End If 
    lng = lng + 1 
Loop