Hvordan zoomer eller forstørres valgte celler i Excel? 

Som vi alle ved, har Excel en zoom-funktion, der hjælper os med at øge størrelsen på celleværdien i hele regnearket. Men nogle gange er vi kun nødt til kun at zoome eller forstørre de valgte celler. Er der gode ideer til, at vi kun kan forstørre de valgte celler i et regneark?

Zoom eller forstør den valgte celle med VBA-kode

Zoom eller forstør den valgte celle med VBA-kode

Måske er der på ingen direkte måde for os at forstørre de valgte celler i Excel, men her kan jeg introducere en VBA-kode til at håndtere dette job som en løsning. Gør som følger:

1. Højreklik på arkfanen, som du vil forstørre de valgte celler automatisk, og vælg derefter Vis kode fra genvejsmenuen i det åbnede Microsoft Visual Basic til applikationer vindue, kopier og indsæt følgende kode i det tomme modul:

VBA-kode: Zoom eller forstør de valgte celler:

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. Gem og luk derefter dette kodevindue, når du vælger eller klikker på nogle dataceller, forstørres cellerne automatisk som et billede, se skærmbillede:

Bemærk: De valgte celler ændres tilbage til originalstørrelse efter valg af andre celler.