Klinkers zoeken

[baukjen]

Is dit mogelijk met Excel?
Zoek de klinkers uit een woord en maak daarvan één getal.
VOORBEELD:
aub nu zoeken naar alle klinkers in deze zin
klinkers zijn
a u u o e a a a e i e i e e i

maakt getal 133651115959559
som is
1+3+3+6+5+1+1+1+5+9+5+9+5+5+9=68 maakt 14 maakt 5

Ben heel benieuwd!

hr.gr.
Baukjen
:shocked:

Bekijk bijlage 251787

 

[Roncancio]

Niet zo zeer in Excel maar met een UDF geschreven in VBA kan dit zeker.
Waarom zou je dit willen?

Met vriendelijke groet,


Roncancio

 

[VenA]

Welke vervolgvragen gaan hier weer op komen? En waarom mag de eerste of laatste e in zoeken niet meedoen?

 

[edmoor]

De u = 21 = 2 + 1 = 3?
De o = 15 = 1 + 5 = 6?

Dus de posities in het alfabet boven de 9 moeten ook eerst op die manier worden berekend?

 

[baukjen]

#2 Waarom zou je dit willen? de uitkomst wil ik koppelen aan een tekst bestand.

 

[baukjen]

#4 de telling begint steeds weer bij 1 t/m 9 dus is de u een 3 maar de c ook en de o een 6 maar de f ook.

 

[baukjen]

Scherp opgemerkt van VenA, compliment.

Net even een test gedaan resultaat blijft tellen alle letters. Vraag valt de Y onder de klinker?

hr.gr.
Baukjen



Bekijk bijlage 251813

 

[VenA]

Wat VenA zegt klopt

Ik heb dan ook geen Honourable in mijn titulatuur staan en worden de vragen maar genegeerd.:d

Function Klinker(r)
s = "a" & Chr(172) & "u" & Chr(172) & "e" & "o" & Chr(172) & Chr(172) & "i"
For j = 1 To Len(r)
    If InStr(1, s, Mid(r, j, 1)) <> 0 Then Klinker = Klinker & InStr(1, s, Mid(r, j, 1))
Next j
End Function

Edit toch gelezen door de TS

 

[baukjen]

Lol hihi
:d

 

[baukjen]

reactie op #8. deze lijkt bijna te werken. de medeklinker doet nog mee in de telling.

 

[VenA]

Met de (mede)klinker bedoel je de y? Waarde 4?

Dan kan je de aangereikte codes toch eenvoudig zelf aanpassen?

Edit
@edmoor, Waar is jouw reactie gebleven. Nu slaat alles als een tang op een varken

 

[baukjen]

reactie #11 jazeker is dat aan te passen. ik vroeg het mij alleen af.

 

[VenA]

Zit hier nog een vraag in? Of zet je de status even op opgelost?

 

[HSV]

Declareer 'Klinkers' als long.

Function Klinkers(Zin As Range) As Long
   Dim i As Integer, s As String
    For i = 1 To Len(Zin)
        Select Case LCase(Mid(Zin, i, 1))
            Case "a"
              s = s & "1"
            Case "e"
              s = s & "5"
            Case "i"
              s = s & "9"
            Case "o"
              s = s & "6"
            Case "u"
              s = s & "3"
            Case Else
             s = s
        End Select
    Next i
        Klinkers = s
End Function

 

[baukjen]

klinkers

reactie #14 het is een mooie slogan iedere keer als ik hem lees, Wie met de duivel danst, moet het orkest betalen.. Ik zou het orkest wel eens willen zien en horen spelen

na testen blijft de medeklinker in het totaal van de som.



Bekijk bijlage 251817

 

[HSV]

Vul in een cel: =klinkers(a6)

 

[baukjen]

reactie #16 super en bedankt. doe je de groet aan de orkestleider?
NB tip voor een goede handleiding VBA welek raad je mij aan?

hr.gr.
Baukjen

:thumb:

 

[HSV]

1). Als jij ontdekt waar de klepel hangt.
2). Geen idee, ik heb er nog nooit een gelezen (zou ik misschien eens moeten doen).

Tip: Kom wat vaker langs op dit forum; ook zonder vragen.

 

[baukjen]

ga ik zeker doen

 

[VenA]

Ipv snel te reageren kan je beter de aangereikte codes eerst grondig testen en de vragen van de helpers beantwoorden. De code van HSV is gelijk aan aan de (verwijderde post) van edmoor met als verschil dat de laatste de uitkomt als 'Long' definieert. Dit gaat bij mij maar goed tot 10 klinkers. Als je de Function definieert als string heb je deze beperking niet.