Søg
Avatar billede per2edb Praktikant
02. april 2014 - 19:58 Der er 6 kommentarer og
1 løsning

Input til vandret Datoakse placeret på Arket

Jeg har en gantplan på Excel ark

Vandret akse er skaleret med dato der i excel  2013 kan ænders således:
Tryk på vandret akse> Vælg diagramelementer akser > Flere indstillinger> akseindstillinger >Vandret (værdi) akse:

Her kan min og max stilles med seriel dato f.eks 41671,0 som 01-02-2014

Det er bøvlet. Kan i hjælpe med hvordan jeg på arket kan placere 2 input datoboxe hvorfra værdierne går ind og styrer akserne som anført ovenfor
Avatar billede supertekst Ekspert
02. april 2014 - 23:27 #1
Hvis du indspiller en makro af den nævnte indstilling - har du så ikke et grundlag for det du ønsker?
Avatar billede per2edb Praktikant
03. april 2014 - 08:43 #2
Jeg kender ikke til makroer så jeg ønsker at bruge koder i VBA
Kan i hjælpe med det?
Avatar billede supertekst Ekspert
03. april 2014 - 09:04 #3
Indspilning af makro genererer koden i VBA. Prøv at se under fanen Udvikler - indspil makro og så:
Tryk på vandret akse> Vælg diagramelementer akser > Flere indstillinger> akseindstillinger >Vandret (værdi) akse

Så kan du under Module (i VBA-vinduet) se den skabte VBA-kode.
Avatar billede per2edb Praktikant
03. april 2014 - 14:33 #4
Jeg får disse koder:

ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveChart.HasAxis(xlValue) = True
    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveChart.Axes(xlValue).Select
    ActiveWorkbook.Save
    ActiveWorkbook.Save

Hvor og hvordan får jeg så min og max dato indlagt
Avatar billede supertekst Ekspert
03. april 2014 - 15:15 #5
rem Til inspiration

Public Sub indstilDatoer()
Dim dato1 As Date
Dim dato2 As Date

    dato1 = InputBox("Tast minimum", "Dato-interval dd-mm-aa")
    dato2 = InputBox("Tast maximum", "Dato-interval")
   
    ActiveSheet.ChartObjects("Diagram 1").Activate
    ActiveChart.Axes(xlCategory).Select
    ActiveChart.Axes(xlCategory).MinimumScale = dato1  '41699
    ActiveChart.Axes(xlCategory).MaximumScale = dato2  '41734
End Sub
Avatar billede per2edb Praktikant
03. april 2014 - 17:24 #6
Det virker 1000 tak
Vil du lave det så du kan få point
Avatar billede supertekst Ekspert
03. april 2014 - 17:30 #7
Fint og selv tak
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Stempel ur start og stop Af lurup i Excel 1 23/03/202613:24 23/03/202621:06
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Tips til at mestre Excel hurtigt Af MonikaG32 i Excel 4 04/03/202617:11 06/03/202609:37
Båndet i Excel online har ændret størrelse Af Monique i Excel 3 19/02/202614:23 20/02/202608:26
Fjern tekst efter mellemrum Af ABE15 i Excel 2 18/02/202620:41 19/02/202611:30
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 13:51 Vest Tysk film - fra 1955 ? - Søges - Navn på film og forfatter har jeg glemt Af Ikke-ekspert i Fri debat
I dag 05:41 Messenger kræver kode. Af Per i PC
25/0315:42 Kan ikke installere MitID app fra google play Af valby i Mobiltelefoner
23/0313:50 Ingen forb. fra ny pc'er til printer Af arnel i Printere
23/0313:24 Stempel ur start og stop Af lurup i Excel
White papers
Flere white papers »