Risultati da 1 a 13 di 13

Discussione: Determinare e visualizzare i valori compresi in un intervallo



  1. #1
    L'avatar di sirlancilot
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    Roma
    EtÓ
    47
    Messaggi
    7
    Versione Office
    MAC
    Likes ricevuti
    0
    Likes dati
    1

    Question Determinare e visualizzare i valori compresi in un intervallo

    Salve a tutti,
    il mio problema sarebbe questo.
    Ho una lista piuttosto nutrita (200 pagine da sei colonne ciascuna) che elencano dei codici di avviamento postale.
    Accade che alcune celle non riportino un valore univoco, ma un intervallo. Ad esempio

    00125
    00128
    00140
    00150 - 00187
    00200
    00205
    00207


    Con riferimento alla cella che riporta un intervallo di valori (00150 - 00187) mi chiedevo se c'era una formula che mi permetteva di determinare i valori compresi, in modo tale da avere un risultato del genere:

    00125
    00128
    00140
    00147
    00150
    00151
    00152
    00153
    00154
    ecc ecc fino a 00187

    00200
    00205
    00207

    Spero di essere riuscito a spiegarmi.
    Grazie a tutti

  2. #2

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Napoli
    EtÓ
    64
    Messaggi
    6759
    Versione Office
    2013
    Likes ricevuti
    714
    Likes dati
    164

    Re: Determinare e visualizzare i valori compresi in un intervallo

    Ciao sirlancilot

    Il tuo quesito mi sembra interessante/intrigante ma in questo momento non posso far nulla perchŔ non sono a casa e non ho il pc (ci potrei provare da lunedý).

    Penso, ma posso sbagliare, che per fare quello che chiedi occorra una macro.

    Ma i valori cercati devono essere inseriti sempre nella stessa colonna?

    Anche se lo hai spiegato prova ad allegare un file di esempio con i dati ed il risultato che vorresti ottenere inserito manualmente.

    Alfredo

  3. #3

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Como
    EtÓ
    53
    Messaggi
    7115
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2060
    Likes dati
    1296

    Re: Determinare e visualizzare i valori compresi in un intervallo

    Ciao a tutti,
    non so se ho capito bene, ti do intanto una soluzione col vba

    Codice: 
    Option Explicit
    Sub codici()
        Dim inizio As Integer, fine As Integer, cl As Integer, x As Integer, y As Long, uRow As Long
            uRow = Cells(Rows.Count, 1).End(xlUp).Row
            On Error Resume Next
            x = 1
                For y = 1 To uRow
                    inizio = Trim(Left(Cells(y, 1), InStr(Cells(y, 1), "-") - 1))
                    fine = Trim(Mid(Cells(y, 1), InStr(Cells(y, 1), "-") + 1, 10))
                For cl = inizio To fine
                    If IsNumeric(Cells(y, 1)) = True Then
                        Cells(y, 3) = Cells(y, 1)
                    Else
                        Cells(x, 4) = cl
                       x = x + 1
                    End If
                Next: Next
    End Sub
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se pu˛ sembrare improbabile, non pu˛ che essere quella giusta!

  4. I seguenti 3 utenti hanno dato un "Like" a ges per questo post:


  5. #4
    L'avatar di sirlancilot
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    Roma
    EtÓ
    47
    Messaggi
    7
    Versione Office
    MAC
    Likes ricevuti
    0
    Likes dati
    1

    Re: Determinare e visualizzare i valori compresi in un intervallo

    Per Alfrimpa,
    grazie per la disponibilitÓ
    No non Ŕ indispensabile che i risultati vengano inseriti nella stessa colonna (ovviamente sarebbe il risultato ottimale, ma immagino sia problematico)

    Grazie 1000 a Ges
    Sono sbalordito... Ŕ esattamente quello che mi serviva.
    Dovr˛ modificare i risultati perchŔ ovviamente la colonna in cui esplodono i numeri dell'intervallo elimina tutti gli zeri eventualmente presenti a sinistra... ma penso che questo sia l'ultimo dei problemi, inserirli nella colonna ed aggiungere due zeri Ŕ una fatica minima (maccheronicamente ci arrivo anch'io)
    Grazie veramente di cuore, ho risparmiato giorni di lavoro inutile e noioso.

  6. #5

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Como
    EtÓ
    53
    Messaggi
    7115
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2060
    Likes dati
    1296

    Re: Determinare e visualizzare i valori compresi in un intervallo

    Citazione Originariamente Scritto da sirlancilot Visualizza Messaggio
    ...
    Dovr˛ modificare i risultati perchŔ ovviamente la colonna in cui esplodono i numeri dell'intervallo elimina tutti gli zeri eventualmente presenti a sinistra... ma penso che questo sia l'ultimo dei problemi, inserirli nella colonna ed aggiungere due zeri Ŕ una fatica minima (maccheronicamente ci arrivo anch'io)
    ...
    Se si tratta di aggiungere due zeri nessun problema (formattando l'intervallo come testo):

    Codice: 
    .....
    Cells(y, 3) = "00" & Cells(y, 1)
                    Else
                        Cells(x, 4) = "00" & cl
    .....
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se pu˛ sembrare improbabile, non pu˛ che essere quella giusta!

  7. #6

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    LocalitÓ
    Verona Provincia
    EtÓ
    57
    Messaggi
    1011
    Versione Office
    .
    Likes ricevuti
    365
    Likes dati
    0

    Re: Determinare e visualizzare i valori compresi in un intervallo

    Ciao ges,

    posso suggerirti di eseguire il tuo codice passo-passo (con F8) ? credo che una "aggiustatina" sia d'obbligo
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  8. #7
    L'avatar di sirlancilot
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    Roma
    EtÓ
    47
    Messaggi
    7
    Versione Office
    MAC
    Likes ricevuti
    0
    Likes dati
    1

    Re: Determinare e visualizzare i valori compresi in un intervallo

    La conoscenza Ŕ proprio una cosa meravigliosa!
    L'ignoranza invece una brutta bestia...

    Dirti grazie Ŕ veramente poco!

  9. #8
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Binasco
    EtÓ
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Determinare e visualizzare i valori compresi in un intervallo

    Citazione Originariamente Scritto da scossa Visualizza Messaggio
    Ciao ges,

    posso suggerirti di eseguire il tuo codice passo-passo (con F8) ? credo che una "aggiustatina" sia d'obbligo
    Se posso ....

    Codice: 
    Sub codici2()
    Dim inizio As Long, fine As Long, cl As Long, x As Long, y As Long, uRow As Long
    uRow = Cells(Rows.Count, 1).End(xlUp).Row
    x = 1
        For y = 1 To uRow
            If InStr(Cells(y, 1), "-") > 0 Then
                inizio = Trim(Left(Cells(y, 1), InStr(Cells(y, 1), "-") - 1))
                fine = Trim(Mid(Cells(y, 1), InStr(Cells(y, 1), "-") + 1, 10))
                For cl = inizio To fine
                    Cells(x, 3) = cl
                    x = x + 1
                Next cl
            Else
                Cells(x, 3) = Cells(y, 1)
                x = x + 1
            End If
        Next
    End Sub

  10. #9

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Como
    EtÓ
    53
    Messaggi
    7115
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2060
    Likes dati
    1296

    Re: Determinare e visualizzare i valori compresi in un intervallo

    Citazione Originariamente Scritto da scossa Visualizza Messaggio
    Ciao ges,

    posso suggerirti di eseguire il tuo codice passo-passo (con F8) ? credo che una "aggiustatina" sia d'obbligo
    Opss! Grazie Scossa del sempre utile suggerimento.

    ----------Post unito in automatico----------

    Citazione Originariamente Scritto da Raffaele_53 Visualizza Messaggio
    Se posso ....
    Grazie anche a te Raffaele per avergli dato "l'aggiustatina" che mi era sfuggita!

    ----------Post unito in automatico----------

    @sirlancilot
    corretta la svista questo Ŕ il file definitivo
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se pu˛ sembrare improbabile, non pu˛ che essere quella giusta!

  11. #10
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Binasco
    EtÓ
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Determinare e visualizzare i valori compresi in un intervallo

    @Ges
    S˛ che non Ŕ il caso, mÓ se ci fossero numeri da 4 cifre?
    Non sarebbe meglio formattare la colonna personalizzato con 5 zeri?

  12. #11

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    LocalitÓ
    Verona Provincia
    EtÓ
    57
    Messaggi
    1011
    Versione Office
    .
    Likes ricevuti
    365
    Likes dati
    0

    Re: Determinare e visualizzare i valori compresi in un intervallo

    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Opss! Grazie Scossa del sempre utile suggerimento.


    @sirlancilot
    corretta la svista questo Ŕ il file definitivo
    Mi permetto un altro consiglio: x Ŕ una variabile che usi per specificare un numero di riga, sarebbe corretto dichiararla as Long.
    Anche cl, visto che l'OP parla di CAP deve essere Long, altrimenti quando arrivi a Vicenza ......

    Approfitto per proporre un codice alternativo:

    Codice: 
    Sub codici2()
        Dim cl As Long
        Dim x As Long, y As Long, uRow As Long
        Dim aLap As Variant
        
        uRow = Cells(Rows.Count, 1).End(xlUp).Row
        x = 1
        For y = 1 To uRow
          aLap = Split(Cells(y, 1), "-")
          If UBound(aLap) < 1 Then
            Cells(y, 3) = Cells(y, 1)
          Else
            For cl = aLap(0) To aLap(1)
              Cells(x, 4) = cl
              x = x + 1
            Next
          End If
        Next
    
    
    End Sub
    P.S.: ovviamente modificare a coerenza se serve aggiungere gli 0 davanti.
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  13. I seguenti utenti hanno dato un "Like"


  14. #12

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Como
    EtÓ
    53
    Messaggi
    7115
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2060
    Likes dati
    1296

    Re: Determinare e visualizzare i valori compresi in un intervallo

    Come si dice, Raffaele, meglio prevenire... formattazione a 5 zeri!

    ----------Post unito in automatico----------

    Citazione Originariamente Scritto da scossa Visualizza Messaggio
    Mi permetto un altro consiglio: x Ŕ una variabile che usi per specificare un numero di riga, sarebbe corretto dichiararla as Long.
    Anche cl, visto che l'OP parla di CAP deve essere Long, altrimenti quando arrivi a Vicenza ......

    ....
    Beh... pensavo che non arrivava a 32.767 ... ma anche qui meglio prevenire
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se pu˛ sembrare improbabile, non pu˛ che essere quella giusta!

  15. I seguenti 2 utenti hanno dato un "Like" a ges per questo post:


  16. #13
    L'avatar di sirlancilot
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    Roma
    EtÓ
    47
    Messaggi
    7
    Versione Office
    MAC
    Likes ricevuti
    0
    Likes dati
    1

    Re: Determinare e visualizzare i valori compresi in un intervallo

    Super perfetto
    Grazie ancora

Discussioni Simili

  1. [Risolto] Come visualizzare o nascondere valori in una tabella selezionando voce da men¨ a tendina
    Di Brivido.xls nel forum Domande su Excel in generale
    Risposte: 25
    Ultimo Messaggio: 03/12/16, 21:19
  2. [Risolto] Query con dati compresi nell'intervallo
    Di sergiogranero nel forum Domande su Microsoft Access
    Risposte: 32
    Ultimo Messaggio: 01/12/16, 18:11
  3. Risposte: 16
    Ultimo Messaggio: 18/05/16, 18:55
  4. Escludere dei valori da un intervallo
    Di Gulin90 nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 13/03/16, 23:19
  5. Sommare valori compresi in una stringa di testo
    Di Pierpaolo nel forum Domande su Excel in generale
    Risposte: 32
    Ultimo Messaggio: 11/09/15, 00:43

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
  •