Excel KTF Metin Kısalt


Verilen metinden parametrede belirtilen sayı kadar parça alır ve sonuna üç nokta ekleyerek yazdırır.

Kod
Option Explicit

Function MetinKisalt(metin As String, uzunluk As Byte)
    MetinKisalt = Mid(metin, 1, uzunluk) & "..."
End Function

Bunlar da hoşunuza gidebilir...


Bir cevap yazın

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