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.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
