Hücredeki Her Kelimenin ilk iki harfi dışında kalanları yıldız * yapmak

[iskitoxin]

Merhaba;

Hücredeki Her Kelimenin ilk iki harfi dışında kalanları yıldız (*) yapabilmek için bir işlem var mıdır?

Örnek:

Excel Web TR = Ex*** We* TR

Yardımcı olabilir misiniz?

 

[Tevfik_Kursun]

Merhaba,
Sanırım bunu göstermemiş olmak için istiyorsunuz. Bu durumda hücreye getirdiğiniz cümlenin ilk iki harfini alır yanına 28 tane yıldız atarsınız. Diyelim A1 den getiriyorsunuz.

=SOLDAN(A1;2)&YİNELE("*";28)

Siz her kelime için istiyormuşsunuz, gönderdikten sonra fark ettim. Az sonra o örneği de hazırlarım sanırım.
İyi çalışmalar

 

[iskitoxin]

Merhaba Tevfik Bey,

ilginize teşekkür ederim, Her kelime içinde yardımcı olabilirseniz çok müteşekkir olurum.

İyi çalışmalar,

 

[Tevfik_Kursun]

Merhaba,
Ekli örneği inceleyiniz
İyi çalışmalar

 

[iskitoxin]

Merhaba Tevfik Bey;

Teşekkür ederim, işimi çok kolaylaştırdı.

İyi çalışmalar,

 

[Tevfik_Kursun]

Geri dönüş yaptığınız için ben teşekkür ederim.
İyi çalışmalar

 

[tamer42]

Merhaba,
Ekli örneği inceleyiniz
İyi çalışmalar

Hocalarım iyi akşamlar,
Ekli dosyada yer alan çalışma için çok teşekkürler,
burada ilk 2 harf olduğu gibi kalanları * işareti olarak gösterilmekte,
benim istemiş olduğum ise her bir kelimede ilk harf ve son harf olduğu gibi, arada kalan harfler * olarak gösterilmesi,

örnek: AHMET YIDIZ şeklindeki bir ad soyad kelime grubu A***T Y****Z şeklinde gösterilmesi nasıl sağlanabilir?

desteğiniz için şimdiden teşekkürler.

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
KTF olarak mı istediniz bilemedim.

Function YILDIZLA(veristr As Range) As String
    veri = Trim(veristr.Value)
    For j = 2 To Len(veri) - 1
        If Mid(veri, j - 1, 1) <> " " And Mid(veri, j + 1, 1) <> " " And Mid(veri, j, 1) <> " " Then
           Mid(veri, j, 1) = "*"
        End If
    Next j
    YILDIZLA = veri
End Function

Siteden bir hocamızın hazırladığıdır.
İyi çalışmalar

 

[tamer42]

Merhaba Arkadaşım,
KTF olarak mı istediniz bilemedim.

Function YILDIZLA(veristr As Range) As String
    veri = Trim(veristr.Value)
    For j = 2 To Len(veri) - 1
        If Mid(veri, j - 1, 1) <> " " And Mid(veri, j + 1, 1) <> " " And Mid(veri, j, 1) <> " " Then
           Mid(veri, j, 1) = "*"
        End If
    Next j
    YILDIZLA = veri
End Function

Siteden bir hocamızın hazırladığıdır.
İyi çalışmalar

Kod için teşekkürler,
Excel' in yerleşik fonksiyonu ile yapmak mümkün müdür?
iyi akşamlar

 

[Tevfik_Kursun]

Sayın Arkadaşım,
Onu bilemem, ama makro ile de yapabilirsiniz. Gerekiyorsa gönderebilirim. Münferit uygulayacaksınız diye KTF olarak gönderdim.
İyi çalışmalar

 

[CheSabata]

=EĞER(D2=""; "";EĞER(UZUNLUK(D2)-UZUNLUK(YERİNEKOY(D2;" ";""))=0;PARÇAAL(D2;1;2) & YİNELE("*";UZUNLUK(D2)-2); EĞER(UZUNLUK(D2)-UZUNLUK(YERİNEKOY(D2;" ";""))=1;PARÇAAL(D2;1;2) & YİNELE("*"; UZUNLUK(PARÇAAL(D2;1;BUL(" ";D2)-1))-2) & " " & PARÇAAL(PARÇAAL(D2;BUL(" ";D2)+1;UZUNLUK(D2)-BUL(" ";D2));1;2) & YİNELE("*"; UZUNLUK(PARÇAAL(D2;BUL(" ";D2)+1;UZUNLUK(D2)-BUL(" ";D2)))-2);EĞER(UZUNLUK(D2)-UZUNLUK(YERİNEKOY(D2;" ";""))=2;PARÇAAL(D2;1;2) & YİNELE("*"; UZUNLUK(PARÇAAL(D2;1;BUL(" ";D2)-1))-2) & " " &PARÇAAL(PARÇAAL(D2;BUL(" ";D2)+1;BUL(" ";D2;BUL(" ";D2)+1)-BUL(" ";D2)-1);1;2) & YİNELE("*"; UZUNLUK(PARÇAAL(D2;BUL(" ";D2)+1;BUL(" ";D2;BUL(" ";D2)+1)-BUL(" ";D2)-1))-2) & " " &PARÇAAL(PARÇAAL(D2;BUL(" ";D2;BUL(" ";D2)+1)+1;UZUNLUK(D2)-BUL(" ";D2;BUL(" ";D2)+1));1;2) & YİNELE("*"; UZUNLUK(PARÇAAL(D2;BUL(" ";D2;BUL(" ";D2)+1)+1;UZUNLUK(D2)-BUL(" ";D2;BUL(" ";D2)+1)))-2);))))

Makro engelli olduğum için beni baya uğraştırdı Biraz eski bir konu ama ihtiyacı olan olursa (Yapay zeka destekli) şöyle bir kodu da buraya bırakayım