Bir Aralığa Alfabenin Harflerini Ekleme
Bir Aralığa Alfabenin Harflerini Ekleme isimli kod ile, Excel sayfanızda seçtiğiniz hücreden itibaren alta doğru alfanin harflerini yazdırabilirsiniz.
XD Destek İsteSub addsAlphabets1()
Dim i As Integer
For i = 65 To 90
ActiveCell.Value = Chr(i)
ActiveCell.Offset(1, 0).Select
Next i
ActiveCell = Chr(199)
ActiveCell.Offset(1, 0) = Chr(208)
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(1, 0) = Chr(214)
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(1, 0) = Chr(220)
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(1, 0) = Chr(221)
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(1, 0) = Chr(222)
End Sub
Sub addsAlphabets2()
Dim i As Integer
For i = 97 To 122
ActiveCell.Value = Chr(i)
ActiveCell.Offset(1, 0).Select
Next i
ActiveCell = Chr(231)
ActiveCell.Offset(1, 0) = Chr(240)
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(1, 0) = Chr(246)
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(1, 0) = Chr(252)
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(1, 0) = Chr(253)
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(1, 0) = Chr(254)
End Sub
Gerekli 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ı
Dosyadaki ilk kod alfabenin harflerini büyük olarak ikincisi ise küçük olarak yazmanızı sağlar. Kodlara Türkçe karakterlerde eklenmiştir.
Etiketler
Daha önce yorum yapılmamış!
YARARLI KISAYOLLAR | |
---|---|
Seçilen kontrolü etkinleştirme veya açma | Space |
Hücreyi Kopyalama/Çoğaltma | Ctrl Sürükle |
Satır/Sütun/Hücre Silme | Ctrl - |
Bugünün Tarihini Yazma | Ctrl Shift ; |
Şerit Menüyü Genişletme, Daraltma | Ctrl F1 |
Excel'de Yinelenen Kayıtları silmek için Şerit Menü -> Veri -> Yinelenleri Kaldır simgesini tıklatın.
Verilerinizde başlık satırı varsa, "Verilerimde üst bilgi var" seçeneğinin işaretli olduğundan emin olun. Yoksa kutucuk tikli ise işareti kaldırın.
Yinelenen verilerinizin belirlenmesi için Sütunlar sekmesinden ilgili sütun seçimini yapın.
Tamam dediğinizde, şartlara uyan veriler varsa silinecektir.
Verilerinizde başlık satırı varsa, "Verilerimde üst bilgi var" seçeneğinin işaretli olduğundan emin olun. Yoksa kutucuk tikli ise işareti kaldırın.
Yinelenen verilerinizin belirlenmesi için Sütunlar sekmesinden ilgili sütun seçimini yapın.
Tamam dediğinizde, şartlara uyan veriler varsa silinecektir.