Metin uzunluğunu 8 karaktere tamamlama

[tamer42]

Merhaba
Bir sütunda metinler yazılı, bu metinlerin uzunluğunu 8 olacak şekilde; metinin sağına eksik olduğu kadar @ karakteri yazmak istiyorum
bu durumu kod ile nasıl formülüze edebiliriz?

önce:
abc
abcd
abcde
aabbbbcc
aabbbbccd

sonra:
abc@@@@@
abcd@@@@
abcde@@@
aabbbbcc@
aabbbbccd


Teşekkürler,
iyi Bayramlar.

 

[YUSUF44]

Aşağıdaki kodu deneyin:

Sub yinele()
son = Cells(Rows.Count, "a").End(3).Row
For i = 1 To son
    If Cells(i, "A") <> "" Then
        If Len(Cells(i, "A")) < 8 Then
            Cells(i, "A") = Cells(i, "A") & WorksheetFunction.Rept("@", 8 - Len(Cells(i, "A")))
        End If
    End If
Next
End Sub

 

[Korhan Ayhan]

Deneyiniz.

=EĞER(UZUNLUK(A1)<8;A1&YİNELE("@";8-UZUNLUK(A1));A1)

 

[Haluk]

Sub Test()
    xStr = "abc"
    
    xStr = xStr & String(8 - Len(xStr), "@")
    
    MsgBox xStr
End Sub

.

 

[mehmetuca]

=EĞER(UZUNLUK(A1)>=8;A1;A1&YİNELE("@";8-UZUNLUK(A1)))

 

[tamer42]

Deneyiniz.

=EĞER(UZUNLUK(A1)<8;A1&YİNELE("@";8-UZUNLUK(A1));A1)

Yusuf ve Korhan hocam ilginize çok teşekkürler,

iyi Bayramlar.

 

[tamer42]

Sub Test()
    xStr = "abc"
   
    xStr = xStr & String(8 - Len(xStr), "@")
   
    MsgBox xStr
End Sub

.

Haluk Hocam çok teşekkürler