Hücreler(1,1) yerine Range("A1") gibi ifadeler kullanmayı seviyorsanız bu iyidir.
Örneğin ColLetter(1) = A, ColLetter(2) = b,… , ColLetter(100) = CV, vb.
3) ColLetter(sütun numarası) => Letter sütununu geri geçirir.
Public Function ColLetter(colNumber As Long) As String
colNumber < 27 ise
colNumber = 0 ise
ColHarf = "Z"
Başka
ColLetter = Orta("ABCDEFGHIJKLMNOPQRSTUVWXYZ", colNumber, 1)
Bitir
Başka
colNumber < 26 2 + 27 ise
ColLetter = Orta("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR(colNumber / 26), 1)
ColLetter = ColLetter & ColLetter(colNumber Mod 26)
Başka
ColLetter = Orta("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR((colNumber - 26) / 676), 1)
ColLetter = ColLetter & ColLetter(colNumber - FLOOR((colNumber - 26) / 676) * 676
Bitir
Bitir
Bitiş İşlevi