Home > EA Functions > WorkSheet-Ctrl > EA_GetLastColA1

EA_GetLastColA1

機能説明
指定したセルの位置から終端セルの列番号を取得します。ワークシート上での(Ctrl+→)操作に相当します。

定義
Public Function EA_GetLastColA1 (
ByRef ea_wsh As Worksheet,
ByVal ea_pos As String
) As Long

引数
ea_wsh
調査対象のワークシートオブジェクトを指定します。
ea_pos
調査開始セルの位置を指定します。(A1形式："A1")

戻り値
終端セルの列番号が返却されます。

使用例
ワークシートのセル("A1")から最終列を取得します。 
                                    
Sub Main()
    Dim ea_wsh As Worksheet
    Dim ea_res As Long

    Set ea_wsh = ThisWorkbook.Worksheets("Sheet1")
    ea_res = EA_GetLastColA1(ea_wsh, "A1")
    MsgBox "結果:" & ea_res
    Set ea_wsh = Nothing
End Sub
クラウドソーシング「ランサーズ」