Excel Hücresini Seçme Makrosu
26 Aralık 2020
27 Aralık 2020
2476
Excel Hücresini Seçme Makrosu isimli kod, Excel VBA yöntemi ile farklı farklı şekillerde hücre seçme örnek kodları içermektedir.
Sub Hucre_Secme()
'Tek bir hücre seçer.
Range("B2").Select
Cells(2, 1).Select
[B2].Select
'Tüm hücreleri seçer.
Cells.Select
'Boş hücreleri seçer.
Selection.SpecialCells(xlCellTypeBlanks).Select
'Aktif hücrenin bulunduğu sütunun tamamını seçer.
ActiveCell.EntireColumn.Select
'Seçili hücrelerin bulundukları sütunları tamamen seçer.
Selection.EntireColumn.Select
'Aktif hücrenin bulunduğu satırı tamamını seçer.
ActiveCell.EntireRow.Select
'Seçili hücrelerin bulundukları satırları tamamen seçer.
Selection.EntireRow.Select
'Bir önceki işlem yapılan hücreyi seçer.
Selection.SpecialCells(xlLastCell).Select
'Aktif hücrenin bir altıdaki hücreyi seçer.
ActiveCell.Offset(1, 0).Select
'Aktif hücrenin bir üstündeki hücreyi seçer.
ActiveCell.Offset(-1, 0).Select
'Aktif hücrenin bir sağındaki hücreyi seçer.
ActiveCell.Offset(0, 1).Select
'Aktif hücrenin bir solundaki hücreyi seçer.
ActiveCell.Offset(0, -1).Select
'Aktif hücrenin sağındaki 5. hücreyi seçer.
ActiveCell.Offset(0, 5).Select
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ı
Her bir kodun işlevi hemen altlarına yazılmıştır.
Etiketler :
| YARARLI KISAYOLLAR | |
|---|---|
| İşlem Yapılmış En Alt Hücreye Gitme | Ctrl End |
| Hücreyi Para Birimi Olarak Biçimlendirme | Ctrl Shift $ |
| Hücreyi Sola Yaslı Hale Getirmek | Alt Ş SO |
| Tablonun Satırını Seçme | Shift Space |
| İşlemi Tamamlama/Onaylama | Enter |