Brian은 Excel에서 현재 셀의 내용을 확대하는 방법이 있는지 물었습니다. 그는 전체 시트를보기 위해 낮은 확대 / 축소 설정 (30 % 정도)에 있어야하는 워크 시트를 작업하고 있습니다. 다른 시나리오가 실행되면 결과에 따라 셀의 색상이 변경됩니다. Brian은 조사해야하는 셀을 쉽게 볼 수 있지만 확대 / 축소 설정 때문에 읽을 수 없습니다. 그는 일반적으로 확대 / 축소를 변경하고 답을 읽고 다시 축소하여 다른 시나리오를 실행합니다. 현재 셀 (선택한 셀) 만 읽을 수있는 수준으로 확대하면 훨씬 쉬울 것입니다.

이 선택적 확대 / 축소 방법을 수행하는 Excel에는 기본 제공 방법이 없지만 사용할 수있는 몇 가지 해결 방법이 있습니다. 이러한 해결 방법 중 하나는 메시지 상자의 활성 셀에 값을 표시하는 매크로를 사용하는 것입니다. 이러한 매크로는 워크 시트 모듈에 쉽게 추가 할 수 있습니다.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

MsgBox ActiveCell.Address & ": " & ActiveCell.Value End Sub

워크 시트에서 다른 셀을 선택할 때마다 매크로가 해당 셀의 내용을 보여주는 메시지 상자를 표시합니다. 이렇게하면 문제가 해결되지만 선택한 셀을 변경할 때마다 메시지 상자를 계속 닫는 것이 귀찮을 수 있습니다.

현재 선택된 셀의 글꼴 크기를 간단히 변경하는 매크로를 만들 수도 있습니다. 워크 시트 모듈에 추가 된 다음 간단한 매크로는 현재 선택된 셀을보고 글꼴 크기를 500 % 늘립니다.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

FontSize = ActiveCell.Font.Size     LargeSize = FontSize * 5     Cells.Font.Size = FontSize     ActiveCell.Font.Size = LargeSize End Sub

물론 이러한 매크로의 유틸리티는 선택한 셀의 높이와 너비를 포맷하는 방법에 따라 다릅니다. 정적 높이와 너비 인 경우 글꼴 크기를 늘리면 셀 내용을 읽을 수 없게 될 수 있습니다. 높이와 너비가 동적 인 경우에도 내용을 읽을 수 있어야합니다.

또 다른 접근 방식은 각 셀이 선택 될 때 확대 된 그림을 직접 만드는 것입니다.

Private Sub ZoomCell(ZoomIn As Single)

Dim s As Range     Set s = Selection

'Get rid of any existing zoom pictures     For Each p In ActiveSheet.Pictures         If p.Name = "ZoomCell" Then             p.Delete             Exit For         End If     Next

'Create a zoom picture     s.CopyPicture Appearance:=xlScreen, _       Format:=xlPicture     ActiveSheet.Pictures.Paste.Select     With Selection         .Name = "ZoomCell"

With .ShapeRange             .ScaleWidth ZoomIn, msoFalse, _               msoScaleFromTopLeft             .ScaleHeight ZoomIn, msoFalse, _               msoScaleFromTopLeft             With .Fill                 .ForeColor.SchemeColor = 9                 .Visible = msoTrue                 .Solid             End With         End With     End With     s.Select     Set s = Nothing End Sub

매크로를 사용하려면 워크 시트의 선택 항목이 변경 될 때마다 매크로를 호출해야합니다. 이렇게하려면 워크 시트 모듈에 작은 매크로를 추가합니다.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ZoomCell 6 End Sub

이 경우 셀 선택이 변경 될 때마다 ZoomCell 매크로가 실행되어 원본 크기의 6 배 크기의 그림을 만듭니다. 다른 셀을 선택할 때마다 그림이 자동으로 변경되도록하는 것이 번거 롭다면 워크 시트 모듈의 트리거 매크로를 제거하고 ZoomCell 매크로를 수정하여 시작할 때마다 실행되도록 수정할 수 있습니다. 당신이 설정합니다.

Sub ZoomCell()

Dim s As Range     Dim ZoomIn As Single     Set s = Selection     ZoomIn = 6

'Get rid of any existing zoom pictures     For Each p In ActiveSheet.Pictures         If p.Name = "ZoomCell" Then             p.Delete             Exit For         End If     Next

'Create a zoom picture     s.CopyPicture Appearance:=xlScreen, _       Format:=xlPicture     ActiveSheet.Pictures.Paste.Select     With Selection         .Name = "ZoomCell"

With .ShapeRange             .ScaleWidth ZoomIn, msoFalse, _               msoScaleFromTopLeft             .ScaleHeight ZoomIn, msoFalse, _               msoScaleFromTopLeft             With .Fill                 .ForeColor.SchemeColor = 9                 .Visible = msoTrue                 .Solid             End With         End With     End With     s.Select     Set s = Nothing End Sub

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (10426)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다. 여기에서 Excel의 이전 메뉴 인터페이스에 대한이 팁 버전을 찾을 수 있습니다.

link : / excel-Magnifying_Only_the_Current_Cell [현재 셀만 확대].