Risultati da 1 a 15 di 15

Discussione: Quiz di Santo Stefano



  1. #1

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    58
    Messaggi
    1205
    Versione Office
    .
    Likes ricevuti
    446
    Likes dati
    0

    Quiz di Santo Stefano

    Visto che il quiz di Natale già è stato proposto .....

    scrivere in F1 una formula che restituisca la (prima) parola più lunga tra quelle della colonna A
    La formula, copiata con Ctrl-C Ctrl-V in G1, H1, I1 riporterà le parole più lunghe, rispettivamente, delle colonne B, C e D.


    A
    B
    C
    D
    E
    F
    G
    H
    I
    1
    Nel Ahi Tanto per ritrovai selvaggia trattar etterno
    2
    mezzo quanto è me
    3
    del a amara si
    4
    cammin dir che va
    5
    di qual poco ne
    6
    nostra era è lo
    7
    vita è più etterno
    8
    mi cosa morte dolore
    9
    ritrovai dura ma per
    10
    per esta per me
    11
    una selva trattar si
    12
    selva selvaggia del va
    13
    oscura e ben tra
    14
    ché aspra chi la
    15
    la e vi perduta
    16
    diritta forte trovai gente
    17
    via che dirò
    18
    era nel de
    19
    smarrita pensier le

    P.S.: ispirato da una domanda posta in altro forum da un utente che chiedeva una soluzione VBA.

    BUONE FESTE!
    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)

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    46
    Messaggi
    3517
    Versione Office
    Excel 2013
    Likes ricevuti
    1224
    Likes dati
    1293
    in VBA oppure in formule?

    in VBA:

    Function LunghezzaTesto(Selezione As Range) As String
    Dim Cella As Range
    Dim Lunghezza As Integer


    For Each Cella In Selezione
    If Len(Cella) > Lunghezza Then
    LunghezzaTesto = Cella
    Lunghezza = Len(Cella)
    End If
    Next
    End Function

  3. #3

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    58
    Messaggi
    1205
    Versione Office
    .
    Likes ricevuti
    446
    Likes dati
    0
    Ciao,

    in questa sezione solo formule... poi si può riproporre nell'altra sezione per una soluzione con VBA.

    EDIT: i guru sono pregati di attendere per proporre la loro soluzione!
    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)

  4. #4
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    50
    Messaggi
    5385
    Versione Office
    office 365/2016
    Likes ricevuti
    1271
    Likes dati
    1337
    Ciao Scossa! e tutti gli amici del forum
    Buone feste anche a te
    Visto che nella stessa riga ci potrebbero essere stringe con la stessa dimensione ho fatto una formula un po complessa che comunque ci restituisce tutte le stringhe

    In F1 da confermare con i tasti CTRL+SHIFT+ENTER
    Copia in basso e a destra
    Si potrebbe fare anche con l'AGGREGA

    =SE.ERRORE(INDICE(A$1:A$19;PICCOLO(SE(MAX(LUNGHEZZA(A$1:A$19))=LUNGHEZZA(A$1:A$19);RIF.RIGA($A$1:$A$19)-RIF.RIGA($A$1)+1);RIGHE($F$1:F1)));"")


    A
    B
    C
    D
    E
    F
    G
    H
    I
    1
    Nel Ahi Tanto per ritrovai selvaggia trattar etterno
    2
    mezzo quanto è me smarrita perduta
    3
    del a amara si
    4
    cammin dir che va
    5
    di qual poco ne
    6
    nostra era è lo
    7
    vita è più etterno
    8
    mi cosa morte dolore
    9
    ritrovai dura ma per
    10
    per esta per me
    11
    una selva trattar si
    12
    selva selvaggia del va
    13
    oscura e ben tra
    14
    ché aspra chi la
    15
    la e vi perduta
    16
    diritta forte trovai gente
    17
    via che dirò
    18
    era nel de
    19
    smarrita pensier le




    Se non lo sai spiegare in modo semplice, non l'hai capito abbastanza bene Cit. Einstein

  5. I seguenti 2 utenti hanno dato un "Like" a Gerardo Zuccalà per questo post:


  6. #5

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    58
    Messaggi
    1205
    Versione Office
    .
    Likes ricevuti
    446
    Likes dati
    0
    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    Visto che nella stessa riga ci potrebbero essere stringe con la stessa dimensione ho fatto una formula un po complessa che comunque ci restituisce tutte le stringhe
    Bravo Gerardo, ma sei andato oltre il richiesto:
    scrivere in F1 una formula che restituisca la (prima) parola più lunga tra quelle della colonna A
    :176:
    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)

  7. #6
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    50
    Messaggi
    5385
    Versione Office
    office 365/2016
    Likes ricevuti
    1271
    Likes dati
    1337
    Oppss!! che distratto che sono
    Prova questa! ovviamente ci potrebbero essere anche altre soluzioni e di conseguenza fatevi avanti!!

    CTRL+SHIF+ENTER
    =INDICE(A$1:A$19;CONFRONTA(MAX(LUNGHEZZA(A$1:A$19));LUNGHEZZA(A$1:A$19);0))

    ​Ciao a tutti e auguroni!!
    Se non lo sai spiegare in modo semplice, non l'hai capito abbastanza bene Cit. Einstein

  8. I seguenti 2 utenti hanno dato un "Like" a Gerardo Zuccalà per questo post:


  9. #7

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    46
    Messaggi
    3517
    Versione Office
    Excel 2013
    Likes ricevuti
    1224
    Likes dati
    1293
    Citazione Originariamente Scritto da scossa Visualizza Messaggio

    in questa sezione solo formule... poi si può riproporre nell'altra sezione per una soluzione con VBA.
    Sorry!
    Ultima modifica fatta da:Gerardo Zuccalà; 20/12/15 alle 21:03

  10. #8

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    54
    Messaggi
    9938
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2563
    Likes dati
    1543
    Ciao Scossa, siamo già arrivati a santo Stefano?? :288:

    La formula di Gerardo mi sembra ottima, propongo solo un'alternativa:

    =SCARTO(A$1;CONFRONTA(MAX(LUNGHEZZA(A$1:A$19));LUNGHEZZA(A$1:A$19);0)-1;)
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  11. I seguenti utenti hanno dato un "Like"


  12. #9
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    50
    Messaggi
    5385
    Versione Office
    office 365/2016
    Likes ricevuti
    1271
    Likes dati
    1337
    Ciao ges, in attesa che Scossa ci da il benestare, auguro a tutti buon natale e " santo Stefano"
    Se non lo sai spiegare in modo semplice, non l'hai capito abbastanza bene Cit. Einstein

  13. #10

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    54
    Messaggi
    9938
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2563
    Likes dati
    1543
    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    Ciao ges, in attesa che Scossa ci da il benestare, auguro a tutti buon natale e " santo Stefano"
    Grazie Gerardo, tanti auguri anche da parte mia.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  14. #11

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    38
    Messaggi
    4729
    Versione Office
    2013
    Likes ricevuti
    1493
    Likes dati
    1050
    Ciao a tutti,
    vedo che son già state date ottime soluzioni :246:

    Propongo un alternativa (che non preferirei usare rispetto alle formule di ges & Gerardo)...

    In F1 (matriciale):

    =INDIRETTO(INDIRIZZO(MIN(SE(LUNGHEZZA(A$1:A$19)=MAX(LUNGHEZZA(A$1:A$19));RIF.RIGA(A$1:A$19);""));RIF.COLONNA(A1)))

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  15. #12

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    58
    Messaggi
    1205
    Versione Office
    .
    Likes ricevuti
    446
    Likes dati
    0
    Ottime soluzioni.

    La mia è praticamente uguale a quella di Gerardo (senza i riferimenti assoluti di riga).

    Per completezza posto anche la versione non matriciale, da confermare col semplice invio:

    =INDICE(A1:A19;CONFRONTA(MAX(INDICE(LUNGHEZZA(A1:A19);));INDICE(LUNGHEZZA(A1:A19););0))
    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)

  16. I seguenti 2 utenti hanno dato un "Like" a scossa per questo post:


  17. #13
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    50
    Messaggi
    5385
    Versione Office
    office 365/2016
    Likes ricevuti
    1271
    Likes dati
    1337
    Ottima soluzione!
    non ci avevo pensato ad INDICE e CONFRONTA per evitare lo stato matriciale

    PS I riferimenti di cella misti ($ sui numeri) li avevo lasciati dalla formula precedente #4 perchè avevo la necessità di incollare la formula in basso in caso di duplicati, ma poi per fare veloce non ho tolto i riferimenti perchè giustamente non servono
    Cioa scossa grazie per la puntualizzazione
    In attesa del tuo prossimo quiz un grande augurio di buon Natale
    Se non lo sai spiegare in modo semplice, non l'hai capito abbastanza bene Cit. Einstein

  18. #14
    L'avatar di Vincenzo Damiani
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Molfetta
    Età
    58
    Messaggi
    486
    Versione Office
    2010
    Likes ricevuti
    13
    Likes dati
    694
    Scusate se mi intrometto nelle vostre discussioni....
    lo faccio solo per augurare a tutti voi un Buon Natale e felice anno....

    P.S. per le formule cerco solo di imparare dai vostri esempi.....Grazie
    Windows8.1 office 2010

  19. I seguenti utenti hanno dato un "Like"


  20. #15
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    50
    Messaggi
    5385
    Versione Office
    office 365/2016
    Likes ricevuti
    1271
    Likes dati
    1337
    Ciao Vincenzo buone feste anche a te
    Se non lo sai spiegare in modo semplice, non l'hai capito abbastanza bene Cit. Einstein

Discussioni Simili

  1. [Risolto] Quiz
    Di Anthony nel forum Domande su Excel in generale
    Risposte: 35
    Ultimo Messaggio: 22/11/16, 14:02
  2. Quiz
    Di Anthony nel forum Domande su Excel VBA e MACRO
    Risposte: 0
    Ultimo Messaggio: 19/11/16, 13:16
  3. Quiz
    Di Anthony nel forum Domande su Excel in generale
    Risposte: 59
    Ultimo Messaggio: 08/11/16, 01:18
  4. Quiz di Santo Stefano (VBA)
    Di scossa nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 21/12/15, 14:34
  5. Quiz Natalizio
    Di Marius44 nel forum Domande su Excel VBA e MACRO
    Risposte: 12
    Ultimo Messaggio: 19/12/15, 01:24

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
  •