'############################################################### '函数作用:数值转换为字符地址 '############################################################### Public Function NtoC(Numbers As Integer) As String Dim S As String, E As String If Numbers <= 26 Then NtoC = Chr$(Numbers + 64) Else S = Chr$(Int((Numbers ‐ 1) / 26) + 64) If Numbers Mod 26 = 0 Then E = "Z" Else E = Chr$(Numbers Mod 26 + 64) End If NtoC = S & E End If End Function |
|