20, 30, 40과 같이 수직 높이가 다른 테이블이 있습니다. 높이는 자동 맞춤으로 정렬됩니다. 문제는 세포가 서로 매우 가깝다는 것입니다. 상단과 하단에 공간을 주고 싶습니다. 세로 정렬을 시도했지만 셀 사이에 공백을 추가할 수 없습니다. 20,30,40에서 22,33,44로 여러 셀의 비율이 증가하면 정말 좋을 것 같습니다. 10% 또는 20,30, 40에서 22로 지속적으로 증가하면 좋을 것 같습니다. , 32, 42. 2 상수
답변1
VBA(매크로)는 문제를 해결할 수 있습니다.
Sub Setrowheight()
Dim hgt As Variant
Dim WorkRng As Range
xTxt = ActiveWindow.RangeSelection.Address
Set WorkRng = Application.InputBox("Please select the height range:", "Row Height", xTxt, , , , , 8)
For Each H In WorkRng
If H.Value > 15 Then
hgt = H.Value
H.EntireRow.Select
Selection.rowheight = hgt
End If
Next H
End Sub
작동 방식:
- Col A의 해당 셀에 값을 삽입합니다.
- 어느 하나마우스 오른쪽 버튼으로 클릭시트 탭과 팝업 메뉴 히트에서코드 보기또는Alt+F11VB 편집기를 얻으려면.
- 왼쪽 상단에서 찾기프로젝트 탐색기,시트 탭그 다음에마우스 오른쪽 버튼으로 클릭그리고 치다끼워 넣다그 다음에기준 치수.
- 복사&반죽이 코드.
- 달리다매크로.
A12:A17
응답할 범위를 선택하세요 .입력 상자& 와 끝내다좋아요
해당 행의 높이가 의 셀 값을 사용하여 설정되었음을 알 수 있습니다 A12:A17
.
주의
15.00
따라서 표준 행 높이는A12:A17
행 높이를 높이거나 낮추는 것을 고려하여 삽입 값입니다.필요에 따라 셀 참조를 조정할 수 있습니다.