excel büyük - küçük harf değişikliği için güzel ve kolay ekl

Kodla Büyü
Yalnız_Kurt

Yalnız_Kurt

Süper Üye
Süper Üye
Mesajlar
1,642
excel büyük - küçük harf değişikliği için güzel ve kolay eklenti
arkadaşlar bu eklentiyi kurmadan önce excel i açın;

oradan
araçlar --> makro --> güvenlik --> düşük (önerilmez)
seçeneklerini işaretleyin ve tamam butonuna basın (ekte ki excel 1 ve excel 2 fotoğraflarıyla anlatılmıştır)

daha sonra 1.ekteki (fmdtb1.xla) dosyasını bilgisayarınıza indirin ve açın, kurulum tamamlanacaktır (excel 3 fotoğrafında ki gibi görünecektir)

http://hotfile.com/dl/26978450/2f0ae37/ ... k.rar.html
 

Ekli dosyalar

  • exceL03.jpg
    exceL03.jpg
    89.8 KB · Görüntüleme: 7,699
  • exceL02.jpg
    exceL02.jpg
    98.6 KB · Görüntüleme: 7,698
  • exceL01.jpg
    exceL01.jpg
    100.9 KB · Görüntüleme: 7,696
Arkadaşım yamayı kurdum ve excell e yerleşti ancak harf değişim butonları resimdeki gibi değil siyah renkli ,butonların üzerine gelince harf değişiklikleri yazısı görünüyor ancak excell de yazmış olduğum yazıya gelip değişiklik yapmak istediğim zaman butona basınca hata veriyor bir yardımcı olurmusunuz tş
 
ne gereği var, wordde yap, excele yapıştır.

excelde büyük-küçük harf değişikliği olmadığını ilk öğrendiğimde baya bi yadırgamış, Microsoft programcılarına affedersiniz "salaklar" bile demiştim.
 
ilaveten bakiniz:
http://www.sordum.com/?p=1278

Excelde ise :
=UPPER(A1) - A1 hücresindeki yazinin hepsini büyük harf haline getirir
=LOWER(A1) - A1 hücresindeki yazinin hepsini kücük harf haline getirir
=PROPER(A1) - A1 hücresindeki yaziyi bas harfi büyük digerleri kücük hale getirir

Eger bunu bir macro ile yapmak isterseniz:
Kod: 
Sub ChangeCase()
    Dim Rng As Range
    On Error Resume Next
    Err.Clear
    Application.EnableEvents = False
    For Each Rng In Selection.SpecialCells(xlCellTypeConstants, _
             xlTextValues).Cells
        If Err.Number = 0 Then
           ' Rng.Value = StrConv(Rng.Text, vbUpperCase)
           ' Rng.Value = StrConv(Rng.Text, vbLowerCase)
           ' Rng.Value = StrConv(Rng.Text, vbProperCase)
        End If
    Next Rng
    Application.EnableEvents = True
End Sub

Kaynak:
http://www.cpearson.com/Excel/ChangingCase.aspx
 
excelde bunun icin zaten dahili cozum var. A1 konu hucremiz ve
=BÜYÜKHARF(A1) - buyuk
=KÜÇÜKHARF(A1) - kucuk
=YAZIM.DÜZENİ(A1) - ilk harf buyuk, gerisi kucuk
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst