- 帖子
- 113
- 主題
- 31
- 精華
- 0
- 積分
- 149
- 點名
- 0
- 作業系統
- xp & vista
- 軟體版本
- 2003 & 2007
- 閱讀權限
- 20
- 註冊時間
- 2010-12-29
- 最後登錄
- 2020-5-22
|
我在微軟的頁面找到一個程式是可以將數字轉換成欄位
例如：1=A、5=E、26=Z、52=AZ……
但這個程式有點小問題，像 677 應該為 "ZA"，但卻顯示為 "Y["
以及三個英文以上的欄會顯示不出來，例如 AAA 欄
請問以下的程式我該如何改呢？
謝謝∼- Function ConvertToLetter(iCol As Integer) As String
- Dim iAlpha As Integer
- Dim iRemainder As Integer
- iAlpha = Int(iCol / 27)
- iRemainder = iCol - (iAlpha * 26)
- If iAlpha > 0 Then
- ConvertToLetter = Chr(iAlpha + 64)
- End If
- If iRemainder > 0 Then
- ConvertToLetter = ConvertToLetter & Chr(iRemainder + 64)
- End If
- End Function
|
|
發表於 2015-3-19 12:09
| 
