Private Function GetColumnLetter(ByVal columnNumber As Integer) As String
Dim columnLetter As String
If columnNumber <= 25 Then
columnLetter = Chr(65 + columnNumber)
Else
columnLetter = GetColumnLetter(columnNumber \ 26 - 1)
columnLetter &= Chr(65 + columnNumber Mod 26)
End If
Return columnLetter
End Function
No comments:
Post a Comment