EA_A1ToNum

機能説明
A1形式の英文字を数値に変換します。

定義
Public Function EA_A1ToNum (
ByVal ea_a1 As String
) As Long

引数
ea_a1
A1形式の文字列を指定します。("A"→"1","C"→"3")

戻り値
変換された数値が返却されます。

使用例
A1形式の英数字を数値に変換します。
                                    
Sub Main()
    Dim ea_res As Long
    ea_res = EA_A1ToNum("BGQCV")
    MsgBox "結果:" & CStr(ea_res)
End Sub
                                    
                                
クラウドソーシング「ランサーズ」