XL2000: Örnek makro kodu metin, servis talebi değiştirmeye

Makale çevirileri Makale çevirileri
Makale numarası: 213649 - Bu makalenin geçerli olduğu ürünleri görün.
Bu makalenin Microsoft Excel 2002 sürümü için bkz: 291323.
Microsoft Excel 98 ve bu makalenin önceki bir sürümü için 141094 bakın.
Hepsini aç | Hepsini kapa

Bu Sayfada

Özet

Microsoft Excel'de metnin büyük ve küçük harflerini değiştirmek için işlevler bulunmakla birlikte, bu işlemi program aracılığıyla yapmak isteyeceğiniz zamanlar olabilir.

Bu makalede, üç örnek Microsoft Visual Basic Applications makroları (alt yordamlar) tümüyle büyük harfle, tüm küçük bir metin dizesinde harf değiştirmek için kullanabileceğiniz veya başlık durumda (her sözcüğün ilk harfini büyük harfe) içerir. Bu eylemler =BÜYÜKHARF(), =KÜÇÜKHARF() ve =YAZIM.DÜZENİ() gibi Excel işlevlerine benzer.

Daha fazla bilgi

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna satılabilirlik veya belirli bir amaca uygunluk zımni garantileri de dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.

Bir Aralıktaki Tüm Metni Büyük Harflere Dönüştüren Makro

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
				

Bir Aralıktaki Tüm Metni Küçük Harflere Dönüştüren Makro

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
				

Bir Hücre Aralığındaki Tüm Metni İlk Harfleri Büyük Olacak Şekilde Değiştiren Makro

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
				

Makro Örneklerini Sınama

Makro örneklerini sınamak için şu adımları izleyin:
  1. Makroları içeren aynı çalışma kitabında, aşağıdaki örnek verileri yeni bir çalışma sayfasına girin:
        A1: toM         B1: toM        C1: toM
        A2: sUe         B2: sUe        C2: sUe
        A3: joe SMITH   B3: joe SMITH  C3: joe SMITH
        A4: mary        B4: mary       C4: mary
        A5: LORI        B5: LORI       C5: LORI
    						
    Not: Bu örnek veriler, her makronun çalışma biçimini doğrulamak için kullanabileceğiniz çeşitli durumlarda biçimlendirilmiş metin içeriyor.
  2. Makroları tek tek çalıştırın.
Makroda belirtilen aralıktaki ("For each x in ..." ile başlayan satırda) metinler büyük harf, küçük harf ya da ilk harfleri büyük olarak biçimlendirilir.

Referanslar

Visual Basic for Applications Yardım alma hakkında daha fazla bilgi için lütfen Microsoft Knowledge Base'de aşağıdaki makaleye bakın:
226118OFF2000: Kaynaklar Visual Basic for Applications programlama

Özellikler

Makale numarası: 213649 - Last Review: 11 Ekim 2006 Çarşamba - Gözden geçirme: 4.2
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Excel 2000 Standard Edition
Anahtar Kelimeler: 
kbmt kbdtacode kbhowto kbprogramming KB213649 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:213649

Geri Bildirim Ver

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com