Note: The other languages of the website are Google-translated. Back to English

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ší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (9)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
to je skvělé, ale chci, aby to běželo ve všech listech, jak to mohu udělat?
Tento komentář byl moderátorem webu minimalizován
Ahoj Ahmete,
Chcete-li použít tuto operaci ve všech listech, můžete použít níže uvedený kód vba. (Kód byste měli vložit do modulu ThisWorkbook). Zkuste to prosím.
Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, ByVal Target As Range)
Dim xRg jako rozsah
Dim xCell As Range
Dim xShape jako varianta
Nastavit xRg = Target.Areas(1)
Pro každý xShape v ActiveSheet.Pictures
If xShape.Name = "zoom_cells" Then
xShape.Delete
End If
další
If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then Exit Sub
Application.ScreenUpdating = False
xRg.CopyPicture vzhled:=xlScreen, Formát:=xlPicture
Application.ActiveSheet.Pictures.Paste.Select
S výběrem
.Name = "zoom_cells"
S .ShapeRange
.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
S .Fill
.ForeColor.SchemeColor = 44
.Visible = msoTrue
.Pevný
.Transparentnost = 0
Konec s
Konec s
Konec s
xRg.Vybrat
Application.ScreenUpdating = True
Nastavit xRg = nic
End Sub
Tento komentář byl moderátorem webu minimalizován
Chci při zadávání dat zvětšit
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Možná neexistuje žádná přímá cesta k vyřešení vašeho problému, pokud najdete dobrou metodu, napište to sem.
Tento komentář byl moderátorem webu minimalizován
Chyba 1004 na řádku 15

Application.ActiveSheet.Pictures.Paste.Select

Proč?, co by to mohlo být?
Tento komentář byl moderátorem webu minimalizován
Ahoj, Mazzi,
Výše uvedený kód funguje dobře v mém sešitu aplikace Excel, kterou verzi aplikace Excel používáte?
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Používám Mac-Air a zobrazí se pouze barva, když kliknete na konkrétní buňku ac, prosím průvodce.
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
To je skvělé - děkuji.

Bylo by možné mít toto pouze na výběru buněk na listu? Například všechny buňky ve sloupci A nebo například A3 až A26?
Děkuji!
Rhys
Tento komentář byl moderátorem webu minimalizován
Ragazzi perso cos' non posso correggere la singola cella...esiste un modo per ingrandire la single cella una volta selezionata e lavorarci sopra ?
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění