Aktif Hücrenin Temel Bilgilerini Bulma
28 Ocak 2021
1126
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 | |
|---|---|
| Şerit Menü Tuşlarını Aktif Etme / Alternatif | Shift F6 |
| Bir Ekran Sağa Git | Alt PgDn |
| Dosya Açma | Ctrl O |
| Sayfa Yapısı Kenar Boşlukları Sekmesini Açma | Alt P J Ö |
| Satırın Başına Gitme | Home |