經尉遲方兄提點，終於明白為什麼不是一個簡單的26進位程式了

題目如下：

用過excel的都知道excel的列編號是這樣的：
a b c .... z aa ab ac .... az ba bb bc .... yz za zb zc .... zz aaa aab aac ....
分別代表以下編號：
1 2 3 .... 26 27 28 29 .... 52 53 54 55 .... 676 677 678 679 .... 702 703 704 705 ....

請寫個函數，完成從一個正整數到這種字串之間的轉換。 Public Function intcstr()Function intcstr(ByVal ints As Integer) As String 
Dim strs As String 
strs = Nothing 
Do While (ints Mod 26) <> 0 Or ints / 26 <> 0 
If ints Mod 26 = 0 Then 
ints = ints / 26 - 1 
strs = Chr(96 + 26) & strs 
Else 
strs = Chr(96 + (ints Mod 26)) & strs 
ints = Int(ints / 26) 
End If 
Loop 
Return strs 
End Function