Somma lettere e numeri

Question

Salve ragazzi avrei bisogno di una informazione, in una cella m11 vorrei sommare lettere e numeri contenenuti in una colonna d2 : d32 . Esempio 4CS dove CS è uguale a 8 . Il totale dovrebbe venire 12 . Le lettere sono CS, BS, AS, GS, TUTTE UGUALI A 8. I numeri sono variabili da 1 a 70. 

Grazie.

Answer 1

Ciao Danilo,

CIAO ANTONIO, LA TUA FORMULA VA BENISSIMO, POTRESTI AGGIUNGERE PERFAVORE UN PAIO DI DATI:

VORREI AGGIUNGERE LA LETTERE "G" (GSQ; GS; 4GSQ; 4GS.....)

ecco la formula con l'integrazione richiesta:

=MATR.SOMMA.PRODOTTO(--SOSTITUISCI(SOSTITUISCI(SOSTITUISCI(SOSTITUISCI(SOSTITUISCI(SOSTITUISCI(SOSTITUISCI(SOSTITUISCI(SOSTITUISCI("0"&MAIUSC(Dicembre!C1:C31);"ASQ";"");"BSQ";"");"CSQ";"");"GSQ";"");"AS";"");"BS";"");"CS";"");"GS";"");"S";""))+CONTA.SE(Dicembre!C1:C31;"*S*")*8

Per la tua curiosita' vale il  suggerimento di Norman che saluto e ringrazio!

Buon 2016 a tutti,

A.

Answer 2

Ciao Danilo,

A condizione che tutte le celle nell'intervallo di interesse contengano un valore numerico seguito dalla lettera S, prova la seguente formula:

=SOMMA(--SINISTRA(SOSTITUISCI(D2:D32;"S";"+8");TROVA("+";SOSTITUISCI(D2:D32;"S";"+8"))-1);--STRINGA.ESTRAI(SOSTITUISCI(D2:D32;"S";"+8");TROVA("+";SOSTITUISCI(D2:D32;"S";"+8"))+1;255))

Questa  è una formula matriciale che viene confermata bcon Alt+Ctrl+Invio.

===

Regards,

Norman

Answer 3

Mauro la tua formula mi dà errore, regards vorrei evitare di utilizzare macro.

 Inoltre vorrei semplificare la richiesta: mi deve sommare i numeri e tutte le lettere "S" dove "S" è = 8

Answer 4

Se ho capito:

A1: 4CS

B1: =SOMMA(SINISTRA(A1;LUNGHEZZA(A1)-2);8)

Answer 5

Ciao Danilo,

In un modulo standard, incolla la seguente UDF (funzione utente):

'=========>>

Option Explicit

'--------->>

Public Function SommaStrana(Rng As Range)

    Dim Rng2 As Range, rCell As Range

    Dim sStr As String

    Dim arr As Variant

    Dim dSum As Long

    Dim Res As Long

    Dim i As Long

    Const sValues As String = "CS,BS,AS,GS"

    arr = Split(sValues, ",")

    For Each rCell In Rng.Cells

        With rCell

            For i = LBound(arr) To UBound(arr)

                Res = InStr(1, .Value, arr(i), vbTextCompare)

                If CBool(Res) Then

                    sStr = Replace(UCase(.Value), arr(i), "+8")

                    If Not IsError(Evaluate(sStr)) Then

                        dSum = dSum + Evaluate(sStr)

                    End If

                    Exit For

                End If

            Next i

        End With

    Next rCell

    SommaStrana = dSum

End Function

'<<=========

Questa UDF può essere utilizzata come una funzione di Excel nativa; nel caso indicato da te, la formula sarebbe:

          =SommaStrana(D2:D32)

===

Regards,

Norman