Excel에서 선택한 셀을 확대하거나 확대하는 방법은 무엇입니까? 

우리 모두가 알고 있듯이, Excel에는 전체 워크시트에서 셀 값의 크기를 늘리는 데 도움을 주는 확대/축소 기능이 있습니다. 하지만 때때로 우리는 선택한 셀만 확대하거나 확대하고 싶을 수 있습니다. 워크시트에서 선택한 셀만 확대할 수 있는 좋은 아이디어가 있을까요?

VBA 코드를 사용하여 선택한 셀 확대 또는 확대하기

VBA 코드를 사용하여 선택한 셀 확대 또는 확대하기

Excel에서 선택한 셀을 확대할 수 있는 직접적인 방법은 없을지 모르지만, 여기에서는 이 작업을 처리하기 위한 해결 방법으로 VBA 코드를 소개하겠습니다. 아래 단계를 따르세요:

1. 자동으로 선택한 셀을 확대하려는 시트 탭을 마우스 오른쪽 버튼으로 클릭한 다음, 컨텍스트 메뉴에서 '보기 코드'를 선택하세요. 열린 Microsoft Visual Basic for Applications 창에서 다음 코드를 복사하여 비어있는 모듈에 붙여넣으세요:

VBA 코드: 선택한 셀 확대 또는 확대하기:

Private Sub worksheet_selectionchange(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xShape As Variant
    Set xRg = Target.Areas(1)
    For Each xShape In ActiveSheet.Pictures
        If xShape.Name = "zoom_cells" Then
            xShape.Delete
        End If
    Next
    If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then Exit Sub
    Application.ScreenUpdating = False
    xRg.CopyPicture appearance:=xlScreen, Format:=xlPicture
    Application.ActiveSheet.Pictures.Paste.Select
    With Selection
        .Name = "zoom_cells"
        With .ShapeRange
            .ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
            .ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
            With .Fill
                .ForeColor.SchemeColor = 44
                .Visible = msoTrue
                .Solid
                .Transparency = 0
            End With
        End With
    End With
    xRg.Select
    Application.ScreenUpdating = True
    Set xRg = Nothing
End Sub

2. 그런 다음 이 코드 창을 저장하고 닫으세요. 이제 데이터 셀을 선택하거나 클릭하면 해당 셀이 자동으로 사진처럼 확대됩니다. 스크린샷을 참조하세요:

참고: 다른 셀을 선택하면 선택한 셀은 원래 크기로 돌아갑니다.