Risultati da 1 a 11 di 11

Discussione: attivare e disattivare righe di un grafico



  1. #1
    L'avatar di stefano1973
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Roma
    Messaggi
    15
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    attivare e disattivare righe di un grafico

    ciao a tutti, premetto di essere abbastanza a digiuno di Excel ma mi piace cimentarmi in modo strutturato man mano che mi capitano nuove cose da sperimentare.
    ho un grafico fatto d più righe di dati e sto cercando di mettere a punto delle macro per attivare e disattivare specifiche righe.
    ho provato a registrare delle macro per vedere cosa scrive il programma e farle mie.
    ora ho un pulsante che cancella le righe ed una serie di pulsanti per inserirne di nuove.
    tutto è però vincolato dal numero di riga.
    il sistema così cancella quello che trova in riga 2 ma non nelle altre (poi funziona perché le righe poi scalano
    per l'inserimento ho fatto tante macro per quante sono le righe ma devo per forza attivare una e poi l'altra.
    e' possibile far calcolare ad Excel la riga che voglio cancellare o che voglio inserire in modo da poter confrontare anche riga 1 con riga 4 se voglio?
    grazie
    stefano
    Codice: 
    Sub togli_linea_grafico()
    Codice: 
    '
    ' togli_linea_grafico Macro
    '
    
    '
    ActiveSheet.ChartObjects("Grafico4").Activate
    ActiveChart.SeriesCollection(2).Delete
    
    End Sub
    Sub aggiungi_linea_grafico()
    '
    ' aggiungi_linea_grafico Macro
    '
    
    '
    ActiveSheet.ChartObjects("Grafico4").Activate
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).Name ="=Foglio1!$C$9:$E$9"
    ActiveChart.SeriesCollection(2).XValues ="=Foglio1!$F$2:$Q$2"
    ActiveChart.SeriesCollection(2).Values ="=Foglio1!$F$9:$Q$9"
    
    End Sub
    Ultima modifica fatta da:Rubik72; 16/08/16 alle 22:40 Motivo: non prende delle righe con copia-incolla

  2. #2
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3216
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155

    Re: attivare e disattivare righe di un grafico

    Ciao Stefano
    benvenuto nel Forum. Dovresti, gentilmente, andare alla senzione presentazioni e inserire un tuo profilo. Grazie.

    Potresti fare un grafico dinamico anche senza macro (guarda l'allegato e seleziona una domanda dal Combo).

    Se proprio vuoi una macro in queste righe
    ActiveChart.SeriesCollection(2).Name ="=Foglio1!$C$9:$E$9"
    ActiveChart.SeriesCollection(2).XValues ="=Foglio1!$F$2:$Q$2"
    ActiveChart.SeriesCollection(2).Values ="=Foglio1!$F$9:$Q$9"
    devi creare delle variabili e inserirle al posto dei valori indicati tra i doppi apici.

    Sarebbe meglio, però, che tu allegassi il tuo file per poterci dare uno sguardo.
    Ciao,
    Mario
    File Allegati File Allegati

  3. I seguenti utenti hanno dato un "Like"


  4. #3
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: attivare e disattivare righe di un grafico

    prova anche a filtrare o nascondere le righe e le colonne...
    saluti
    gg
    File Allegati File Allegati

  5. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: attivare e disattivare righe di un grafico

    Ciao @stefano1973, Visto che sei nuovo del Forum, è gradita una presentazione QUI, ti consiglio anche di leggerti il “Regolamento” e di visitare la sezione “Annunci dello staff”, ti ricordo di usare i TAG per scrivere un codice VBA (tasto a forma di #), questa volta l'ho fatto io.

  6. #5
    L'avatar di stefano1973
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Roma
    Messaggi
    15
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: attivare e disattivare righe di un grafico

    ciao allego il file.
    l'obiettivo sarebbe di poter attivare e disattivare righe di grafico con pulsante, così mi conservo la funzione per successivi utilizzi
    vi ringrazio per i file che mi avete già girato.
    grazie
    stefano

    p.s. la pagina è sempre a caricare e per scrivere è un macello.credo opossa essere il salvataggio automatico che non so dove disabilitare
    File Allegati File Allegati

  7. #6
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: attivare e disattivare righe di un grafico

    una possibile soluzione sicuramente da migliorare...

    Codice: 
    
    
    Sub togli_serie_grafico()
    'ggratis
    '
    Dim i As Long
        With ActiveSheet.ChartObjects("Grafico 4").Chart
                On Error Resume Next
                i = InputBox("inserisci l'indice della serie che vuoi cancellare valore compreso da 1 a " & .SeriesCollection.Count, "pippo", 1)
                On Error Resume Next
                .SeriesCollection(i).Delete
        End With
    End Sub
    '
    '
    '
    '
    Sub aggiungi_serie_grafico()
    'ggratis
    '
    Dim i As Long, tot As Long
    tot = ActiveSheet.ChartObjects("Grafico 4").Chart.SeriesCollection.Count
    i = InputBox("inserisci l'indice della serie che vuoi aggiungere valore compreso da 0 a 9:", "pippo")
        With ActiveSheet.ChartObjects("Grafico 4").Chart
            .SeriesCollection.NewSeries
            .SeriesCollection(tot + 1).Name = "=Foglio1!$E$" & 4 + i
            .SeriesCollection(tot + 1).XValues = "=Foglio1!$F$2:$Q$2"
            .SeriesCollection(tot + 1).Values = "=Foglio1!$F$" & 4 + i & ":$Q$" & 4 + i
        End With
    End Sub
    saluti
    gg
    File Allegati File Allegati

  8. #7
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: attivare e disattivare righe di un grafico

    Codice: 
    Sub aggiungi_serie_grafico()
    'ggratis
    '
    Dim i As Long
    i = InputBox("inserisci l'indice della serie che vuoi aggiungere valore compreso da 0 a 9:", "pippo")
        With ActiveSheet.ChartObjects("Grafico 4").Chart
            .SeriesCollection.NewSeries
            .SeriesCollection(.SeriesCollection.Count).Name = "=Foglio1!$E$" & 4 + i
            .SeriesCollection(.SeriesCollection.Count).XValues = "=Foglio1!$F$2:$Q$2"
            .SeriesCollection(.SeriesCollection.Count).Values = "=Foglio1!$F$" & 4 + i & ":$Q$" & 4 + i
        End With
    End Sub

  9. #8
    L'avatar di stefano1973
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Roma
    Messaggi
    15
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: attivare e disattivare righe di un grafico

    grazie mille, funziona che è uno spettacolo!!!!!!!

  10. #9
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: attivare e disattivare righe di un grafico

    Grazie per il riscontro.
    Saluti gg

    Inviato dal mio GT-I9105P utilizzando Tapatalk

  11. #10
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: attivare e disattivare righe di un grafico

    Citazione Originariamente Scritto da stefano1973 Visualizza Messaggio
    grazie mille, funziona che è uno spettacolo!!!!!!!
    puoi migliorarla un pochino così...

    Codice: 
    Sub togli_serie_grafico()
    'ggratis
    '
    Dim i As Long
    
    
        With ActiveSheet.ChartObjects("Grafico 4").Chart
                On Error Resume Next
                i = InputBox("inserisci l'indice della serie che vuoi cancellare valore compreso da 1 a " & .SeriesCollection.Count, "pippo", 1)
                On Error Resume Next
                .SeriesCollection(i).Delete
        End With
    End Sub
    Sub aggiungi_serie_grafico()
    'ggratis
    '
    Dim i As String
    Dim tot As Integer
    tot = ActiveSheet.ChartObjects("Grafico 4").Chart.SeriesCollection.Count
    i = InputBox("inserisci l'indice della serie che vuoi aggiungere valore compreso da 0 a 9:", "pippo")
    If i = "" Then Exit Sub
    If CInt(i) > 9 Then Exit Sub
        With ActiveSheet.ChartObjects("Grafico 4").Chart
            .SeriesCollection.NewSeries
            .SeriesCollection(tot + 1).Name = "=Foglio1!$E$" & 4 + CInt(i)
            .SeriesCollection(tot + 1).XValues = "=Foglio1!$F$2:$Q$2"
            .SeriesCollection(tot + 1).Values = "=Foglio1!$F$" & 4 + i & ":$Q$" & 4 + CInt(i)
        End With
    End Sub

  12. #11
    L'avatar di stefano1973
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Roma
    Messaggi
    15
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: attivare e disattivare righe di un grafico

    ciao grazie ancora per le soluzioni
    ciao
    stefano

Discussioni Simili

  1. [Risolto] Su invio attivare la cella superiore e non quella inferiore
    Di Spaginato nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 08/03/17, 01:12
  2. [Risolto] Formula per attivare un alert basata su un indicatore
    Di FB17 nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 13/01/17, 09:58
  3. Attivare macro senza aprire Excel
    Di givi79 nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 30/12/16, 15:22
  4. [Risolto] Attivare Le Macro
    Di rollerblade nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 09/11/16, 19:23
  5. Disattivare formule dai fogli se non attivi...
    Di Vincenzo Damiani nel forum Domande su Excel in generale
    Risposte: 14
    Ultimo Messaggio: 24/11/15, 22:35

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •