Risultati da 1 a 8 di 8

Discussione: 2 nomi da confrontare



  1. #1
    L'avatar di LeoLuca
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Svizzera
    Messaggi
    4
    Versione Office
    Office 2010
    Likes ricevuti
    0
    Likes dati
    0

    Cool 2 nomi da confrontare

    :235:Ciao a tutti, sono LeoLuca,

    Ho un problema un pò insolito, se qualche anima buona mi aiutasse, gliene sarei immensamente grato.

    ho 2 nomi es. alessandra ed alessandro in 2 celle diverse per es. in A1 e B1

    vorrei che excel mi cercasse ed eliminasse tutte le PARIGLIE delle vocali e consonanti dei 2 nomi
    riportandomi il risultato in C1 e D1 , che in questo caso è in C1 una A e, in D1 una O
    Se fosse stato Gianni ed Eleonora il risultato sarebbe Gini ed Eleoor


    Per me questo quesito è diventato un incubo.


    Grazie.
    Ciao a presto

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2810
    Versione Office
    Excel 2013
    Likes ricevuti
    1022
    Likes dati
    979
    Non so se si possa fare con formule, intanto ecco una soluzione VBA:
    Codice: 
    Function Parapiglie(Nome1 As String, Nome2 As String) As String
    Dim a As Integer, b As Integer, i As Integer
    Dim String1 As String, String2 As String
    Dim ParapiglieInv As String
    
    
    String1 = Nome1
    String2 = Nome2
    
    
    For a = Len(String1) To 1 Step -1
        For b = Len(String2) To 1 Step -1
            If Mid(String1, a, 1) = Mid(String2, b, 1) Then
                String1 = Mid(String1, 1, a - 1) & Mid(String1, a + 1)
                String2 = Mid(String2, 1, b - 1) & Mid(String2, b + 1)
                GoTo Successivo
            End If
        Next b
        ParapiglieInv = ParapiglieInv & Mid(Nome1, a, 1)
    Successivo:
    Next a
    
    
    For i = Len(ParapiglieInv) To 1 Step -1
        Parapiglie = Parapiglie & Mid(ParapiglieInv, i, 1)
    Next
    
    
    End Function
    questa formula confronta il primo nome con il secondo e restituisce la lettera mancante dunque in C1=Parapiglie(A1;B1) e in D1=Parapiglie(B1;A1)

  3. I seguenti utenti hanno dato un "Like"


  4. #3
    L'avatar di LeoLuca
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Svizzera
    Messaggi
    4
    Versione Office
    Office 2010
    Likes ricevuti
    0
    Likes dati
    0
    Ciao Rubik72, molto molto gentile, ma io non ci capisco niente in vba, e non saprei neanche dove collocare questa formula
    sò soltanto accedere con ALT+F11 e qui finisce la mia conoscenza in vba. Se mi dici come fare allora potrei provarla, altrimenti
    mi occorre una formula excel.
    Ciao a presto
    LeoLuca

  5. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2810
    Versione Office
    Excel 2013
    Likes ricevuti
    1022
    Likes dati
    979
    Accedi al VBA con ALT+F11 inserisci/Modulo e incolli il codice. Ora tri troverai una nuova funzione da richiamare come le altre che si chiama =Parapiglie() che ha bisogno di due argomenti.

    Inviato dal mio Nexus 7 utilizzando Tapatalk

  6. #5

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4024
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Citazione Originariamente Scritto da LeoLuca Visualizza Messaggio
    Ciao Rubik72, molto molto gentile, ma io non ci capisco niente in vba, e non saprei neanche dove collocare questa formula
    sò soltanto accedere con ALT+F11 e qui finisce la mia conoscenza in vba. Se mi dici come fare allora potrei provarla, altrimenti
    mi occorre una formula excel.
    Ciao a presto
    LeoLuca
    Ciao a tutti,

    @LeoLuca
    con le formule sarebbe veramente complicato gestire le doppie e soprattutto non credo si possa usare una funzione tipo CONCATENA (che non funziona con le formule matriciali) per ottenere il risultato finale (spero di essere smentito).

    Il codice di Rubik (che saluto) mi sa che è la strada migliore.

    Ciao

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

  7. #6

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

    mi permetto di proporre un codice più semplice:

    Codice: 
    Function Pariglie(ByVal sNome1 As String, ByVal sNome2 As String) As String
      'by scossa
      Dim nLen2 As Long
      Dim n2 As Long
      Dim sPa1 As String
      
      nLen2 = Len(sNome2)
      sPa1 = sNome1
      For n2 = 1 To nLen2
        sPa1 = Replace(sPa1, Mid(sNome2, n2, 1), "", 1, 1, vbTextCompare)
      Next
      Pariglie = sPa1
      
    End Function
    da usarsi come quello di Rubik:
    in C1:: =Pariglie(A1;B1)
    In D1:: =Pariglie(B1;A1)
    Ultima modifica fatta da:scossa; 13/02/16 alle 12:24
    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. I seguenti 4 utenti hanno dato un "Like" a scossa per questo post:


  9. #7

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2810
    Versione Office
    Excel 2013
    Likes ricevuti
    1022
    Likes dati
    979
    La soluzione più semplice è sempre la migliore

    Inviato dal mio Nexus 7 utilizzando Tapatalk

  10. #8
    L'avatar di LeoLuca
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Svizzera
    Messaggi
    4
    Versione Office
    Office 2010
    Likes ricevuti
    0
    Likes dati
    0
    Ottimo SCOSSA, (anche se in D1 è (B1;A1), il fatto è che non ho imparato la formula con excel , (anche se complicata come dice CROMAGNO) ma va benissimo lo stesso, funziona e sono felice. Grazie ! Continuo e seguire con attenzione tutte le discussioni, e quando mi sentirò pronto darò una mano anch'io a qualcuno. Ciao alla prossima

Discussioni Simili

  1. funzione se per confrontare le email
    Di stefanoste78 nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 26/01/17, 17:27
  2. confrontare e trovare corrispondenze in una lista di nomi.
    Di Emyl73 nel forum Domande su Excel in generale
    Risposte: 13
    Ultimo Messaggio: 24/01/17, 15:13
  3. Confrontare se sono uguali due file xlsx
    Di Catwoman nel forum Domande su Excel in generale
    Risposte: 15
    Ultimo Messaggio: 16/08/16, 03:04
  4. Confrontare e restituire valori e testi
    Di Ale64 nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 10/03/16, 23:15
  5. Confrontare dati in una matrice
    Di Uistiti63 nel forum Domande su Excel in generale
    Risposte: 29
    Ultimo Messaggio: 21/02/16, 22:13

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
  •