Seçili Hücrelerdeki Harfleri Büyük Harfe Değiştirme
25 Ocak 2017
518
Bu kod ile Seçili Hücrelerdeki Harfleri Büyük Harfe Değiştirme işlemini hızlı bir şekilde gerçekleştirebilir, işlerinizde zaman tasarrufu sağlayabilirsiniz.
Sub ChangeCase()
Dim Rng As Range
For Each Rng In Selection.Cells
If Rng.HasFormula = False Then
Rng.Value = UCase(Rng.Value)
End If
Next Rng
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Bu kod seçili alanda yazılı metinleri büyük harf ile değiştirmeye yaramaktadır.
NOT: Türkçe karakterlerdeki değişimlere dikkat etmek gerekir.
Etiketler :
| YARARLI KISAYOLLAR | |
|---|---|
| Aynı hücre içinde bir alt satıra geçme | Alt Enter |
| Kes / Alternatif | Shift Delete |
| Sayfa Sonları Ekleme | Alt P O E |
| Eğik Yazdırma | Ctrl T |
| Veri Aralığının En Üstüne Gitme | Ctrl ↑ |