Function xBol(Mtn As String) As String
Dim DiziMtn() As String
Mtn = Replace(Mtn, "]", "[")
DiziMtn = Split(Mtn, "[")
xUst = UBound(DiziMtn)
If xUst = 0 Then
xBol = ""
Exit Function
End If
For x = 0 To 7 Step 2
xBol = xBol & DiziMtn(x)
Next x
End Function
modüle ekleyeceğiniz yukardaki fonksiyon işe yarayabilir, tabi isterseniz argüman kısmına opsiyonel olarak "[","]" parantezlerini de ekleyebilirsiniz
Metinden İstediğimiz Bir Kısmı Diğer Metin Kutusuna Aktarmak
Konuyu Okuyanlar: 1 Ziyaretçi