EA_NumToA1

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

定義
Public Function EA_NumToA1 (
ByVal ea_num As Long
) As String

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

戻り値
変換されたA1形式の英文字が返却されます。
※入力数値が1以下の場合、Aを返却します。

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