Sommare celle contenenti valori numerici e testi + valori numerici

Ciao,

prova con questa versione

Function Somma_ValoriNumerici_Alfanumerici(Intervallo As Range) As Double 

   Dim v As Range, v2 As Variant 

   Dim str As String 

   Dim sum As Double 

   For Each v In Intervallo 

      str = v.Value 

      str = Replace(Replace(str, ")", ""), "(", "+") 

      For Each v2 In Split(str, "+") 

         If IsNumeric(v2) Then 

            sum = sum + CDbl(Trim(v2)) 

         End If 

      Next v2 

   Next v 

   Somma_ValoriNumerici_Alfanumerici = sum 

End Function 

Dovrebbe gestire in automatico anche stringhe del tipo "Testo (2)".

Sostituisce alla ")" un carattere "nullo" e alla "(" il "+" in modo da "splittare" le stringhe in base al "+".

Ciao,

devi aggiungere al progetto VBA della cartella di lavoro un modulo standard e all'interno di quello copiare il codice.

Una possibile soluzione tramite VBA e l'utilizzo di una FDU (funzione definita dall'uente):

Function Somma_ValoriNumerici_Alfanumerici(Intervallo As Range) As Double 

   Dim v As Range, v2 As Variant 

   Dim sum As Double 

   For Each v In Intervallo 

      For Each v2 In Split(v.Value, "+") 

         If Not IsNumeric(Trim(v2)) Then 

            sum = sum + 0 

         Else 

            sum = sum + CDbl(Trim(v2)) 

         End If 

      Next v2 

   Next v 

   Somma_ValoriNumerici_Alfanumerici = sum 

End Function 

Il file va salvato in formato ".xlsm" (con attivazione di macro).

Il codice va salvato in un modulo vba standard.

La funzione va utilizzata in una cella come una normale funzione Excel assegnando come argomento l'intervallo di celle per le quali si desidera effettuare la somma.

Vedi se ti può essere utile.

ciao