Risultati da 1 a 3 di 3

Discussione: 2 condizioni in una funzione



  1. #1
    L'avatar di Theinvoker
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Milano
    Età
    38
    Messaggi
    62
    Versione Office
    2007
    Mi Piace ricevuti
    0
    Mi Piace dati
    3

    2 condizioni in una funzione

    Tempo fa qualcuno mi aveva fornito questa funzione ad hoc,dato che io nn sono capace
    Codice: 
    Function Estrai_Somma_Frazioni(ByVal Dati) As String
    Dim Cella As Range, NomDen() As String, ValPieni As Long, ValTot As Long
    Dim Nominatore As Double, Denominatore As Double, Primo, Secondo
    
    Application.Volatile
    For Each Cella In Dati
    If Cella = "-" Then
    GoTo prossimo
    ElseIf Cella.Value = 0 Then
    ValPieni = ValPieni
    Else
    ValPieni = ValPieni + 1
    End If
    NomDen = Split(Replace(Cella.Formula, "=", ""), "/")
    Nominatore = Nominatore + CDbl(NomDen(0))
    Denominatore = Denominatore + CDbl(NomDen(1))
    ValTot = ValTot + 1
    prossimo:
    Next
    Primo = Format(ValPieni / ValTot, "#%")
    Secondo = Format(Nominatore / Denominatore, "#%")
    Estrai_Somma_Frazioni = Primo & " (" & Secondo & ")"
    Exit Function
    
    End Function

    in realtà If Cella = "-" Then era If Cella = ""
    solo che io non voglio tenere celle vuote e allora ho messo il simbolo -. Se tengo qualche cella vuota il risultato è un errore
    Però mi servirebbe poter usare più simboli in quella colonna non solo "-" ma anche "?" ad esempio.
    Come faccio ad aggiungere quella possibilità?

  2. #2
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    66
    Messaggi
    2166
    Versione Office
    2010/2013 PC
    Mi Piace ricevuti
    363
    Mi Piace dati
    40

    Re: 2 condizioni in una funzione

    Citazione Originariamente Scritto da Theinvoker Visualizza Messaggio
    Tempo fa qualcuno mi aveva fornito questa funzione ad hoc,dato che io nn sono capace
    Codice: 
    Function Estrai_Somma_Frazioni(ByVal Dati) As String
    Dim Cella As Range, NomDen() As String, ValPieni As Long, ValTot As Long
    Dim Nominatore As Double, Denominatore As Double, Primo, Secondo
    
    Application.Volatile
    For Each Cella In Dati
    If Cella = "-" Then
    GoTo prossimo
    ElseIf Cella.Value = 0 Then
    ValPieni = ValPieni
    Else
    ValPieni = ValPieni + 1
    End If
    NomDen = Split(Replace(Cella.Formula, "=", ""), "/")
    Nominatore = Nominatore + CDbl(NomDen(0))
    Denominatore = Denominatore + CDbl(NomDen(1))
    ValTot = ValTot + 1
    prossimo:
    Next
    Primo = Format(ValPieni / ValTot, "#%")
    Secondo = Format(Nominatore / Denominatore, "#%")
    Estrai_Somma_Frazioni = Primo & " (" & Secondo & ")"
    Exit Function
    
    End Function

    in realtà If Cella = "-" Then era If Cella = ""
    solo che io non voglio tenere celle vuote e allora ho messo il simbolo -. Se tengo qualche cella vuota il risultato è un errore
    Però mi servirebbe poter usare più simboli in quella colonna non solo "-" ma anche "?" ad esempio.
    Come faccio ad aggiungere quella possibilità?
    If Cella = "-" Or Cella = "?" Or Cella = ... Then

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  3. I seguenti utenti hanno dato un "Mi Piace"


  4. #3
    L'avatar di Theinvoker
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Milano
    Età
    38
    Messaggi
    62
    Versione Office
    2007
    Mi Piace ricevuti
    0
    Mi Piace dati
    3

    Re: 2 condizioni in una funzione

    ahhhhh

    avevo provato con or,ma senza rimettere Cella...ok porverò grazie

Discussioni Simili

  1. funzione SE nidificata a più condizioni
    Di Loretta nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 05/08/16, 20:55
  2. Funzione SE con più condizioni
    Di marco994 nel forum Domande su Excel in generale
    Risposte: 13
    Ultimo Messaggio: 16/03/16, 16:24
  3. SE con più condizioni
    Di warriorspa nel forum Domande su Excel in generale
    Risposte: 66
    Ultimo Messaggio: 12/02/16, 23:43
  4. Conta se a tre condizioni
    Di thebigleon nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 17/10/15, 17:30
  5. Inserire più condizioni nella funzione se
    Di robiertos nel forum Domande su Excel in generale
    Risposte: 12
    Ultimo Messaggio: 16/10/15, 00:45

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
  •