Alfabenin Harflerini Sayfaya Sıralı Olarak Ekleme
28 Eylül 2021
887
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 | |
|---|---|
| İşlem Yapılmış En Üst Hücreye Gitme | Ctrl Home |
| Veri Aralığının En Üstüne Gitme | Ctrl ↑ |
| Bitişik Hücre Aralığı Seçme | Shift Tıklama |
| Eğik Yazdırma / Alternatif | Ctrl 3 |
| Hızlı Grafik Oluşturma | Alt F1 |