パーツ化とは
ExcelVBAマクロ初級者からの脱却が、処理のパーツ化(プロシージャの分割)と考えています。
マクロを作る上で基本機能をパーツ化する事で、開発時間の削減に繋がります。
処理はパーツ単位で分ける事を心掛けましょう。
分かりやすく説明すると、エクセルの「関数」と同様です。
SUM関数であれば セル内に「=SUM(1+2+3)」と記載すれば、セルには「6」と表示されますよね。
値を渡せば正しい値で返ってくる動きです。
このコードをコピペでOK
'■UsedRangeの最終行を取得
Public Function Call_UseLastRowWS(ws As Worksheet)
Call_UseLastRowWS = ws.UsedRange.Rows(ws.UsedRange.Rows.Count).Row
End Function
'■UsedColumnの最終列を取得
Public Function Call_UseLastColWS(ws As Worksheet)
Call_UseLastColWS = ws.UsedRange.Columns(ws.UsedRange.Columns.Count).Column
End Function
上記は他ブックや他シートの使用しているセル(UsedRange)を指定して最終行や最終列を取得します。
使い方
上記をお好きなモジュール内にコピペしてください。
実際に使用する時は以下のような形で使用してください。
Dim n As Long
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
n = Call_UseLastRowWS(ws)
結果イメージ
仮に他ブックもしくは他シートの最終行が1行目までデータがなければ、n=1となります。
セルZ15にデータが存在すれば、下記結果が戻ってきます。
Call_UseLastRowWS = 15
Call_UseLastColWS = 26
コメント