Vaikea Summa

kysyttiinkin tietyn alkukirjaimen sisältävien solujen summaa

Function KirjainSumma(Alue As Range, Kirjain As String) As Double
For Each solu In Alue
If Left(solu, 1) = Kirjain Then
KirjainSumma = KirjainSumma Val(Mid(solu, 2))
End If
Next
End Function
ja tulossoluun funktio
=KirjainSumma(A1:A200;"k")

Kunde kirjoitti:

kysyttiinkin tietyn alkukirjaimen sisältävien solujen summaa

Function KirjainSumma(Alue As Range, Kirjain As String) As Double
For Each solu In Alue
If Left(solu, 1) = Kirjain Then
KirjainSumma = KirjainSumma Val(Mid(solu, 2))
End If
Next
End Function
ja tulossoluun funktio
=KirjainSumma(A1:A200;"k")

Kiitoksia. Toimii juuri niinkuin pitääkin.

Mielenkiinnosta kyselisin vastaisuuden varalle, että mikä ja missä on tuo 'moduuli', mihin tuo kaava kirjoitetaan?

Yritin etsiä ohjeen avulla ja läysinkin sanan moduuli, mutta tietoa tuli makroista.

sanna kirjoitti:

Mielenkiinnosta kyselisin vastaisuuden varalle, että mikä ja missä on tuo 'moduuli', mihin tuo kaava kirjoitetaan?

Yritin etsiä ohjeen avulla ja läysinkin sanan moduuli, mutta tietoa tuli makroista.

Ei sitä olekaan ennenkuin lisäät sen sinne. Paina Alt pohjassa ylärivin F11 näppäintä ja sieltä Insert -> Module
ja siihen koodi.
Kun nauhoitat makron lisää Excel moduulin automaattisesti.

paavali kirjoitti:

Ei sitä olekaan ennenkuin lisäät sen sinne. Paina Alt pohjassa ylärivin F11 näppäintä ja sieltä Insert -> Module
ja siihen koodi.
Kun nauhoitat makron lisää Excel moduulin automaattisesti.

Kiitos jälleen neuvoista :)

Tuo toimii jos solualueella ei ole tyhjiä soluja.
Pystyykö sitä muuttamaan niin että toimii vaikka alue A1:A200 ei ole täynnä.

Leila kirjoitti:

Tuo toimii jos solualueella ei ole tyhjiä soluja.
Pystyykö sitä muuttamaan niin että toimii vaikka alue A1:A200 ei ole täynnä.

matriisikaavana
{=SUMMA(JOS(ONVIRHE(OIKEA(A1:A200;PITUUS(A1:A200)-1));0;OIKEA(A1:A200;PITUUS(A1:A200)-1))*(VASEN(A1:A200;1)="k"))}