تبدیل عدد به نام ستون در اکسل

برای تبدیل عدد به نام ستون در اکسل می توانید از برنامه زیر استفاده نمایید

این برنامه تا 702 ستون اول در اکسل نوشته شده است

Function charCol(num As Integer) As String

' one char A_Z

If num <= 26 Then

charCol = Chr(64 + num)

Else

' two char AA_ZZ

If num <= 26 Then

charCol = IIf(num Mod 26 = 0, _

Chr(Int(64 + (num / 26) - 1)), _

Chr(Int(64 + num / 26))) & _

IIf(num Mod 26 = 0, Chr(64 + 26), _

Chr(64 + num Mod 26))

End If

End If

End Function