vba excelde hücredeki kelimeyi harf harf diziye atama

Kodla Büyü
sertokus

sertokus

Süper Üye
Süper Üye
Mesajlar
2,350
merhaba arkadaşlar.
vba excelde hücredeki kelimeyi harf harf diziye atamak istiyorum

hücrede SINIF yazıyor ise

Dim strName As Variant
strName = Array("S", "I", "N", "I", "F") şekline getirmek istiyorum.

Yardımcı olur musunuz.
 
Aşağıdaki splitword fonksiyonu ile istediğiniz şeyi elde edebilirsiniz. Yabancı bir sitede buldum, üzerinde biraz oynadım.
Kod: 
Function SplitWord(Word As String) As String()
    Dim res() As String
    ReDim res(0 To Len(Word) - 1)
    For i = 0 To Len(Word) - 1
        res(i) = Mid(Word, i + 1, 1)
    Next
    SplitWord = res
End Function

Sub harfdonus()
Dim harfler() As String
harfler = SplitWord("ali")
MsgBox (harfler(0))
MsgBox (harfler(1))
MsgBox (harfler(2))
End Sub
 
yakuphan' Alıntı:
Aşağıdaki splitword fonksiyonu ile istediğiniz şeyi elde edebilirsiniz. Yabancı bir sitede buldum, üzerinde biraz oynadım.
Kod: 
Function SplitWord(Word As String) As String()
    Dim res() As String
    ReDim res(0 To Len(Word) - 1)
    For i = 0 To Len(Word) - 1
        res(i) = Mid(Word, i + 1, 1)
    Next
    SplitWord = res
End Function

Sub harfdonus()
Dim harfler() As String
harfler = SplitWord("ali")
MsgBox (harfler(0))
MsgBox (harfler(1))
MsgBox (harfler(2))
End Sub
Genişletmek için tıkla ...
Çok teşekkür ederim hocam. İşe yaradı.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst