Article ID: 198144
Article Last Modified on 3/21/2005
' Converts (row,col) indices to an Excel-style A1:C1 string
Function IndexToString(row As Long, col As Long) As String
IndexToString = ""
If col > 26 Then
IndexToString = Chr(Asc("A") + Int((col - 1) / 26) - 1)
End If
IndexToString = IndexToString & Chr(Asc("A") + ((col - 1) Mod 26))
IndexToString = IndexToString & row
End Function
Here are a few examples of the conversion:
Calling IndexToString() with row=1 and col=26 yields "Z1". Calling IndexToString() with row=1 and col=27 yields "AA1". Calling IndexToString() with row=2 and col=52 yields "AZ2". Calling IndexToString() with row=2 and col=53 yields "BA2". Calling IndexToString() with row=10 and col=10 yields "J10".(c) Microsoft Corporation 1999, All Rights Reserved. Contributions by Joe Crump, Microsoft Corporation.
Additional query words: excel convert
Keywords: kbinfo kbsample KB198144