/ / Excel VBA'da Uygun Davranışa Dönüştür

Excel VBA'da Uygun Davranışa Dönüştür

Aşağıda bir programa bakacağız Excel VBA o metni uygun harfe dönüştürür. Yani, her kelimenin büyük harfle ilk harfi ve diğer tüm harfler küçük harfle.

Durum:

Excel VBA'da Uygun Davranışa Dönüştür

1. İlk olarak iki Range nesnesini beyan ederiz. Range nesneleri rng ve hücresini çağırıyoruz.

Dim rng As Range, cell As Range

2. Range nesnesini seçilen aralıkta başlatıyoruz.

Set rng = Selection

3. Her hücreyi rastgele seçilen bir aralıkta kontrol etmek istiyoruz (bu aralık herhangi bir boyutta olabilir). Excel VBA'da bunun için Her Sonraki Döngüyü kullanabilirsiniz. Aşağıdaki kod satırlarını ekleyin:

For Each cell In rng

Next cell

Not: Rng ve hücre burada rastgele seçilir, herhangi bir isim kullanabilirsiniz. Kodunuzun geri kalanında bu adlara başvurmayı unutmayın.

4. Bir formül içeren bir hücreyi yok saymak için Her ve Sonraki için (yalnızca hücre.HasFormula false is biz devam) arasında aşağıdaki kod satırını ekleyin.

If Not cell.HasFormula Then

End If

5. Ardından, bu aralıktaki her kelimeyi "doğru durum" a çevirmek istiyoruz. Bu görev için uygun çalışma sayfası işlevini kullanabilirsiniz. If ifadenize aşağıdaki kod satırını ekleyin.

cell.Value = WorksheetFunction.Proper(cell.Value)

6. Programı test edin.

Sonuç:

Uygun Case Sonuçlarına Dönüştür

Ayrıca oku: