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

Makale numarası: 213649 - Bu makalenin geçerli olduğu ürünleri görün.
Otomatik TercümeOtomatik tercüme makalelerin ne olduğunu açıklayan yazıyı okumak için buraya tıklayın
Bu makalenin Microsoft Excel 2002 sürümü için bkz: 291323
(http://support.microsoft.com/kb/291323/EN-US/ )
.
Microsoft Excel 98 ve bu makalenin önceki bir sürümü için 141094
(http://support.microsoft.com/kb/141094/EN-US/ )
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.
Üste | Geri Bildirim Ver

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.
Üste | Geri Bildirim Ver

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:
226118
(http://support.microsoft.com/kb/226118/EN-US/ )
OFF2000: Kaynaklar Visual Basic for Applications programlama
Üste | Geri Bildirim Ver

Özellikler

Makale numarası: 213649 - Son Gözden Geçirme: 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
Otomatik Tercüme
Ö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
(http://support.microsoft.com/kb/213649/en-us/ )
Üste | Geri Bildirim Ver

Geri Bildirim Ver

 
ÜsteÜste