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

Kako med pregledovanjem v Excelu vedno obdržati grafikon?

Če je v listu vstavljen grafikon, medtem ko med pomikanjem lista navzdol prikazujete podatke, grafikona ni mogoče videti hkrati, kot je prikazano na spodnji sliki zaslona, ​​kar mora biti grdo. V tem članku predstavljam kodo VBA, da je grafikon vedno na vidnem mestu, čeprav se list pomikate navzdol ali navzgor.

doc vodi grafikon v pogledu 1
doc puščica navzdol
doc vodi grafikon v pogledu 2

Vedno imejte grafikon na vidnem mestu


puščica modri desni mehurček Vedno imejte grafikon na vidnem mestu

Če želite obdržati grafikon med pomikanjem po listu, lahko za njegovo rešitev uporabite spodnjo kodo VBA

1. Z desno miškino tipko kliknite zavihek lista, za katerega želite, da je grafikon viden, in kliknite Ogled kode iz kontekstnega menija. Oglejte si posnetek zaslona:
doc vodi grafikon v pogledu 3

2. V popping Microsoft Visual Basic za aplikacije okno, prilepite spodnjo kodo v prazen skript.

VBA: Grafikon naj bo vedno v ogledu

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 vodi grafikon v pogledu 5

3. Shranite in zaprite pogovorno okno, nato pa se grafikon premakne navzdol ali navzgor, ko kliknete katero koli celico.
doc vodi grafikon v pogledu 6

Opombe:

(1) V kodi VBA je grafikon 2 ime grafikona, ki ga želite imeti na ogled, lahko ga spremenite po potrebi.

(2) Ta VBA ne more vedno imeti na ogled skupine grafikonov.


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (13)
Ocenjeno 5 iz 5 · 1 ocene
Ta komentar je moderator na spletnem mestu minimiziral
To je bilo dobro, vendar si želim, da bi obstajal način, da se premika samo s kolescem za pomikanje, kot so vrstice smeri. Tudi če želim izbrati celico, traja dva klika. Prvi klik premakne grafikon, vendar tudi izbere grafikon, zato moram znova klikniti, da izberem celico.
Ta komentar je moderator na spletnem mestu minimiziral
V zadnjo vrstico te kode sem dodal "activecell.select" in odpravil je težavo z dvojnim klikom. Samodejno bo izbral zadnjo aktivno celico, ki bo tista, na katero ste kliknili, da premaknete grafikon. Upam, da to pomaga.
Ta komentar je moderator na spletnem mestu minimiziral
TO JE POTREBIL! ZLATA!
Ta komentar je moderator na spletnem mestu minimiziral
Ta makro je naredil točno to, kar sem želel. Vendar je povzročilo še eno težavo, za katero sem se spraševal, ali imate morda rešitev.

Medtem ko je ta makro aktiven, ne morem izbrati celic za druge namene, kot je njihovo oblikovanje ali spajanje. Kliknite in povlecite, premikajte ali ctrl, da izberete skupino celic. Izberem lahko samo eno celico, na katero sem kliknil. Pogosto želim spremeniti oblikovanje (ozadje, izpolniti formulo itd.) Edini način, kako mi je to uspelo, je, da izbrišem makro, shranim, spremenim svoje oblikovanje, prilepim makro nazaj in shranim.

Ali obstaja enostavnejši način za to? morda:

1. (zaželeno) Preprost pritisk na tipko, ki bi začasno onemogočil makro in ga nato znova omogočil.

2. Makru je dodana neka koda, ki omogoča izbiro skupine celic.

Dennis
Ta komentar je moderator na spletnem mestu minimiziral
Ali obstaja podobna formula, ki jo je mogoče zgraditi za Google Preglednice?
Ta komentar je moderator na spletnem mestu minimiziral
Ali obstaja način, da omejite, kako visoko na listu se bo grafikon preselil? Ne želim, da je pritrjen nad vrstico 8
Ta komentar je moderator na spletnem mestu minimiziral
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.
Ocenjeno 5 iz 5
Ta komentar je moderator na spletnem mestu minimiziral
ali lahko uporabim Kutools za samodejno uporabo tega VBA za svoje grafikone??
Ta komentar je moderator na spletnem mestu minimiziral
Oprosti, Wangnuli, Kutools tega doslej še ni podpiral.
Ta komentar je moderator na spletnem mestu minimiziral
Ali lahko kdo pomaga. ko sledim tem korakom


Zasebni pod delovni list_Sprememba izbora(ByVal Target As Range)
'PosodobitevExtendoffice20161111
Zatemni CPos kot dvojno
Application.ScreenUpdating = Napačno
CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
ActiveSheet.ChartObjects("Grafikon 2").Aktiviraj
ActiveSheet.Shapes("Chart 2").Top = CPos
ActiveWindow.Visible = False
Application.ScreenUpdating = Res
End Sub


dobim naslednjo napako

Napaka med izvajanjem '-2147024809 (80070057)':
Elementa z navedenim imenom ni bilo mogoče najti

ko odpravljam napake
ActiveSheet.ChartObjects("Grafikon 2").Aktiviraj
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Christo, ime grafikona "Grafikon 2" moraš spremeniti v pravo ime grafikona v skriptu. Lahko kliknete grafikon in vidite njegovo ime v polju z imenom. Oglejte si posnetek zaslona:
https://www.extendoffice.com/images/stories/comments/sun-comment/do_chart_name.png
Ta komentar je moderator na spletnem mestu minimiziral
ja, hvala. ko sem zastavil vprašanje, sem ugotovil, da je ime mojega grafikona napačno
hvala

ps.
Ali morda veste, kako lahko naredim, da je grafikon vedno v pogledu, ko se pomikam, ne da bi kliknil, kamor mora slediti
Ta komentar je moderator na spletnem mestu minimiziral
Naletel sem na težavo pri preklicu izbire celice in potreboval sem dva grafikona, zato sem naredil nekaj sprememb in zdi se, da zdaj deluje.
Če ga želite uporabiti, vnesite pravo ime grafikona.
*Opomba: ta je za dva grafikona


Private Subworksheet_selectionchange(ByVal target As Range)
Zatemnjen položaj grafikona Kot dvojno

chartposition = ActiveWindow.ScrollRow * ActiveCell.RowHeight
ActiveSheet.Shapes("Chart 2").Top = položaj grafikona

ActiveSheet.ChartObjects("Grafikon 3").Top = položaj grafikona + 250

End Sub
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL