Sub Uppercase()
 ' Belirtilen aralıktaki her bir hücreye tek tek git.
 For Each x In Range("A1:A5")
   ' Aralıktaki metni büyük harflere dönüştür.
   x.Value = UCase(x.Value)
 Next
 End Sub
Kopyala

Sub Lowercase()
 ' Belirtilen aralıktaki her bir hücreye tek tek git.
 For Each x In Range("B1:B5")
   x.Value = LCase(x.Value)
 Next
 End Sub
Kopyala

Sub Proper_Case()
 ' Belirtilen aralıktaki her bir hücreye tek tek git.
 For Each x In Range("C1:C5")
   ' Visual Basic for Applications'ta Yazım Düzeni işlevi yoktur.
   ' Bu nedenle, çalışma sayfası işlevini aşağıdaki şekilde kullanmalısınız:
   x.Value = Application.Proper(x.Value)
 Next
 End Sub
Kopyala