Jak zvětšit nebo zvětšit vybrané buňky v aplikaci Excel?
Jak všichni víme, Excel má funkci Lupa, která nám pomáhá zvětšit velikost hodnoty buňky v celém listu. Někdy však stačí zvětšit nebo zvětšit pouze vybrané buňky. Existují nějaké dobré nápady pro zvětšení vybraných buněk pouze v listu?
Zvětšete nebo zvětšete vybranou buňku pomocí kódu VBA
Zvětšete nebo zvětšete vybranou buňku pomocí kódu VBA
Možná tam nebude žádný přímý způsob, jak bychom mohli zvětšovat vybrané buňky v aplikaci Excel, ale zde mohu zavést kód VBA pro řešení této úlohy jako řešení. Postupujte prosím následovně:
1. Klikněte pravým tlačítkem na kartu listu, kterou chcete automaticky zvětšit vybrané buňky, a poté vyberte Zobrazit kód z kontextového menu v otevřeném Microsoft Visual Basic pro aplikace okno, zkopírujte a vložte následující kód do prázdného modulu:
Kód VBA: Zvětšení nebo zvětšení vybraných buněk:
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. Poté uložte a zavřete toto okno s kódem, nyní, když vyberete nebo kliknete na některé datové buňky, buňky se automaticky zvětší jako obrázek, viz screenshot:
Poznámka: Vybrané buňky se po výběru dalších buněk změní zpět na původní velikost.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!