VBA Aktif Hücre | Aktif Hücrenin Sütun veya Satırının Adresi Nasıl Bulunur?

Excel VBA'da Aktif Hücre

Aktif hücre, bir çalışma sayfasında halihazırda 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. Bir örnek için aşağıdaki resme bakın.

Yukarıdaki bir resmin kendisinde, hangisinin aktif hücre olduğunu bulmak için birçok hücremiz var, şu anda hangi hücre seçilirse seçilsin, VBA'da "Aktif Hücre" olarak adlandırılır.

Aktif hücreniz pencerenizde görünmüyorsa, ad kutusuna bakın, size aktif 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, seçimdeki ilk hücre ne olursa olsun, 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 istersek, bunu iki şekilde yazabiliriz. VBA "RANGE" nesnesini kullanarak hücreyi seçme ve değeri girmenin yolu aşağıdadır

Kod:

 Alt ActiveCell_Example1 () Aralık ("A1"). Aralık seçin ("A1"). Değer = "Merhaba" Son Alt 

Bu önce A1 " Aralık (" A1 ") hücresini seçecektir . Seçin"

Ardından, A1 Aralığı ("A1") hücresine "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 kullanacağım.

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ç"

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, mesaj kutusunda aktif hücrenin adresini 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

Active Cell özelliğinin parametreleri de vardır. ActiveCell özelliğini girdikten sonra 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, burada ActiveCell (2,1) kullanabilirsiniz. 2, iki satır aşağı değil, yalnızca bir satır aşağı gitmek anlamına gelmez, Benzer şekilde, bir sütunu sağa taşımak istiyorsanız o zaman bu ActiveCell kodudur (2,2)

Bir örnek için aşağıdaki resme bakın.

Yukarıdaki görüntüde aktif hücre A2'dir, aktif hücreye bir 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şsinizdir. Bizimle zaman ayırdığınız için teşekkürler.

VBA Aktif Hücre Excel Şablonunu buradan indirebilirsiniz: - VBA Aktif Hücre Şablonu