EXCEL 列の確認をする関数

列の確認をする関数

Option Explicit

Function ColumnCount(ByVal DataText As String) As Integer

If Len(DataText) = 1 Then
        ColumnCount = Asc(Right$(DataText, 1)) - 64
    ElseIf Len(DataText) = 2 Then
        ColumnCount = (Asc(Right$(DataText, 1)) - 64) + (Asc(Left$(DataText, 1)) - 64) * 26
End If

End Function

Function ColumnCharacter(ByVal Data As Integer) As String

If Data < 27 Then
        ColumnCharacter = Chr(Data + 64)
    ElseIf Data > 26 Then
        ColumnCharacter = Chr((Data \ 26) + 64) & Chr((Data Mod 26) + 64)
End If

End Function
  

以上。