投稿日 | : 2004/08/19(Thu) 17:08 |
投稿者 | : あべる |
URL | : |
タイトル | : Re^2: Excelの列名の取得(変換?) |
KNSNさま、ご回答ありがとうございます
やはり、指折り数えないとだめなんでしょうかね?
とりあえず、自力で算出モジュールは作りました
スマートな方法お待ちしております
'***********************************************************************
' Column変換
'***********************************************************************
Public Function ED_ColNo(IN_Col As Integer) As String
Dim str1 As String
Dim str2 As String
str1 = WKED_ColNo(Fix(IN_Col / 26))
If IN_Col Mod 26 <> 0 Then
str2 = WKED_ColNo(IN_Col Mod 26)
End If
ED_ColNo = str1 & str2
End Function
Public Function WKED_ColNo(IN_Col As Integer) As String
Select Case IN_Col
Case 0: WKED_ColNo = ""
Case 1: WKED_ColNo = "A"
Case 2: WKED_ColNo = "B"
Case 3: WKED_ColNo = "C"
Case 4: WKED_ColNo = "D"
Case 5: WKED_ColNo = "E"
Case 6: WKED_ColNo = "F"
Case 7: WKED_ColNo = "G"
Case 8: WKED_ColNo = "H"
Case 9: WKED_ColNo = "I"
Case 10: WKED_ColNo = "J"
Case 11: WKED_ColNo = "K"
Case 12: WKED_ColNo = "L"
Case 13: WKED_ColNo = "M"
Case 14: WKED_ColNo = "N"
Case 15: WKED_ColNo = "O"
Case 16: WKED_ColNo = "P"
Case 17: WKED_ColNo = "Q"
Case 18: WKED_ColNo = "R"
Case 19: WKED_ColNo = "S"
Case 20: WKED_ColNo = "T"
Case 21: WKED_ColNo = "U"
Case 22: WKED_ColNo = "V"
Case 23: WKED_ColNo = "W"
Case 24: WKED_ColNo = "X"
Case 25: WKED_ColNo = "Y"
Case 26: WKED_ColNo = "Z"
End Select
End Function