Excel Özel İşlemler Menüsü Eklentisi - Sağ Tuş

assenucler

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,519
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Home Single Language x64 TR
Teşekkürler.
 
Katılım
24 Nisan 2005
Mesajlar
3,652
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Güncelleme V4.0.4

* Adı Soyadı bilgisinde * yıldız ekleme özelliği eklendi.
* Metinlerde boşluk karakterine kadar kelime olarak işlem yapar.
* Görünen karakter sayısı belirlenebilir
* Yıldız karakteri için karakter belirlenebilir
* Sabit yıldız seçimi yapılabilir. Sabit yıldız sayısı belirlenebilir

Asri Akdeniz As** Ak*****
Asri Akdeniz As** Ak**
Asri Akdeniz As-- Ak-----
Asri Akdeniz As-- Ak--

C#:
Sub isimyildizekle()
'Asri Akdeniz - www.asriakdeniz.com - asriakdeniz@gmail.com

    Dim veri, harf, yeniveri As String

    For Each hucre In Selection
        If hucre <> Empty Then
           veri = hucre
           veri = Trim(veri)
        
           basla = 0
           yeniveri = ""
           harf = ""
           baslahucre = 0
           For i = 1 To Len(veri)
              harf = Mid(veri, i, 1)
              baslahucre = baslahucre + 1
              If (harf <> "" And harf <> " ") And baslahucre > Val(gorunensay.Value) Then
                 If yildizsabit.Value And baslahucre > Val(gorunensay.Value) + 1 Then
                    harf = "~"
                 Else
                    harf = yildizkarakteri.Value
                 End If
              End If
              If harf = " " Then
                 baslahucre = 0
              End If
              yeniveri = yeniveri & harf
           Next i
        End If
      
        If yildizsabit.Value Then
           yeniveri = Replace(yeniveri, "~", "")
           harf = ""
           For i = 1 To Val(yildizsayisi.Value)
            harf = harf & yildizkarakteri.Value
           Next i
           hucre = Replace(yeniveri, yildizkarakteri.Value, harf)
        Else
           hucre = yeniveri
        End If
          
    Next
End Sub
223821
 
Katılım
24 Nisan 2005
Mesajlar
3,652
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Güncelleme V4.0.5

* İlk seçilen hücre referans hücre olarak belirlenir. Diğer seçilmiş olan hücreler, sayma seçimlerine bağlı olarak referans hücre ile eşitlenirse sayma yapılır ve eşitlenen hücrelerin toplam sayısı mesaj olarak verilir.


224726
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,610
Excel Vers. ve Dili
Microsoft 365 Tr-64
@Asri hocam, bu dosyanın güncellenmiş hali hangisidir?
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,610
Excel Vers. ve Dili
Microsoft 365 Tr-64
Zaten sayfanızda aramaya çalışıyorum. Orada bulamadım.
 
Katılım
24 Nisan 2005
Mesajlar
3,652
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Güncelleme V4.0.9

* İlk seçilen hücre referans hücre olarak belirlenir. Diğer seçilmiş olan hücreler, seçimlere bağlı olarak referans hücre ile eşitlenirse ilgili işlemler yapılır.

- Zemin rengi, font rengi font boyu ve veri den birden fazla seçim yapılarak ilk seçilen hücreden referans alınır.
- Aynı olanlar, aynı olmayanlar
- Satır sil, veri sil
- Biçim sil , biçim silme seçimleri yapılabilir.

235925
 
Üst