Kelime içindeki sessiz harfların diziliş sıralarını yazdırmak.

[hmurat]

Merhaba,

Ekte bulunan denemem1 (excel 2003) a1 ve b1 hücrelerinde bulunan kelimenin ilk harflerini ve sessiz harflarin kelime içindeki sıra numaralarını nasıl yazdırabilirim. Umarım dosya içindeki açıklama yeterlidir.

 

[ozgretmen]

Dosyanı ekler misin ?

 

[hmurat]

Merhaba,

Konu hakkında en azından fikri olan arkadaş yokmu?

 

[janveljan]

bu kodlar işinizi görecektir.

Sub kodla()
Dim k() As String
a = Cells(1, 2) & Cells(1, 1)
ReDim k(1 To Len(a))
For i = 1 To Len(a)
    k(i) = Mid(a, i, 1)
Next
sonuc = Mid(Cells(1, 2), 1, 1) & Mid(Cells(1, 1), 1, 1)
For i = Len(Cells(1, 2)) + 1 To Len(a)
    If InStr(1, "bcçdfgğhjklmnprsitvyz", k(i)) > 0 Then
    sonuc = sonuc & i
    End If
Next
For i = 1 To Len(Cells(1, 2))
    If InStr(1, "bcçdfgğhjklmnprsitvyz", k(i)) > 0 Then
    sonuc = sonuc & i
    End If
Next
cells(1,3)=sonuc
MsgBox sonuc
End Sub

 

[Orion1]

KTF hazırladım.
Kullanılışı
=sessizler(B1;A1)
D2 hücresindeki formüle bakınız.

Function sessizler(deg1 As Range, deg2 As Range)
Dim dizi As Variant, deg As String, degler As String, k As Integer, j As Integer
dizi = Array("", "B", "C", "Ç", "D", "F", "G", "H", "J", "K", "L", "M", "N", "P", "Q", "R", "S", "T", "V", "W", "X", "Y", "Z")
deg = Left(deg2, 1) & Left(deg1, 1)
degler = deg1 & deg2
    For k = 1 To Len(degler)
        For j = 1 To UBound(dizi)
            If UCase(Mid(degler, k, 1)) = dizi(j) Then
                deg = deg & k
                Exit For
            End If
        Next j
    Next k
sessizler = deg
End Function