Vba aracılığıyla metni sarma herhangi bir yerde nasıl kullanılır?

VBA’da, sarma metnini bir hücreye veya hücre aralığına uygulamak için erişebileceğiniz “WrapText” adlı bir özellik vardır. Etkinleştirmek veya devre dışı bırakmak için kod yazmanız gerekir. Bu bir okuma ve yazma özelliğidir, dolayısıyla onu uygulayabilir veya bir hücreye uygulandığında da alabilirsiniz.

Bu öğreticide, VBA kodunu kullanarak metin kaydırma uygulamasının farklı yollarına bakacağız.

VBA kullanarak bir hücredeki metni sarma

VBA kodunu kullanarak Metni Sarma uygulamasını uygulamak için aşağıdaki adımları kullanın.

1. range özelliğini kullanarak sarma metnini uygulamak istediğiniz hücreyi tanımlayın.
2. Söz konusu hücrenin özelliklerinin ve yöntemlerinin listesini görmek için bir nokta yazın.
3. Listeden “WrapText” özelliğini seçin.
4. Eşittir işaretini “=” girin ve sözcük kaydırmayı etkinleştirmek için DOĞRU yazın.

 Sub vba_wrap_text() Range("A1").WrapText = True End Sub

Ayrıca bir hücreyi aşağıdaki şekilde de belirtebilirsiniz.

 Cells(1, 1).WrapText = True

Metni bir hücre satırına kaydır

Ayrıca kaydırma metnini aralığın tamamına uygulamak istiyorsanız tek bir hücre yerine aralığı belirtmeniz gerekir.

 Range("A1:A5").WrapText = True

Ayrıca “UsedRange” özelliğini kullanarak bunu kullanılan aralığa (veri girdiğiniz çalışma sayfasının seçimi) de uygulayabilirsiniz.

 Worksheets("Sheet1").UsedRange.WrapText = True ActiveSheet.UsedRange.WrapText = True

Yukarıdaki kodun ilk satırında, Çalışma Sayfasını ve ardından metni kaydırmak için “UsedProperty”yi belirttiniz . İkinci satırda aktif sayfanın kullanılan aralığına sahipsiniz. Ancak her iki hat da aynı şekilde çalışır.

İşte bilmeniz gereken birkaç örnek daha:

• Sürekli olmayan hücreler
• Bütün çizgi
• Tüm sütun
• Adlandırılmış aralık

 Range("A1:A10,C1:C10").WrapText = True Range("A:A").WrapText = True Range("1:1").WrapText = True Range("myRange").WrapText = True

Metni çalışma sayfası boyunca kaydır

Çalışma sayfasının tamamına başvurmak için aşağıdaki kodda olduğu gibi Hücreler özelliğini kullanmanız gerekir.

 Cells.WrapText = True Worksheets("Sheet1").Cells.WrapText = True

Kodun ilk satırı etkin sayfayı, ikinci satırı ise “Sayfa1” çalışma sayfasını belirtir. Çalışma kitabındaki tüm çalışma sayfalarında döngü yapmak ve sarma metnini tüm hücrelere uygulamak için HER BİRİ İÇİN (Sonraki İçin) kullanarak bir döngü de kullanabilirsiniz.

 Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets Cells.WrapText = True Next ws

Yukarıdaki kodda, değişken olarak “ws” vardır, ardından Her Döngü İçin çalışma kitabındaki tüm çalışma sayfaları arasında döngü yapar ve Hücreler’i kullanarak çalışma sayfasının tamamının metnini sarmak için uygulanır.

WrapText’i devre dışı bırak

Gördüğünüz gibi WrapText özelliğini etkinleştirmeniz gerekiyor ve benzer şekilde FALSE bildirerek add komutunu kullanarak devre dışı bırakabilirsiniz.

 Range("A1").WrapText = False

Not: Anlamanız gereken bir şey var, eğer bir hücrede bir değeriniz varsa ve hücrelerin genişliği bu değeri saklamak için yeterliyse o zaman satıra metin uygulasanız bile Excel içeriği bir sonraki satıra taşımayacaktır .