1. Ana Sayfa
  2. Excel
  3. Excel Küçük Büyük Harf Değiştirme

Excel Küçük Büyük Harf Değiştirme

excel küçük büyük harf

Excel’de küçük büyük harf değiştirmek için yada tam tersi büyük harfleri küçük harfe dönüştürmek için “=KÜÇÜKHARF” veya “=BÜYÜKHARF” formülünü kullanıyoruz yalnız bu formül hedef hücredeki değeri alıp değiştirip başka bir hücrede göstermek için kullanıyor. Eğer Word’de olduğu gibi aynı hücre içerisinde küçük büyük harf değiştirme işlemi yapmak istiyor isek bu işlemin kısayolu olarak aşağıdaki macroyu kullanabiliriz.
kodlarımız

  Sub buyukyap()
Selection.Replace What:="a", Replacement:="A"
Selection.Replace What:="b", Replacement:="B"
Selection.Replace What:="c", Replacement:="C"
Selection.Replace What:="ç", Replacement:="Ç"
Selection.Replace What:="d", Replacement:="D"
Selection.Replace What:="e", Replacement:="E"
Selection.Replace What:="f", Replacement:="F"
Selection.Replace What:="g", Replacement:="G"
Selection.Replace What:="ğ", Replacement:="Ğ"
Selection.Replace What:="h", Replacement:="H"
Selection.Replace What:="ı", Replacement:="I"
Selection.Replace What:="i", Replacement:="İ"
Selection.Replace What:="j", Replacement:="J"
Selection.Replace What:="k", Replacement:="K"
Selection.Replace What:="l", Replacement:="L"
Selection.Replace What:="m", Replacement:="M"
Selection.Replace What:="n", Replacement:="N"
Selection.Replace What:="o", Replacement:="O"
Selection.Replace What:="ö", Replacement:="Ö"
Selection.Replace What:="p", Replacement:="P"
Selection.Replace What:="r", Replacement:="R"
Selection.Replace What:="s", Replacement:="S"
Selection.Replace What:="ş", Replacement:="Ş"
Selection.Replace What:="t", Replacement:="T"
Selection.Replace What:="u", Replacement:="U"
Selection.Replace What:="ü", Replacement:="Ü"
Selection.Replace What:="v", Replacement:="V"
Selection.Replace What:="y", Replacement:="Y"
Selection.Replace What:="z", Replacement:="Z"
Selection.Replace What:="q", Replacement:="Q"
Selection.Replace What:="w", Replacement:="W"
Selection.Replace What:="x", Replacement:="X"
End Sub
Sub kucukyap()
Selection.Replace What:="A", Replacement:="a"
Selection.Replace What:="B", Replacement:="b"
Selection.Replace What:="C", Replacement:="c"
Selection.Replace What:="Ç", Replacement:="ç"
Selection.Replace What:="D", Replacement:="d"
Selection.Replace What:="E", Replacement:="e"
Selection.Replace What:="F", Replacement:="f"
Selection.Replace What:="G", Replacement:="g"
Selection.Replace What:="Ğ", Replacement:="ğ"
Selection.Replace What:="H", Replacement:="h"
Selection.Replace What:="I", Replacement:="ı"
Selection.Replace What:="İ", Replacement:="i"
Selection.Replace What:="J", Replacement:="j"
Selection.Replace What:="K", Replacement:="k"
Selection.Replace What:="L", Replacement:="l"
Selection.Replace What:="M", Replacement:="m"
Selection.Replace What:="N", Replacement:="n"
Selection.Replace What:="O", Replacement:="o"
Selection.Replace What:="Ö", Replacement:="ö"
Selection.Replace What:="P", Replacement:="p"
Selection.Replace What:="R", Replacement:="r"
Selection.Replace What:="S", Replacement:="s"
Selection.Replace What:="Ş", Replacement:="ş"
Selection.Replace What:="T", Replacement:="t"
Selection.Replace What:="U", Replacement:="u"
Selection.Replace What:="Ü", Replacement:="ü"
Selection.Replace What:="V", Replacement:="v"
Selection.Replace What:="Y", Replacement:="y"
Selection.Replace What:="Z", Replacement:="z"
Selection.Replace What:="Q", Replacement:="q"
Selection.Replace What:="W", Replacement:="w"
Selection.Replace What:="X", Replacement:="x"
End Sub
Sub ilkharfbuyukyap()
For Each cell In Selection
If Not cell.HasFormula Then
cell.Value = Application.WorksheetFunction.Proper(cell.Value)
End If
Next cell
End Sub
excel küçük büyük harf
excel küçük büyük harf
Yorum Yap

Kimler Neler Demiş?

avatar

This site uses Akismet to reduce spam. Learn how your comment data is processed.

  Subscribe  
Bildir