LinuC（Linux技術者認定資格）＆リナックスサーバ構築設定事例

　　　'--- --- --- --- --- --- --- --- --- ---
　　　'□ 最終行の取得
　　　'--- --- --- --- --- --- --- --- --- ---
　　　　Dim Last_Row As Long                                  '最終行数用変数
　　　　Last_Row = 0                                                 '最終行数の変数をゼロクリア
　　　　Last_Row = Cells(1, "B").End(xlDown).Row  '最終行の数を取得
　　　'--- --- --- --- --- --- --- --- --- ---

Option Explicit

'▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲
'■【メイン処理】
'▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼
 Sub main()
   
    Dim myRange As Range
    Dim F_Array() As String
    Erase F_Array()         '■ 配列初期化■
   
    Set myRange = ActiveSheet.Range("B2", "C20")        '■ セル範囲を格納■
   
    '***************************************
    '■【セル範囲を配列化する処理】
    '***************************************
    Call Func_03(myRange, F_Array())        '■ 関数呼び出し■
    Cells(22, "B") = F_Array(0)        '戻り値をセルに反映
    Cells(23, "B") = F_Array(1)        '戻り値をセルに反映
    Cells(24, "B") = F_Array(2)        '戻り値をセルに反映
    '***************************************
   
    Set myRange = Nothing

'★        myRange.Cells.SpecialCells(xlCellTypeBlanks).Interior.Color = RGB(255, 128, 128)
 
 End Sub
'▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼▲▼

'************************************************
'■【セル範囲を配列化する処理】
'************************************************
 Function Func_03(R_Range As Range, R_Array() As String)
   
    Dim myArray As Variant
    myArray = R_Range

    Dim Row_max, Column_max As Long '■ 行／列の変数■

    Row_max = UBound(myArray, 1)    '■ 行要素番号の最大値を取得(第二引数は省略可)■
    Column_max = UBound(myArray, 2) '■ 列要素番号の最大値を取得■
   
    Dim Row_i, Column_i As Long     '■ 行／列のカウント用変数■
    Dim Array_1, Array_2 As String  '■ １列／２列の文字列を格納する変数■
    Dim Array_S As String           '■ １列＋２列を繋げて格納する変数■
    ReDim R_Array(Row_max - 1)
   
    '---------------------------------------
    '■ 配列の中身を確認
    '---------------------------------------
    For Row_i = 1 To Row_max
        Array_1 = myArray(Row_i, 1)
        Array_2 = myArray(Row_i, 2)
        Array_S = Array_1 & Array_2
        Cells(Row_i, "N") = Array_S       '■ セルに転記する■
        R_Array(Row_i - 1) = Array_S    '■ 戻り値として配列に格納■
    Next
    '---------------------------------------
   
    Set myArray = Nothing
 
 End Function
'************************************************

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
'************************************************

 End Function
'************************************************