how do i get word conversion number to text in excel (100 = "hundred")

See http://www.xldynamic.com/source/xld.xlFAQ0004.html

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"ismayil" <(E-Mail Removed)> wrote in message
news:E003D5F4-D35B-4A3A-81DE-(E-Mail Removed)...
> how do i get word conversion number to text in excel (100 = "hundred")

"ismayil" wrote:

> how do i get word conversion number to text in excel (100 = "hundred")
Private Function GetColumnName(ByVal colNumber As Integer) As String
Dim colName As String = String.Empty
Dim quotient As Integer = 0
Dim remainder As Integer = 0

If colNumber <= 26 Then
colName = Convert.ToChar(colNumber + 64)
Return colName
Else
Dim fChar As String = String.Empty
Dim sChar As String = String.Empty

quotient = colNumber \ 26
remainder = colNumber Mod 26
If remainder = 0 Then
fChar = Me.GetColumnName(quotient - 1)
Else
fChar = Me.GetColumnName(quotient)
End If


If remainder = 0 Then
sChar = "Z"
Else
sChar = Me.GetColumnName(remainder)
End If


colName = String.Concat(fChar, sChar)

Return colName
End If

End Function

> Private Function GetColumnName(ByVal colNumber As Integer) As String

That can be greatly simplified to:

Function ColLetter(ColNum As Long) As String
ColLetter = Split(Worksheets(1).Cells(1, ColNum).Address(True, False),
"$")(0)
End Function


--
Cordially,
Chip Pearson
Microsoft MVP - Excel, 10 Years
Pearson Software Consulting
www.cpearson.com
(email on the web site)



"YourHelp" <(E-Mail Removed)> wrote in message
news:3870423E-4E98-4EF0-AD75-(E-Mail Removed)...
>
>
> "ismayil" wrote:
>
>> how do i get word conversion number to text in excel (100 = "hundred")
> Private Function GetColumnName(ByVal colNumber As Integer) As String
> Dim colName As String = String.Empty
> Dim quotient As Integer = 0
> Dim remainder As Integer = 0
>
> If colNumber <= 26 Then
> colName = Convert.ToChar(colNumber + 64)
> Return colName
> Else
> Dim fChar As String = String.Empty
> Dim sChar As String = String.Empty
>
> quotient = colNumber \ 26
> remainder = colNumber Mod 26
> If remainder = 0 Then
> fChar = Me.GetColumnName(quotient - 1)
> Else
> fChar = Me.GetColumnName(quotient)
> End If
>
>
> If remainder = 0 Then
> sChar = "Z"
> Else
> sChar = Me.GetColumnName(remainder)
> End If
>
>
> colName = String.Concat(fChar, sChar)
>
> Return colName
> End If
>
> End Function