Seçili Hücrenin Sütun Harfini Bulma

27 Aralık 2020 29 Temmuz 2021 1767

Seçili Hücrenin Sütun Harfini Bulma isimli kod bir kullanıcı tanımlı fonksiyon olup, referans olarak gösterilen hücrenin harf olarak sonucunu döndürür.

Function Alpha_Column(Cell_Add As Range) As String
Dim No_of_Rows As Integer
Dim No_of_Cols As Integer
Dim Num_Column As Integer

No_of_Rows = Cell_Add.Rows.Count
No_of_Cols = Cell_Add.Columns.Count

If ((No_of_Rows <> 1) Or (No_of_Cols <> 1)) Then
    Alpha_Column = ""
    Exit Function
End If

Num_Column = Cell_Add.Column

If Num_Column < 26 Then
    Alpha_Column = Chr(64 + Num_Column)
Else
    Alpha_Column = Chr(Int(Num_Column / 26) + 64) & Chr((Num_Column Mod 26) + 64)
End If

End Function

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. 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.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

Kullanımı:
=Alpha_Column(A1) şeklindedir. Sonuç A olarak gelecektir.

50 Farklı Hazır Makro (VBA) Kodu
Kaydedilmemiş Açık Çalışma Kitaplarını Sayma
Excel Seçenekleri Penceresini Açma
Zaman Aralığı Ekleme
Excel Sayfalarındaki Resimleri Silmek
Ekran Çözünürlüğünü Bulma
Bir Aralığa Alfabenin Harflerini Ekleme
Excel Makroları ile Form Çağırma
Hoş Geldiniz Mesajı Ekleme
Formül Bulunan Hücreleri Koruma ve Kilitleme
Gizli Sayfaların Bulunması ve Gösterilmesi
Makro Etkinleştirilmeden Sayfalar Görüntülenmesin
Hücredeki Değere Göre Yeni Sayfa Ekleme
Kare Kökünü Hesaplama
Bir Dizeden Sayısal Veriler Elde Etme
İlk ve Son Hücre Arasındaki Satır Sayısı
Çalışma Sayfasını Kaydetme
Derece Simgesi Ekleme
Grafik Türünü Değiştirme
Aktif Hücrenin Sütun Numarasını Bulma
Select Case Kullanımı
Sayfaların Seçilmesini Sağlama
Şarta Göre Satır Açma ve Renklendirme
Makrolar ile Klasör Silme
Birden Çok Satır Ekleme
Seçili Alanda Yinelenenleri Vurgulama
Açıklama İçeren Tüm Hücreleri Vurgulama
Son Satır Numarasını Bulma
Yanlış Yazılmış Hücreleri Vurgulama
Boş Hücreleri Vurgulama
Yorumları İçeren Hücreleri Renklendirme
Sürücü Adı Kontrolü Yapma
Dolar Okutma Makrosu
Kilitlenmemiş Hücreleri Seçme İşlemi
İçinde Bulunduğumuz AY Sayfasının Aktif Edilmesi
Aktif Çalışma Sayfasını Koruma
Kopyala ve Değer Olarak Yapıştır
Sürücü Seri Numarasını Gösterme
Aktif Sütuna Göre Diğer Sütunda İşlem
Sütun Genişliğini Ayarla
Belirli Bir Metne Sahip Hücreleri Vurgulama
Belli Sütunlarda Alfabetik Sıralama
Son Dolu Satırı Başka Sayfaya Kopyala
Bir Değeri Renklendirme
Metnin İçinden TC Kimlik Numarasını Ayırma
Sütunun Herhangi Hücresine Çift Tıklayınca UserForm Açılsın
UserForm Üzerine CommandButton Ekleme
Boş Hücrelerin Görünmez Alanını Vurgulama
Klavyeye Makro Atama ve Çalıştırma
Tüm Çalışma Sayfalarını Gösterme
Bir Dizindeki Son Dosyanın Adını Bulma

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...