KTF – UDF Kisaltma Yapma – Ilk Harfler

Resimde gordugunuz uzere bazi kurumlar ve bu kurumlarin ilk harflerinden olusan bir kisaltma yaptik, kisaltmalar gercekte kullanilanlar ile birebir olmayabilirler fakat konuyu anlatmak icin gecerli oldugunu dusunuyorum..

Konumuzda aradaki bosluk sayisi ne olursa olsun ilk harflerin alinmasini sagliyorum..

 

Option Explicit
Function Kisaltma(Original_String As String) As String

Dim Trimmed_String As StringDim Length As IntegerDim Pos As Integer

'Uzunlugunu bulma

Trimmed_String = Application.WorksheetFunction.Trim(Original_String)

Length = Len(Trimmed_String)

Kisaltma = UCase(Left(Trimmed_String, 1))

For Pos = 2 To Length - 1 If (Mid(Trimmed_String, Pos, 1) = " ") Then

Kisaltma = Kisaltma & UCase(Mid(Trimmed_String, Pos + 1, 1))

End If

Next Pos

End Function

 

 

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“KTF – UDF Kisaltma Yapma – Ilk Harfler” için 3 yorum

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


3 + 9 =