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

Bu makalenin Microsoft Excel 2000 sürümü için bkz. 213649

Microsoft Excel 98 ve bu makalenin önceki sürümleri için bkz. 141094 .

Özet

Microsoft Excel'de metnin büyük/küçük harflerini değiştiren işlevler olsa da, bazı durumlarda programlı olarak metnin büyük/küçük harflerini değiştirmek isteyebilirsiniz.

Bu makale, bir metin dizesindeki harfleri tümüyle büyük harfe, tümüyle küçük harfe veya başlık harfine (her sözcüğün ilk harfi büyük harfle yazılır) değiştirmek için kullanabileceğiniz üç örnek Microsoft Visual Basic for ApplicationsVisual Basic for Applications makroları (Alt yordamlar) içerir. Bu eylemler Excel'deki =BÜYÜKHARF(), =KÜÇÜKHARF() ve =YAZIM.DÜZEN() işlevlerine benzer.

Daha Fazla Bilgi

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.

Aralıktaki tüm metni büyük harfe dönüştürme makrosu

Sub Uppercase()
   ' 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

Aralıktaki tüm metni küçük harfe dönüştürme makrosu

Sub Lowercase()
   ' 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

Hücre aralığındaki tüm metni ilk harfleri büyük harf olarak değiştirme makrosu

Sub Proper_Case()
   ' Loop to cycle through each cell in the specified range.
   For Each x In Range("C1:C5")
      ' There is not a Proper function in Visual Basic for Applications.
      ' So, you must use the worksheet function in the following form:
      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
    NOT: Bu örnek veriler, her makronun nasıl çalıştığını doğrulamak için kullanabileceğiniz çeşitli durumlarda biçimlendirilmiş metinler içermektedir.

2. Makroların her birini çalıştırın.

Makroda belirtilen aralıktaki metin ("...'deki her x için" yazan satırda), duruma göre büyük harf, küçük harf veya ilk büyük harf olarak biçimlendirilir.

Başvurular

Metnin büyük ve küçük harflerini değiştirmek amacıyla çalışma sayfası işlevlerini kullanma hakkında daha fazla bilgi için Microsoft Bilgi Bankası'ndaki makaleyi görüntülemek üzere aşağıdaki makale numarasına tıklayın:

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

TVisual Basic for Applications ile ilgili yardım alma hakkında daha fazla bilgi için Visual Basic for Applications, Microsoft Bilgi Bankası'ndaki makaleyi görüntülemek üzere aşağıdaki makale numarasına tıklayın:

305326 Visual Basic for Applications için programlama kaynaklarının listesi