Hogyan lehet nagyítani vagy nagyítani a kiválasztott cellákat az Excelben?
Mint mindannyian tudjuk, az Excel rendelkezik Zoom funkcióval, amely segít növelni a cellaérték méretét az egész munkalapon. De néha csak a kiválasztott cellákat kell nagyítanunk vagy nagyítanunk. Van-e valami jó ötlet számunkra, hogy a kiválasztott cellákat csak munkalapon bővítsük?
Nagyítsa vagy nagyítsa a kiválasztott cellát VBA kóddal
Nagyítsa vagy nagyítsa a kiválasztott cellát VBA kóddal
Lehet, hogy közvetlen módon nem tudjuk nagyítani a kiválasztott cellákat az Excel-ben, de itt bemutathatok egy VBA-kódot, amely megoldást jelenthet erre a feladatra. Kérjük, tegye a következőket:
1. Kattintson a jobb gombbal azon a lapfülön, amelyen automatikusan szeretné kinagyítani a kijelölt cellákat, majd válassza a lehetőséget Kód megtekintése a helyi menüből, a megnyílt Microsoft Visual Basic alkalmazásokhoz ablakba másolja és illessze be a következő kódot az üres modulba:
VBA kód: A kijelölt cellák nagyítása vagy nagyítása:
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. Ezután mentse el és zárja be ezt a kódablakot. Most, amikor kijelöl vagy rákattint néhány adatcellára, a cellák automatikusan képként lesznek nagyítva, lásd a képernyőképet:
Megjegyzések: A kiválasztott cellák az eredeti méretre kerülnek vissza, miután kiválasztották a többi cellát.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!