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

Hvordan holder man altid et diagram, når man ruller i Excel?

Hvis der er et diagram indsat i et ark, mens du ruller arket ned for at se dataene, kan diagrammet ikke vises på samme tid som nedenstående skærmbillede vist, hvilket skal være grimt. I denne artikel introducerer jeg en VBA-kode for at holde et diagram altid synligt, selvom jeg ruller arket ned eller op.

doc holde skemaet i visning 1
dok pil ned
doc holde skemaet i visning 2

Hold altid et diagram i visningen


pil blå højre boble Hold altid et diagram i visningen

For at bevare et diagram, når du ruller, kan du anvende nedenstående VBA-kode for at løse det.

1. Højreklik på arkfanen, hvor du vil holde diagrammet synligt, og klik på Vis kode danne genvejsmenuen. Se skærmbillede:
doc holde skemaet i visning 3

2. I popping Microsoft Visual Basic til applikationer vindue, indsæt koden under det tomme script.

VBA: Hold skemaet altid synligt

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 holde skemaet i visning 5

3. Gem og luk dialogen, så flyttes diagrammet ned eller op, når du klikker på en hvilken som helst celle.
doc holde skemaet i visning 6

Bemærkninger:

(1) I VBA-koden er figur 2 det kortnavn, du vil holde øje med, du kan ændre det efter behov.

(2) Denne VBA kan ikke altid holde en gruppe af diagrammer synlige.


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (15)
Bedømt 4.75 ud af 5 · 2 vurderinger
Denne kommentar blev minimeret af moderatoren på webstedet
Det var godt, men jeg ville ønske, at der var en måde, hvorpå den bare kunne bevæge sig med rullehjulet, som overskriftslinjer. Også hvis jeg vil vælge en celle, tager det to klik. Det første klik flytter diagrammet, men vælger også diagrammet, så jeg skal klikke igen for at markere cellen.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg tilføjede "activecell.select" på den sidste linje i denne kode, og det løste problemet med dobbeltklik. Den vil automatisk vælge den sidste aktive celle, som vil være den, du klikkede på for at flytte diagrammet. Håber dette hjælper.
Denne kommentar blev minimeret af moderatoren på webstedet
DET ER DET JEG BRUGT! GYLDEN!
Denne kommentar blev minimeret af moderatoren på webstedet
Denne makro gjorde præcis, hvad jeg ville. Men det skabte et andet problem, som jeg spekulerede på, om du måske har en løsning på.

Mens denne makro er aktiv, kan jeg ikke vælge celler til andre formål, såsom at formatere eller flette dem. Klik og træk, shift eller ctrl arbejde for at vælge en gruppe celler. Jeg kan kun vælge den ene celle, jeg klikkede på. Jeg vil ofte ændre formatering (baggrund, udfylde en formel osv.) Den eneste måde jeg har kunnet gøre dette på er at slette makroen, gemme, lave mine formateringsændringer, indsætte makroen igen og gemme.

Er der en nemmere måde at gøre dette på? Måske:

1. (foretrukket) Et simpelt tastetryk, der midlertidigt vil deaktivere makroen og derefter genaktivere den.

2. Noget kode tilføjet til makroen for at tillade valg af en gruppe celler.

Dennis
Denne kommentar blev minimeret af moderatoren på webstedet
Er der en lignende formel, der kan bygges til Google Sheets?
Denne kommentar blev minimeret af moderatoren på webstedet
Er der en måde at begrænse, hvor højt oppe på arket diagrammet flyttes til? Jeg ønsker ikke, at den skal anbringes over række 8
Denne kommentar blev minimeret af moderatoren på webstedet
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.
Bedømt 5 ud af 5
Denne kommentar blev minimeret af moderatoren på webstedet
kan jeg bruge Kutools til automatisk at bruge den VBA til mine diagrammer??
Denne kommentar blev minimeret af moderatoren på webstedet
Beklager, Wangnuli, Kutools har ikke understøttet dette indtil videre.
Denne kommentar blev minimeret af moderatoren på webstedet
Kan nogen hjælpe. når jeg følger disse trin


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Opdatering afExtendoffice20161111
Dim CPo'er som dobbelt
Application.ScreenUpdating = False
CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
ActiveSheet.ChartObjects("Chart 2"). Aktiver
ActiveSheet.Shapes("Chart 2").Top = CPos
ActiveWindow.Visible = Falsk
Application.ScreenUpdating = True
End Sub


jeg får følgende fejl

Run-Time fejl '-2147024809 (80070057)':
Elementet med det angivne navn blev ikke fundet

når jeg fejlfinder
ActiveSheet.ChartObjects("Chart 2"). Aktiver
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Christo, du skal ændre diagramnavnet "Chart 2" til dit diagrams egentlige navn i scriptet. Du kan klikke på diagrammet og se dets navn i navnefeltet. Se skærmbillede:
https://www.extendoffice.com/images/stories/comments/sun-comment/do_chart_name.png
Denne kommentar blev minimeret af moderatoren på webstedet
Ja tak. efter et stillede spørgsmål indså jeg, at mit diagramnavn var forkert
tak

ps.
ved du måske, hvordan jeg kan få diagrammet til at se, mens jeg ruller uden at klikke, hvor det skal følge
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg stødte på et problem med at fravælge cellen og havde brug for to diagrammer, så jeg lavede nogle ændringer, og det ser ud til at virke nu.
For at bruge det skal du indtaste det rigtige diagramnavn.
*Bemærk: Denne er til to diagrammer


Private Sub workheet_selectionchange(ByVal target As Range)
Dim søkortposition som dobbelt

diagramposition = ActiveWindow.ScrollRow * ActiveCell.RowHeight
ActiveSheet.Shapes("Chart 2").Top = kortposition

ActiveSheet.ChartObjects("Chart 3").Top = kortposition + 250

End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
A mí me pasa que la suuiente vez que abro el archivo, el script ya no funciona. Tengo que copiarlo, borrarlo, cerrar el archivo tras guardarlo, volver a abrir el archivo y volver a pegar el script en VBA. ¿Alguna løsning?
Bedømt 4.5 ud af 5
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, gem projektmappen som excel-makroaktiver-projektmappe, vba'en vil være arbejde, når den åbnes næste gang.https://cdn.extendoffice.com/images/stories/comments/sun-comment/doc-macro-enable.png
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL