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à
    39
    Messaggi
    110
    Versione Office
    2007
    Likes ricevuti
    0
    Likes 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à
    67
    Messaggi
    3228
    Versione Office
    2013 PC
    Likes ricevuti
    465
    Likes dati
    46

    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 "Like"


  4. #3
    L'avatar di Theinvoker
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Milano
    Età
    39
    Messaggi
    110
    Versione Office
    2007
    Likes ricevuti
    0
    Likes 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. Contare con più condizioni
    Di nick0573 nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 29/12/15, 10:06
  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
  •