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

Hogyan lehet mindig diagramot tartani szem előtt, amikor az Excel-ben görget?

Ha diagram van beillesztve egy munkalapba, miközben az adatok lefelé görgetésével lefelé görgeti a táblázatot, a diagram nem tekinthető meg egyidejűleg az alábbi képernyőképen, ami csúnya. Ebben a cikkben bemutatok egy VBA kódot, hogy a diagram mindig látható legyen, annak ellenére, hogy a lapot lefelé vagy felfelé görgetjük.

doc diagram megtartása az 1. nézetben
doc nyíl lefelé
doc diagram megtartása az 2. nézetben

Mindig tartsa szem előtt a diagramot


nyíl kék jobb buborék Mindig tartsa szem előtt a diagramot

Ha diagramot szeretne megtartani a görgetés közben, akkor a VBA kód alatt alkalmazhatja annak megoldására.

1. Kattintson a jobb gombbal a lap fülre, amelyen látható diagramot kíván tartani, majd kattintson a gombra Kód megtekintése alkotja a helyi menüt. Lásd a képernyőképet:
doc diagram megtartása az 3. nézetben

2. A durranásban Microsoft Visual Basic for Applications ablakba illessze be a kódot az üres parancsfájlba.

VBA: A diagram mindig legyen látható

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

doc diagram megtartása az 5. nézetben

3. Mentse és zárja be a párbeszédpanelt, majd a diagram lefelé vagy felfelé mozog, amikor bármely cellára kattint.
doc diagram megtartása az 6. nézetben

Megjegyzések:

(1) A VBA kódban a 2. ábra a diagram neve, amelyet szem előtt akar tartani, szükség szerint módosíthatja.

(2) Ez a VBA nem mindig tarthatja szem előtt a diagramok egy csoportját.


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (13)
Az 5-t az 5-ből kiértékelte · 1 értékelés
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez jó volt, de bárcsak lenne mód, hogy a görgővel együtt mozogjon, mint az irányvonalak. Ha ki akarok jelölni egy cellát, akkor két kattintás szükséges. Az első kattintás mozgatja a diagramot, de kijelöli a diagramot is, így újra kell kattintanom a cella kiválasztásához.
A weboldal moderátora ezt a megjegyzést minimalizálta
A kód utolsó sorába hozzáadtam az "activecell.select" kifejezést, és kijavította a dupla kattintással kapcsolatos problémát. Automatikusan kiválasztja az utolsó aktív cellát, amelyre a diagram mozgatásához kattintott. Remélem ez segít.
A weboldal moderátora ezt a megjegyzést minimalizálta
ERRE SZÜKSÉGEM volt! ARANYSÁRGA!
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez a makró pontosan azt csinálta, amit szerettem volna. Azonban ez újabb problémát okozott, amire kíváncsi voltam, hogy van-e megoldás.

Amíg ez a makró aktív, nem tudok cellákat kiválasztani más célokra, például formázásra vagy összevonásra. Kattintással és húzással, a shift vagy a Ctrl billentyűkkel jelölhet ki egy cellacsoportot. Csak azt az egy cellát tudom kiválasztani, amelyre kattintottam. Gyakran szeretném megváltoztatni a formázást (háttér, képlet kitöltése stb.) Ezt csak úgy tudtam megtenni, hogy törlöm a makrót, elmentem, végrehajtom a formázási módosításokat, visszaillesztem a makrót és elmentem.

Van ennek egyszerűbb módja? Talán:

1. (előnyös) Egyszerű billentyűleütés, amely ideiglenesen letiltja, majd újra engedélyezi a makrót.

2. Néhány kód hozzáadva a makróhoz, hogy lehetővé tegye egy cellacsoport kiválasztását.

Dennis
A weboldal moderátora ezt a megjegyzést minimalizálta
Létezik hasonló képlet a Google Táblázatokhoz?
A weboldal moderátora ezt a megjegyzést minimalizálta
Van mód annak korlátozására, hogy a diagram milyen magasra helyezkedjen át a lapon? Nem szeretném, ha a 8. sor fölé kerülne
A weboldal moderátora ezt a megjegyzést minimalizálta
Hola muchas gracias por el código, utilizando este código ¿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.
Az 5-t az 5-ből kiértékelte
A weboldal moderátora ezt a megjegyzést minimalizálta
használhatom a Kutools-t, hogy automatikusan használjam azt a VBA-t a diagramjaimhoz?
A weboldal moderátora ezt a megjegyzést minimalizálta
Sajnálom, Wangnuli, a Kutools ezt eddig nem támogatta.
A weboldal moderátora ezt a megjegyzést minimalizálta
Tud valaki segíteni. amikor követem ezeket a lépéseket


Private Sub Worksheet_SelectionChange (ByVal Target as Range)
'Frissítés általExtendoffice20161111
Dim CPos As Double
Application.ScreenUpdating = Hamis
CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
ActiveSheet.ChartObjects("2. diagram"). Aktiválja
ActiveSheet.Shapes("2. diagram").Top = CPos
ActiveWindow.Visible = Hamis
Application.ScreenUpdating = Igaz
End Sub


a következő hibát kapom

Futásidejű hiba '-2147024809 (80070057)':
A megadott nevű elem nem található

amikor hibakeresem
ActiveSheet.ChartObjects("2. diagram"). Aktiválja
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, Christo, meg kell változtatnod a "Chart 2" diagram nevét a szkriptben szereplő diagram valódi nevére. A diagramra kattintva megtekintheti a nevét a névmezőben. Lásd a képernyőképet:
https://www.extendoffice.com/images/stories/comments/sun-comment/do_chart_name.png
A weboldal moderátora ezt a megjegyzést minimalizálta
igen köszi. Miután feltettem a kérdést, rájöttem, hogy a diagram nevem rossz
köszönöm

ps.
Talán tudja, hogyan tudom a diagramot láthatóvá tenni görgetés közben anélkül, hogy rákattintanék arra, ahová követnie kell
A weboldal moderátora ezt a megjegyzést minimalizálta
Problémába ütköztem a cella kijelölésének törlésével, és két diagramra volt szükségem, ezért elvégeztem néhány változtatást, és úgy tűnik, most működik.
Használatához adja meg a megfelelő diagram nevét.
*Megjegyzés: Ez két diagramhoz való


Private Sub workheet_selectionchange(ByVal cél tartományként)
Dim chartposition As Double

chartposition = ActiveWindow.ScrollRow * ActiveCell.RowHeight
ActiveSheet.Shapes("2. diagram").Top = diagrampozíció

ActiveSheet.ChartObjects("3. diagram").Top = diagrampozíció + 250

End Sub
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi