Aktif Hücrenin Temel Bilgilerini Bulma
28 Ocak 2021
942
Aktif Hücrenin Temel Bilgilerini Bulma isimli kod, aktif hücrenin kodlamalarda kullanılabilecek olan temel bilgilerini bir mesaj kutusunda göstermektedir.
Sub Aktif_Hucre_Bilgileri()
Dim s As Integer
Dim z As Integer
Dim t As String
Dim u As String
s = ActiveCell.Column
z = ActiveCell.Row
t = Columns(s).Address(0, 0)
u = Rows(z).Address(0, 0)
MsgBox "Sütun Numarası: " & s & Chr$(13) & Chr$(13) & "sütun ismi(n): " & Left(t, InStr(t, ":") - 1) & Chr$(13) & Chr$(13) & "Satır Numarası: " & Left(u, InStr(u, ":") - 1) & Chr$(13) & Chr$(13) & "Aktif Hücre Adresi: " & Left(t, InStr(t, ":") - 1) & Left(u, InStr(u, ":") - 1), _
vbOKOnly, "Aktif Hücre Adresi ..."
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ı
Excel'de hangi hücre seçilmişse, o hücreye ait kodlamalarda kullanılacak olan temel bilgileri listeler.
| YARARLI KISAYOLLAR | |
|---|---|
| Tablo Olarak Biçimlendirme | Ctrl L |
| Eğik Yazdırma / Alternatif | Ctrl 3 |
| Veri Aralığının En Sağına Gitme | Ctrl → |
| VB Penceresini Açmak | Alt F11 |
| Altı Çizgili Yazdırma / Alternatif | Ctrl 4 |