Excel VBA Metin Kodları

[lider22]

Excel metin fonksiyonları ile ilgili olarak bir görsel eğitim hazırlamıştım. Eğer izlemediyseniz tıklayın.

Şimdi bu fonksiyonların Excel VBA ile nasıl kullanıldığına dair örnekler vereceğim. Bazı işlemlerin kullanımını hızlandırıp ve kolaylaştırdığı için büyük dataların anlamlı hale getirilmesinde kullanabilirsiniz.

VBA ile hücredeki metnin solundan değer almak için;

Sub soldan()
deger=cells(1,1)
cells(1,2)=Left(deger,2)
End Sub

Yukarıdaki örnek A1 hücresindeki değerin, solundan 2 harf almaktadır. Eğer A1 hücresinde Mustafa yazıyorsa, sonuç Mu olarak dönecektir.

VBA ile hücredeki metnin sağından değer almak için;

Sub sagdan()
deger=cells(1,1)
cells(1,2)=Right(deger,2)
End Sub

Yukarıdaki örnek A1 hücresindeki değerin, sağından 2 harf almaktadır. Eğer A1 hücresinde Mustafa yazıyorsa, sonuç fa olarak dönecektir.

VBA ile hücredeki metinden parça almak için;

Sub parcaal()
deger=cells(1,1)
cells(1,2)=Mid(deger,2,4)
End Sub

Yukarıdaki örnek A1 hücresindeki değerin, 2. karakterinden başlayıp sağa doğru 4 harf almaktadır. Eğer A1 hücresinde Mustafa yazıyorsa, sonuç usta olarak dönecektir.

Faydalı olması dileğiyle…

 

[Mustafa MUTLU]

Paylaşım için teşekkürler..

 

[Mukteda]

Çok teşekkürler

 

[Tasarım]

Teşekkür ederiz.

 

[leonadies]

İki Kelimelik cümlelerde en sondaki kelimeyi atmayi makro ile nasıl yaparız?

 

[Korhan Ayhan]

Deneyiniz.

Cümlede ki 2. kelimeyi sonuç olarak verir.

Option Explicit

Sub Test()
    Dim Son_Kelime As String
    
    If InStr(1, Range("A1").Value, " ") > 0 Then
        Son_Kelime = Split(Range("A1").Value, " ")(1)
    End If
End Sub

 

[leonadies]

@Korhan Ayhan hocam sondaki kelimeyi atmam gerekiyor. Bu kod sondaki kelimeyi alıyor.
"Eve geç geldi" kelimesindeki en son kelimeyi atsın istiyorum

 

[Korhan Ayhan]

Ben sorunuzda ki "atmayı" ifadesini "almayı" olarak algılamışım. Bugün sanırım yoruldum. Ya da yaşlanıyorum.

Deneyiniz.

Option Explicit

Sub Test()
    Dim Kelime As Variant
    
    If InStr(1, WorksheetFunction.Trim(Range("A1").Value), " ") > 0 Then
        Kelime = Split(WorksheetFunction.Trim(Range("A1").Value), " ")
        ReDim Preserve Kelime(0 To UBound(Kelime) - 1)
        MsgBox Join(Kelime, " ")
    End If
End Sub