Excel VBA'da Aktif Hücre
Aktif hücre, bir çalışma sayfasında şu anda seçili olan hücredir, VBA'daki aktif hücre, başka bir hücreye geçmek veya aynı aktif hücrenin özelliklerini veya aktif hücreden sağlanan hücre referansını değiştirmek için bir referans gibi kullanılabilir, VBA'daki aktif hücre aktif hücre anahtar kelimesi ile application.property yöntemi kullanılarak erişilebilir.
VBA kodlamayla verimli bir şekilde çalışmak için, VBA'daki aralık nesnesi ve hücre özellikleri kavramını anlamak önemlidir. Bu kavramlarda, incelemeniz gereken bir kavram daha var, bu "VBA Aktif Hücresi".
Excel'de milyonlarca hücre var ve şüpheniz hangisinin Aktif Hücre olduğu. Örneğin, aşağıdaki resme bakın.
Yukarıdaki bir resmin kendisinde birçok hücremiz var. Hangisinin aktif bir hücre olduğunu bulmak çok basit, şu anda hangi hücre seçilirse seçilsin. VBA'da "Aktif Hücre" olarak adlandırılır.
Etkin hücreniz pencerenizde görünmüyorsa, ad kutusuna bakın, size etkin hücre adresini gösterecektir. Yukarıdaki görüntüde, aktif hücre adresi B3'tür.
Çok sayıda hücre bir hücre aralığı olarak seçildiğinde bile, ilk hücre ne olursa olsun, seçim etkin hücre olur. Örneğin, aşağıdaki resme bakın.
# 1 - Excel VBA'da Referanslama
Daha önceki makalelerimizde, VBA'daki hücrelere nasıl başvurulacağını gördük. Aktif Hücre özelliği ile hücreye başvurabiliriz.
Örneğin A1 hücresini seçmek ve "Merhaba" değerini eklemek istiyorsak, bunu iki şekilde yazabiliriz. Aşağıda, VBA "RANGE" nesnesini kullanarak hücreyi seçme ve değeri girme yöntemi verilmiştir.
Kod:
Alt ActiveCell_Example1 () Aralık ("A1"). Aralık seçin ("A1"). Değer = "Merhaba" Son Alt
Bu ilk önce A1 " Aralık (" A1 ") hücresini seçecektir . Seçin ”
Ardından A1 Hücresine ("A1") "Merhaba" değerini ekleyecektir . Değer = "Merhaba"
Şimdi Range ("A1") satırını kaldıracağım . Değer = "Merhaba" ve değer eklemek için Active Cell özelliğini kullanın.
Kod:
Alt ActiveCell_Example1 () Aralık ("A1"). ActiveCell.Value = "Merhaba" Son Alt Seçin
Benzer şekilde, önce A1 " Aralık (" A1 ") hücresini seçecektir . Seçin ”
Ama burada Range ("A1") yerine ActiveCell.Value = "Merhaba" kullandım . Değer = "Merhaba"
Aktif Hücre özelliğini kullanmamın nedeni A1 hücresini seçtiğim anda aktif hücre haline geliyor. Yani değeri eklemek için Excel VBA Active Cell özelliğini kullanabiliriz.
# 2 - Etkin Hücre Adresi, Değer, Satır ve Sütun Numarası
Daha da iyi anlamak için, aktif hücrenin adresini mesaj kutusunda gösterelim. Şimdi aşağıdaki resme bakın.
Yukarıdaki görüntüde aktif hücre "B3" ve değer 55'tir. Aktif hücrenin adresini almak için VBA'da kod yazalım.
Kod:
Alt ActiveCell_Example2 () MsgBox ActiveCell.Address End Sub
Bu kodu F5 tuşunu kullanarak veya manuel olarak çalıştırın. Ardından, aktif hücrenin adresini bir mesaj kutusunda gösterecektir.
Çıktı:
Benzer şekilde, aşağıdaki kod aktif hücrenin değerini gösterecektir.
Kod:
Alt ActiveCell_Example2 () MsgBox ActiveCell.Value End Sub
Çıktı:
Aşağıdaki kod, aktif hücrenin satır numarasını gösterecektir.
Kod:
Alt ActiveCell_Example2 () MsgBox ActiveCell.Row End Sub
Çıktı:
Aşağıdaki kod, aktif hücrenin sütun numarasını gösterecektir.
Kod:
Alt ActiveCell_Example2 () MsgBox ActiveCell.Column Son Alt
Çıktı:
# 3 - Excel VBA'da Aktif Hücre Parametreleri
Aktif Hücre özelliğinin parametreleri de vardır. Özelliği girdikten sonra, ActiveCell parametreleri görmek için parantez açın.
Bu parametreyi kullanarak başka bir hücreye de başvurabiliriz.
Örneğin, ActiveCell (1,1) , hangisinin aktif olduğu anlamına gelir. Aşağıya bir satır aşağı gitmek istiyorsanız ActiveCell (2,1) kullanabilirsiniz. Burada 2, iki satır aşağı hareket etmek anlamına gelmez, yalnızca bir satır aşağıya doğru hareket eder. Benzer şekilde, bir sütunu sağa taşımak isterseniz, bu ActiveCell (2,2) kodudur.
Örneğin, aşağıdaki resme bakın.
Yukarıdaki görüntüde, aktif hücre A2'dir. Etkin hücreye değer eklemek için bu kodu yazarsınız.
Kod:
ActiveCell.Value = "Hiiii" veya ActiveCell (1,1) .Value = "Hiiii"
Bu kodu manuel olarak veya F5 tuşuyla çalıştırın. Bu, hücreye "Hiiii" değerini ekleyecektir.
Şimdi, aynı değeri aşağıdaki hücreye eklemek isterseniz, bu kodu kullanabilirsiniz.
Kod:
ActiveCell (2, 1) .Value = "Hiiii"
Bu, değeri aktif hücrenin altındaki hücreye ekleyecektir.
Değeri sağdaki bir sütuna eklemek isterseniz, bu kodu kullanabilirsiniz.
Kod:
ActiveCell (1,2) .Value = "Hiiii"
Bu, aktif hücrenin sonraki sütun hücresine "Hiiii" ekleyecektir.
Bunun gibi, VBA'daki hücrelere Active Cell Property'ni kullanarak başvurabiliriz.
Umarım beğenmişsindir. Bizimle zaman ayırdığınız için teşekkürler.
VBA Aktif Hücre Excel Şablonunu buradan indirebilirsiniz: - VBA Aktif Hücre Şablonu
