Vba: bir sütun numarasını harfe dönüştürme

Bir sütun numarasını harfe dönüştürmek için VBA’da aşağıdaki sözdizimini kullanabilirsiniz:

 Sub ConvertNumberToLetter()
Range(" B2 ") = Split((Columns(Range(" A2 ")).Address(, 0)), " : ")(0)
End Sub

Bu özel makro, A2 hücresindeki sütun numarasını bir harfe dönüştürecek ve harfi B2 hücresinde görüntüleyecektir.

Örneğin A2 hücresindeki değer 4 ise Excel’deki dördüncü sütuna karşılık gelen harf olduğundan B2 hücresinde “D” harfi görünecektir.

Aşağıdaki örnek, bu sözdiziminin pratikte nasıl kullanılacağını gösterir.

Örnek: VBA’da Sütun Numarasını Harfe Dönüştürme

Excel’de 4 numaralı sütuna hangi sütun harfinin karşılık geldiğini bilmek istediğimizi varsayalım:

Bu sayıyı harfe dönüştürmek için aşağıdaki makroyu oluşturabiliriz:

 Sub ConvertNumberToLetter()
Range(" B2 ") = Split((Columns(Range(" A2 ")).Address(, 0)), " : ")(0)
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

B2 hücresinde dördüncü sütuna karşılık gelen harf olduğundan “D” değeri görüntülenir.

A2 hücresindeki sayıyı değiştirip makroyu tekrar çalıştırırsak B2 hücresinde güncellenen sütun harfi görünecektir.

Örneğin A2 hücresindeki sayıyı 73 olarak değiştirdiğimizi ve makroyu yeniden çalıştırdığımızı varsayalım:

B2 hücresinde artık “BU” değeri görüntüleniyor çünkü bu, 73. sütuna karşılık gelen sütun harfidir.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: Son kullanılan satırı nasıl bulabilirim?
VBA: Son kullanılan sütun nasıl bulunur?
VBA: Kullanılan sütunların sayısı nasıl sayılır?