Option Explicit
'▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼
Sub main()
Dim Fa As Long '関数の引数１／戻り値１
Dim Fb As Long '関数の引数２／戻り値２
Dim Fc As Long '関数の引数３／戻り値３
Fa = 0 'ゼロクリア
Fb = 0 'ゼロクリア
Fc = 0 'ゼロクリア
'*** *** *** *** *** *** *** *** *** ***
'■ 最終行の取得方法【関数有り】
'*** *** *** *** *** *** *** *** *** ***
Call Func_02(Fa, Fb, Fc) '関数呼び出し
Cells(1, "K") = Fa '戻り値１を指定
Cells(2, "K") = Fb '戻り値２を指定
Cells(3, "K") = Fc '戻り値３を指定
'*** *** *** *** *** *** *** *** *** ***
'--- --- --- --- --- --- --- --- --- ---
'□ 最終行の取得方法【関数無し】
'--- --- --- --- --- --- --- --- --- ---
Dim Etc_Row As Long '不要な行数用変数
Dim Last_Row As Long '最終行数用変数
Etc_Row = 1 '不要な行数の初期値
Last_Row = 0 '最終行数の変数をゼロクリア
Last_Row = Cells(1, "A").End(xlDown).Row '最終行の数を取得
Last_Row = Last_Row - Etc_Row '最終行数から不要な行数をマイナス
Cells(1, "G") = Last_Row '結果を反映
Cells(2, "G") = Etc_Row '結果を反映
Cells(3, "G") = Cells(1, "A").End(xlDown).Row '結果を反映
'--- --- --- --- --- --- --- --- --- ---
End Sub
'▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼
'************************************************
Function Func_02(Ra As Long, Rb As Long, Rc As Long)
Dim Result_01 As Long '戻り値用変数１
Dim Result_02 As Long '戻り値用変数２
Dim Result_03 As Long '戻り値用変数３
Result_01 = Ra '引数１を格納
Result_02 = Rb '引数２を格納
Result_03 = Rc '引数３を格納
'--- --- --- --- --- --- --- --- --- ---
Dim i As Long 'ループカウンター用変数
i = 2 'ループ開始行を設定
'--- --- --- --- --- --- --- --- --- ---
'--- --- --- --- --- --- --- --- --- ---
Do While Cells(i, "A") <> "" '空欄になるまでループ
i = i + 1 'ループカウントアップ
Result_01 = Result_01 + 1 '行数を加算
Loop
'--- --- --- --- --- --- --- --- --- ---
Result_02 = i - Result_01
Result_03 = i
'--- --- --- --- --- --- --- --- --- ---
'□ 戻り値が複数ある場合の書き方
'--- --- --- --- --- --- --- --- --- ---
Ra = Result_01 '戻り値を格納１
Rb = Result_02 '戻り値を格納２
Rc = Result_03 '戻り値を格納３
'--- --- --- --- --- --- --- --- --- ---
End Function
'************************************************
PR
COMMENT