VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2004/08/19(Thu) 18:40
投稿者： あべる
ＵＲＬ：
タイトル： Re^4: Excelの列名の取得（変換?）

ＰＥ−さん、ご回答ありがとうございます

おおおっ確かにずっとスマートに・・・

スマートになったサブ
'***********************************************************************
' Column変換
'***********************************************************************
Public Function ED_ColNo(IN_Col As Integer) As String
Dim str1    As String
Dim str2    As String

    If IN_Col > 26 Then
        If IN_Col Mod 26 = 0 Then
            str1 = Chr$(65 + (Fix((IN_Col - 1) / 26)) - 1)
        Else
            str1 = Chr$(65 + (Fix(IN_Col / 26)) - 1)
        End If
    Else
        str1 = ""
    End If
    
    If IN_Col Mod 26 <> 0 Then
        str2 = Chr$(65 + (IN_Col Mod 26) - 1)
    Else
        str2 = Chr$(65 + 25)
    End If
    
    ED_ColNo = str1 & str2
    
End Function

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -