Alfabenin Harflerini Sayfaya Sıralı Olarak Ekleme
28 Eylül 2021
727
Alfabenin Harflerini Sayfaya Sıralı Olarak Ekleme isimli kodu kullanarak, alt alta alfabenin harflerini Excel hücrelerine yazdırma işini yapabilirsiniz.
Sub addcAlphabets()
Dim i As Integer
For i = 65 To 90
ActiveCell.Value = Chr(i)
ActiveCell.Offset(1, 0).Select
Next i
End Sub
Sub addsAlphabets()
Dim i As Integer
For i = 97 To 122
ActiveCell.Value = Chr(i)
ActiveCell.Offset(1, 0).Select
Next i
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ı
Türkçe harfler listede çıkmamaktadır.
Etiketler :
Hazır Dosyayı İndir
Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
| YARARLI KISAYOLLAR | |
|---|---|
| Hücreyi Sağa Yaslı Hale Getirmek | Alt Ş AI |
| Yardım | F1 |
| Şerit Menü simgeleri arasında dolaşma | Tab |
| Hücreyi Para Birimi Olarak Biçimlendirme | Ctrl Shift $ |
| İşlem Yapılmış En Üst Hücreye Gitme | Ctrl Home |