kelimeyi ayırmak..

[gencoglu27]

Merhaba,
A sütünundaki kelimelere ait sesli harfleri B sütununa sessiz olanları ise C sütununa ayırmak istıyorm.. yardımcı olur musunuz ?
Teşekkürler.

 

[Zeki Gürsoy]

Şunu deneyin.

Function harf_ayir(kelime As String, Optional ses As Boolean) As String
Dim i As Integer, s As String

    If (ses = False) Then
        For i = 1 To Len(kelime)
            s = Mid(kelime, i, 1)
            Select Case Evaluate("upper(""" & s & """)")
                Case "A", "E", "I", "İ", "O", "Ö", "U", "Ü"
                    harf_ayir = harf_ayir & s
                Case Else
                    '
            End Select
        Next
    Else
        For i = 1 To Len(kelime)
            s = Mid(kelime, i, 1)
            Select Case Evaluate("upper(""" & s & """)")
                Case "A", "E", "I", "İ", "O", "Ö", "U", "Ü"
                    '
                Case Else
                    harf_ayir = harf_ayir & s
            End Select
        Next
    End If
    
End Function

Kullanımı:

- Sesliler için : =harf_ayir(a1;0)

- Sessizler için : =harf_ayir(a1;1)

 

[Erdal]

Merhabalar
Alternatif olsun. İyi çalışmalar.

 

[Milady Meriç]

Erdal Bey;

Çalışmanız gerçek çok hoş

Elinize sağlık.

 

[Ömer]

Merhaba,

Bir alternatif de benden olsun.

Sub Sesli_Sessiz_Ayir()
 
    Dim i As Long
    
    Range("B:C").ClearContents
 
    With CreateObject("VBScript.Regexp")
        .Global = True
        .IgnoreCase = True
        For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
            .Pattern = "[^aeıioöuü]"
            Cells(i, "B") = Replace(.Replace(Cells(i, "A"), ""), " ", "")
            .Pattern = "[aeıioöuü]"
            Cells(i, "C") = Replace(.Replace(Cells(i, "A"), ""), " ", "")
        Next i
    End With
 
End Sub

.

 

[gencoglu27]

Arkadaşlar çok sağ olunuz.. elinize sağlık..