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

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

VBA 코드로 선택한 셀 확대 / 축소 또는 확대

VBA 코드로 선택한 셀 확대 / 축소 또는 확대

Excel에서 선택한 셀을 확대하는 직접적인 방법이 없을 수도 있지만 여기서는이 작업을 해결 방법으로 처리하는 VBA 코드를 소개 할 수 있습니다. 다음과 같이하십시오 :

1. 선택한 셀을 자동으로 확대 할 시트 탭을 마우스 오른쪽 단추로 클릭 한 다음 코드보기 컨텍스트 메뉴에서 열린 애플리케이션 용 Microsoft Visual Basic 창에서 다음 코드를 복사하여 빈 모듈에 붙여 넣습니다.

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. 그런 다음이 코드 창을 저장하고 닫습니다. 이제 일부 데이터 셀을 선택하거나 클릭하면 셀이 자동으로 그림으로 확대됩니다. 스크린 샷을 참조하십시오.

주의 사항: 다른 셀을 선택하면 선택한 셀이 원래 크기로 변경됩니다.