메인 컨텐츠로 가기

Excel에서 셀 값에 따라 글꼴 크기를 빠르게 변경하는 방법은 무엇입니까?

문서 값 7에 따라 글꼴 크기 변경
Excel에서 원하는대로 셀 글꼴 크기를 변경할 수 있지만 아래 스크린 샷과 같이 다른 열 값을 기반으로 셀 글꼴 크기를 변경하려고 시도한 적이 있습니까? 이 기사에서는 Excel의 셀 값에 따라 글꼴 크기를 빠르게 변경하는 데 도움이되는 VBA 코드를 소개합니다.
다른 열 값에 따라 글꼴 크기 변경

셀 값 및 문자 길이에 따라 글꼴 크기 변경

화살표 블루 오른쪽 거품 다른 열 값에 따라 글꼴 크기 변경

다른 열 값에 따라 글꼴 크기를 변경하려면 VBA 코드가 도움이 될 수 있습니다.

1. 다른 열을 기준으로 글꼴 크기를 변경하려는 시트로 이동하여 Alt + F11 열려면 동시에 키 응용 프로그램 용 Microsoft Visual Basic 창.

2. 클릭 끼워 넣다 > 모듈을 클릭 한 다음 VBA 아래에 붙여 넣습니다. 모듈. 스크린 샷보기 :

VBA : 다른 열 값을 기준으로 글꼴 크기 변경

Sub fontchange()
'UpdatebyExtendoffice20160614
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Select cells that you want to change font size:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
        MsgBox "Only can select one column", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xCell.Font.Size = xCell.Offset(, 1).Value
    Next
    Application.ScreenUpdating = True
End Sub

문서 값 2에 따라 글꼴 크기 변경

3. 프레스 F5 키를 누르면 대화 상자가 나타나고 글꼴 크기를 변경할 셀을 선택하십시오. 스크린 샷보기 :
문서 값 3에 따라 글꼴 크기 변경

4. 클릭 OK, 그런 다음 선택한 열의 셀이 열 옆의 값에 따라 글꼴 크기가 조정되었습니다.
문서 값 4에 따라 글꼴 크기 변경


화살표 블루 오른쪽 거품 셀 값 및 문자 길이에 따라 글꼴 크기 변경

반면에 셀 값이 10보다 크거나 문자 길이가 5보다 클 때와 같이 셀 자체 값이나 문자 길이에 따라 글꼴 크기를 변경하려는 경우 글꼴 크기가 16으로 변경됩니다. 글꼴이 Arial로 변경됩니다. 그렇지 않으면 글꼴 크기는 11이고 글꼴은 아래 스크린 샷과 같이 Calibri입니다.
문서 값 5에 따라 글꼴 크기 변경

1. 프레스 Alt + F11 활성화 할 키 응용 프로그램 용 Microsoft Visual Basic 창.

2. 클릭 끼워 넣다 > 모듈, 코드 아래에 붙여 넣어 모듈 스크립트. 스크린 샷보기 :

VBA : 셀 값 또는 문자 길이에 따라 글꼴 크기 변경

Private Sub Worksheet_Calculate()
'UpdatebyExtendoffice20160614
    Dim xCell As Range
    For Each xCell In Range("G2:H9")
        With xCell
            If Len(.Text) > 5 Or Val(.Value) > 10 Then
                .Font.Name = "Arial"
                .Font.Size = 16
            Else
                .Font.Name = "Calibri"
                .Font.Size = 11
            End If
        End With
    Next
End Sub

 

문서 값 6에 따라 글꼴 크기 변경

3. 프레스 F5 키를 눌러 코드를 실행하고 10보다 크거나 문자 길이가 5보다 큰 값은 글꼴을 Arial로 변경하고 글꼴 크기를 16으로 변경했습니다.

팁 : 위의 코드에서 G2 : B9 범위를 원하는대로 변경할 수 있습니다.

최고의 사무 생산성 도구

🤖 Kutools AI 보좌관: 다음을 기반으로 데이터 분석을 혁신합니다. 지능형 실행   |  코드 생성  |  사용자 정의 수식 만들기  |  데이터 분석 및 차트 생성  |  Kutools 기능 호출...
인기 기능: 중복 항목 찾기, 강조 표시 또는 식별   |  빈 행 삭제   |  데이터 손실 없이 열이나 셀 결합   |   수식없이 반올림 ...
슈퍼 조회: 다중 기준 VLookup    다중 값 VLookup  |   여러 시트에 걸친 VLookup   |   퍼지 조회 ....
고급 드롭다운 목록: 드롭다운 목록을 빠르게 생성   |  종속 드롭다운 목록   |  다중 선택 드롭 다운 목록 ....
열 관리자: 특정 개수의 열 추가  |  열 이동  |  Toggle 숨겨진 열의 가시성 상태  |  범위 및 열 비교 ...
특색 지어진 특징: 그리드 포커스   |  디자인보기   |   큰 수식 바    통합 문서 및 시트 관리자   |  리소스 라이브러리 (자동 텍스트)   |  날짜 선택기   |  워크 시트 결합   |  셀 암호화/해독    목록으로 이메일 보내기   |  슈퍼 필터   |   특수 필터 (굵게/기울임꼴/취소선 필터링...) ...
상위 15개 도구 세트12 본문 도구 (텍스트 추가, 문자 제거,...)   |   50+ 거래차트 유형 (Gantt 차트,...)   |   40+ 실용 방식 (생일을 기준으로 나이 계산,...)   |   19 삽입 도구 (QR 코드 삽입, 경로에서 그림 삽입,...)   |   12 매출 상승 도구 (숫자를 단어로, 환율,...)   |   7 병합 및 분할 도구 (고급 결합 행, 셀 분할,...)   |   ... 그리고 더

Excel용 Kutools로 Excel 기술을 강화하고 이전과는 전혀 다른 효율성을 경험해 보세요. Excel용 Kutools는 생산성을 높이고 시간을 절약하기 위해 300개 이상의 고급 기능을 제공합니다.  가장 필요한 기능을 얻으려면 여기를 클릭하십시오...

상품 설명


Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations