Excel'de metnin büyük ve küçük harflerini değiştirmeye yönelik örnek makro kodu

Uygulandığı Öğe
Microsoft 365 için Excel Mac'te Microsoft 365 için Excel Excel 2024 Mac için Excel 2024 Excel 2021 Mac için Excel 2021

Özet

Microsoft Excel metnin büyük/küçük harflerini değiştirmeye yönelik işlevler içerse de, metnin büyük/küçük harflerini programlama yoluyla değiştirmek için Visual Basic for Applications (VBA) makrolarını da kullanabilirsiniz.

Bu makalede, metni büyük harfe, küçük harfe veya düzgün harfe (her sözcüğün ilk harfi büyük yazılır) dönüştüren üç örnek VBA makrosu sağlanır. Bu makrolar Excel'deki BÜYÜKHARF, KÜÇÜKHARF ve YAZIM.DÜZENİ işlevlerine benzer işlemler gerçekleştirir.

Örnek makrolar

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; açık veya zımni hiçbir garanti vermez. Bu, satılabilirlik veya belirli bir amaca uygunluk ile ilgili zımni garantileri içerir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama diline ve prosedürler oluşturmak ve prosedürlerde hata ayıklamak için kullanılan araçlara aşina olduğunuzu varsaymaktadır. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.

Metni büyük harfe dönüştürme

Sub Uppercase()
   Dim x As Range

   ' Loop to cycle through each cell in the specified range.
   For Each x In Range("A1:A5")
      ' Change the text in the range to uppercase letters.
      x.Value = UCase(x.Value)
   Next
End Sub

Metni küçük harfe dönüştürme

Sub Lowercase()
   Dim x As Range

   ' Loop to cycle through each cell in the specified range.
   For Each x In Range("B1:B5")
      x.Value = LCase(x.Value)
   Next
End Sub

Metni düzgün harf kullanımına dönüştürme

Sub Proper_Case()
   Dim x As Range

   ' Loop to cycle through each cell in the specified range.
   For Each x In Range("C1:C5")
      ' Use the Excel PROPER worksheet function to convert text to proper case.
      x.Value = Application.Proper(x.Value)
   Next
End Sub

Örnek makroları sınama

Örnek makroları test etmek için şu adımları izleyin:

  1. Makroları içeren aynı çalışma kitabında, yeni bir çalışma sayfasına aşağıdaki örnek verileri girin:

    A1: toM B1: toM C1: toM
    A2: sUe B2: sUe C2: sUe
    A3: joe SMITH B3: joe SMITH C3: joe SMITH
    A4: Meryem B4: Meryem C4: Meryem
    A5: LORI B5: LORI C5: LORI

  2. Örnek verileri içeren çalışma sayfasının etkin olduğundan emin olun. Geliştirici sekmesinde Makrolar'ı seçin. Bir makro seçin ve ardından Çalıştır'ı seçin. Her makro için bu adımı yineleyin.

Her makro, metni belirtilen aralıkta dönüştürür:

  • Büyük harf: A1:A5 hücrelerindeki metni büyük harfe dönüştürür.
  • Küçük harf: B1:B5 hücrelerindeki metni küçük harfe dönüştürür.
  • Proper_Case: C1:C5 hücrelerindeki metni düzgün büyü/küçük harf kullanımına dönüştürür.

Ayrıca bkz.

Excel'de metnin büyük ve küçük harflerini değiştirme