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à
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126

    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 

  2. #2
    L'avatar di mb63
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Torino
    Età
    54
    Messaggi
    484
    Versione Office
    2007/10/13 w10
    Likes ricevuti
    18
    Likes dati
    94
    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à
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    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

Discussioni Simili

  1. Risposta rapida sempre aperta
    Di Irclen nel forum Problemi, suggerimenti e Novità del forum
    Risposte: 3
    Ultimo Messaggio: 04/08/16, 21: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, 02:51
  3. Come inserire un allegato nel forum in risposta rapida
    Di Gerardo Zuccalà nel forum Annunci dallo staff del forum
    Risposte: 0
    Ultimo Messaggio: 23/12/15, 20:44
  4. Nuova risposta rapida
    Di Max nel forum Problemi, suggerimenti e Novità del forum
    Risposte: 1
    Ultimo Messaggio: 23/12/15, 19:41
  5. Alleagto nuovo tool
    Di Gerardo Zuccalà nel forum Test dei vostri post
    Risposte: 0
    Ultimo Messaggio: 20/12/15, 21: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
  •