KTF – UDF – Metni Terse Çevir

Metnı terse cevırmek yani masa yazisini, asam olarak yazmak icin bir ornek yapacagiz daha sonra fonksiyona cevirerek ktf olarakta kullanabilirsiniz..

Ornegimizde veri sizin tarafinizdan girilsin onun icin bir inputbox olsun ve girilen veriyi ters yazalim..

VBA Kodlari

Option Explicit

Private Sub CommandButton1_Click()

'Atamalar

Dim veri As String

Dim Reversed_String As String

Dim Next_Char As String

Dim Length As Integer

Dim Pos As Integer

'Veriyi Belirleme

Veri = InputBox("Verinizi Giriniz")

'Verinin uzunlugunu bulma

Length = Len(Veri)

Reversed_String = ""

For Pos = Length To 1 Step -1

Next_Char = Mid(Veri, Pos, 1)

Reversed_String = Reversed_String & Next_Char

Next Pos

MsgBox "Ters Cevrilmis Veriniz: " & Reversed_String

End Sub

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 – Metni Terse Çevir” için 2 yorum

  1. Bana acil metni tersten yazdıran KTF gerekiyor excelde olacak şekilde VB şeklinde istemiyorum… butonlu falan. Acil ödevim için… Yardımcı olursanız çok sevinirim

    İyi akşamlar

Bir Cevap Yazın

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


8 + 1 =