Risultati da 1 a 3 di 3

Discussione: testo nuovo tool risposta rapida



  1. #1
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    50
    Messaggi
    5388
    Versione Office
    office 365/2016
    Likes ricevuti
    1274
    Likes dati
    1342

    testo nuovo tool risposta rapida

    Public Function EstraiNomi(Ats As Range, Rng As Range) As StringDim cllNms As New Collection
    Dim ElencoNomi As String
    Dim cell As Range
    On Error Resume Next
    For Each cell In Rng
    If cell.Value = Ats Then
    cllNms.Add cell.Offset(, 1).Value, Key:=cell.Offset(, 1).Value
    ElencoNomi = ElencoNomi & cllNms.Item(cllNms.Count) & "; "
    End If
    Next
    On Error GoTo 0
    EstraiNomi = Left(ElencoNomi, Len(ElencoNomi) - 2)
    End Function

    Codice: 
    Public Function EstraiNomi(Ats As Range, Rng As Range) As StringDim cllNms As New Collection
    Dim ElencoNomi As String
    Dim cell As Range
    On Error Resume Next
        For Each cell In Rng
            If cell.Value = Ats Then
                cllNms.Add cell.Offset(, 1).Value, Key:=cell.Offset(, 1).Value
                ElencoNomi = ElencoNomi & cllNms.Item(cllNms.Count) & "; "
            End If
        Next
    On Error GoTo 0
    EstraiNomi = Left(ElencoNomi, Len(ElencoNomi) - 2)
    End Function
    Codice HTML: 
    Public Function EstraiNomi(Ats As Range, Rng As Range) As StringDim cllNms As New CollectionDim ElencoNomi As StringDim cell As RangeOn Error Resume Next    For Each cell In Rng        If cell.Value = Ats Then            cllNms.Add cell.Offset(, 1).Value, Key:=cell.Offset(, 1).Value            ElencoNomi = ElencoNomi & cllNms.Item(cllNms.Count) & "; "        End If    NextOn Error GoTo 0EstraiNomi = Left(ElencoNomi, Len(ElencoNomi) - 2)End Function
    Codice PHP: 
    Public Function EstraiNomi(Ats As RangeRng As Range) As StringDim cllNms As New CollectionDim ElencoNomi As StringDim cell As RangeOn Error Resume Next    For Each cell In Rng        If cell.Value Ats Then            cllNms.Add cell.Offset(, 1).ValueKey:=cell.Offset(, 1).Value            ElencoNomi ElencoNomi cllNms.Item(cllNms.Count) & "; "        End If    NextOn Error GoTo 0EstraiNomi Left(ElencoNomiLen(ElencoNomi) - 2)End Function 
    Se non lo sai spiegare in modo semplice, non l'hai capito abbastanza bene Cit. Einstein

  2. #2
    L'avatar di mb63
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Torino
    Età
    55
    Messaggi
    615
    Versione Office
    2007/10/13 w10
    Likes ricevuti
    26
    Likes dati
    117
    Buona domenica

    mi scuso per la domanda ma da inesperto chiedo:

    come si usa questa funzione sarebbe possibile avere un file d'esempio

    Grazie

  3. #3
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    50
    Messaggi
    5388
    Versione Office
    office 365/2016
    Likes ricevuti
    1274
    Likes dati
    1342
    Citazione Originariamente Scritto da mb63 Visualizza Messaggio
    Buona domenica

    mi scuso per la domanda ma da inesperto chiedo:

    come si usa questa funzione sarebbe possibile avere un file d'esempio

    Grazie
    Ciao mb63
    grazie per la domanda tuttavia hai postato nella sezione sbagliata che è la sezione per testare il corretto funzionamento di strumenti del forum....e in questo caso stavo testando I tag "CODE" e "QUOTE" successivamente all'istallazione di un nuovo alcuni Plag-in

    mb63 Copiati questo codice e inizia una nuova discussione nella sezione "domande su Excel VBA e MACRO"
    un saluto
    Se non lo sai spiegare in modo semplice, non l'hai capito abbastanza bene Cit. Einstein

Discussioni Simili

  1. Risposta rapida sempre aperta
    Di Irclen nel forum Problemi, suggerimenti e Novità del forum
    Risposte: 3
    Ultimo Messaggio: 04/08/16, 20:56
  2. Nuovo tool per inserimento immagini
    Di Gerardo Zuccalà nel forum Problemi, suggerimenti e Novità del forum
    Risposte: 1
    Ultimo Messaggio: 09/02/16, 01:51
  3. Nuova risposta rapida
    Di Max nel forum Problemi, suggerimenti e Novità del forum
    Risposte: 1
    Ultimo Messaggio: 23/12/15, 18:41
  4. Alleagto nuovo tool
    Di Gerardo Zuccalà nel forum Test dei vostri post
    Risposte: 0
    Ultimo Messaggio: 20/12/15, 20:47

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
  •