入力されている最終位置、先頭位置の取得

入力されている、先頭列・最終行・先頭行を調べます。
これはソフト作成時によく使うフレーズです。

Excelでよく使うフレーズのサンプルのメニューに戻る

スポンサーリンク






実行画面

入力されている、先頭列を調べた結果です。
先頭の列位置を取得

入力されている、最終行を調べた結果です。
最終の行位置を取得

入力されている、先頭行を調べた結果です。
先頭の行位置を取得

スポンサーリンク



プログラムソース

Option Explicit

Private Sub CommandButton1_Click()
    Dim ln As Long
    
    '先頭列を調べる
    ln = ActiveSheet.Cells.SpecialCells(xlLastCell).Column
    
    MsgBox "入力されている先頭列は " & ln & " です。"
End Sub

Private Sub CommandButton2_Click()
    Dim ln As Long
    
    '最終行を調べる
    ln = Range("C1048576").End(xlUp).Row
    
    MsgBox "入力されている最終行は " & ln & " です。"
End Sub

Private Sub CommandButton3_Click()
    Dim ln As Long
    
    '最終行を調べる
    ln = ActiveSheet.Cells.SpecialCells(xlLastCell).Row
    
    MsgBox "入力されている最終行は " & ln & " です。"
End Sub

Private Sub CommandButton4_Click()
    Dim ln As Long
    
    '先頭行を調べる
    ln = Range("C1").End(xlDown).Row
    
    MsgBox "入力されている先頭行は " & ln & " です。"
End Sub

Excelでよく使うフレーズのサンプルのメニューに戻る

スポンサーリンク






■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved