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

Jak při posouvání v aplikaci Excel vždy udržovat přehled grafu?

Pokud je v listu vložen graf, při procházení listem dolů pro zobrazení dat nelze graf zobrazit současně s níže uvedeným screenshotem, což musí být ošklivé. V tomto článku představuji kód VBA, aby byl graf vždy zobrazen, i když posouvá list dolů nebo nahoru.

udržujte graf v zobrazení 1
šipka dokumentu dolů
udržujte graf v zobrazení 2

Vždy mějte přehledný graf


šipka modrá pravá bublina Vždy mějte přehledný graf

Chcete-li zachovat zobrazení grafu při posouvání listu, můžete jej vyřešit pomocí níže uvedeného kódu VBA.

1. Klikněte pravým tlačítkem na kartu listu, kterou chcete, aby byl graf viditelný, a klikněte na Zobrazit kód tvoří místní nabídku. Viz snímek obrazovky:
udržujte graf v zobrazení 3

2. V praskání Microsoft Visual Basic pro aplikace okno, vložte pod kód do prázdného skriptu.

VBA: Mějte graf vždy na očích

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice20161111
    Dim CPos As Double
    Application.ScreenUpdating = False
    CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveSheet.Shapes("Chart 2").Top = CPos
    ActiveWindow.Visible = False
    Application.ScreenUpdating = True
End Sub

udržujte graf v zobrazení 5

3. Uložte a zavřete dialogové okno, poté se graf přesune dolů nebo nahoru, když kliknete na libovolnou buňku.
udržujte graf v zobrazení 6

Poznámky:

(1) V kódu VBA je graf 2 název grafu, který chcete ponechat v zobrazení, můžete jej podle potřeby změnit.

(2) Tento VBA nedokáže vždy zobrazit skupinu grafů.


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 (12)
Hodnocení 5 z 5 · 1 hodnocení:
Tento komentář byl moderátorem webu minimalizován
Bylo to dobré, ale přál bych si, aby existoval způsob, jak by se to pohybovalo pouze rolovacím kolečkem, jako jsou řádky. Také pokud chci vybrat buňku, trvá to dvě kliknutí. První kliknutí posune graf, ale také vybere graf, takže musím znovu kliknout, abych vybral buňku.
Tento komentář byl moderátorem webu minimalizován
Na poslední řádek tohoto kódu jsem přidal "activecell.select" a problém s dvojitým kliknutím vyřešil. Automaticky vybere poslední aktivní buňku, což bude ta, na kterou jste klikli, abyste přesunuli graf. Snad to pomůže.
Tento komentář byl moderátorem webu minimalizován
TOHLE JSEM POTŘEBOVALA! ZLATÝ!
Tento komentář byl moderátorem webu minimalizován
Toto makro udělalo přesně to, co jsem chtěl. Vytvořilo to však další problém, který mě napadlo, jestli byste mohli mít řešení.

Když je toto makro aktivní, nemohu vybrat buňky pro jiné účely, jako je jejich formátování nebo sloučení. Klepnutím a přetažením, Shift ani Ctrl vyberte skupinu buněk. Mohu vybrat pouze jednu buňku, na kterou jsem klikl. Často chci změnit formátování (pozadí, vyplnit vzorec atd.) Jediný způsob, jak to udělat, je odstranit makro, uložit, provést změny ve formátování, vložit makro zpět a uložit.

Existuje jednodušší způsob, jak to udělat? Možná:

1. (preferováno) Jednoduchý stisk klávesy, který dočasně zakáže makro a poté jej znovu povolí.

2. Do makra byl přidán kód umožňující výběr skupiny buněk.

Dennis
Tento komentář byl moderátorem webu minimalizován
Existuje podobný vzorec, který lze vytvořit pro Tabulky Google?
Tento komentář byl moderátorem webu minimalizován
Existuje způsob, jak omezit, jak vysoko na listu se graf přesune? Nechci, aby byl připojen nad řádek 8
Tento komentář byl moderátorem webu minimalizován
Hola muchas gracias por el código, utilizando este code ¿Hay alguna manera de limitar qué tan alto en la hoja se reubicará el gráfico? por ejemplo, no quiero que se coloque encima de la fila 9. Ayuda por favor.
Hodnocení 5 z 5
Tento komentář byl moderátorem webu minimalizován
mohu použít Kutools k automatickému použití VBA pro mé grafy?
Tento komentář byl moderátorem webu minimalizován
Je nám líto, Wangnuli, Kutools to zatím nepodporuje.
Tento komentář byl moderátorem webu minimalizován
Může někdo pomoci. když budu postupovat podle těchto kroků


Private Sub Worksheet_SelectionChange (ByVal Target As Range)
'AktualizovatExtendoffice20161111
Dim CPos As Double
Application.ScreenUpdating = False
CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
ActiveSheet.ChartObjects("Graf 2").Aktivovat
ActiveSheet.Shapes("Graf 2").Top = CPos
ActiveWindow.Visible = False
Application.ScreenUpdating = True
End Sub


dostávám následující chybu

Chyba běhu '-2147024809 (80070057)':
Položka se zadaným názvem nebyla nalezena

když ladím
ActiveSheet.ChartObjects("Graf 2").Aktivovat
Tento komentář byl moderátorem webu minimalizován
Ahoj, Christo, potřebuješ ve skriptu změnit název grafu "Chart 2" na svůj skutečný název. Můžete kliknout na graf a zobrazit jeho název v poli názvu. Viz snímek obrazovky:
https://www.extendoffice.com/images/stories/comments/sun-comment/do_chart_name.png
Tento komentář byl moderátorem webu minimalizován
Ano díky. po položení otázky jsem si uvědomil, že název mého grafu je špatný
Díky

ps.
možná víte, jak mohu zajistit, aby byl graf zobrazen při posouvání bez kliknutí tam, kde musí následovat?
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í