Aşağıda bir programa bakacağız Excel VBA'sı o metni uygun duruma dönüştürür. Yani, her kelimenin ilk harfi büyük, diğer tüm harfler küçük.
Durum:
1. İlk olarak, iki Range nesnesi tanımlıyoruz. Range nesnelerini rng ve hücre olarak adlandırırız.
Aralık Olarak Karart, Aralık Olarak Hücre
2. Range nesnesini seçilen aralıkla başlatıyoruz.
Set rng = Seçim
3. Rastgele seçilmiş bir aralıktaki her hücreyi kontrol etmek istiyoruz (bu aralık herhangi bir boyutta olabilir). Excel VBA'da bunun için For Her Sonraki döngüsünü kullanabilirsiniz. Aşağıdaki kod satırlarını ekleyin:
Her hücre için rng'de
Sonraki hücre
Not: rng ve hücre burada rastgele seçilmiştir, herhangi bir isim kullanabilirsiniz. Kodunuzun geri kalanında bu adlara başvurmayı unutmayın.
4. Formül içeren bir hücreyi yok saymak için For Her ve Sonraki arasına aşağıdaki kod satırını ekleyin (yalnızca cell.HasFormula false ise devam ederiz).
Hücre Değilse.HasFormula Sonra
Bitir
5. Sonra, bu aralıktaki her kelimeyi 'uygun durum'a dönüştürmek 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ç:
