エクセルVBA　集計ファイルの作り方⑤

どうもhiroakiです。

先日、下記の記事を書きました。

コードの中身が分からない人のために、解説していきたいと思います。

では中核部分に入っていきます。

以下のように使います。

If 条件式 Then
　条件式が成立する場合の処理
Else
　それ以外の処理
End If

では、具体的にみていきましょう。長いので、まずは、Elseまで。

If WorksheetFunction.CountBlank(Worksheets(name_worksheet).Range(hanni)) = Worksheets(name_worksheet).Range(hanni).Count Then
Workbooks("集計ファイル.xlsm").Worksheets("出力").Range("B" & Rows.Count).End(xlUp).Offset(1, 0) = "空白です"
Workbooks("集計ファイル.xlsm").Worksheets("作業").Activate
Worksheets("出力").Range("B" & Rows.Count).End(xlUp).Offset(0, -1) = name.Value
wb.Close

１行目には条件式が書いてあります。

簡単にいうと、if A=B Thenの形になっています。

A=Bの部分は、『シート２班のC16:H25までの空白の数 = シート２班のC16:H25までのセルの数』となっています。

要するに、ここではコピー先が空白かどうか調べています。

WorksheetFunctionはワークシート関数というものです。これはエクセルの関数のこと。

WorksheetFunction.ワークシート関数名

とすればワークシート関数が使えるんです。便利ですね。

CountBlankは空白を数える関数。カッコ内にどこの空白を数えるか入れてあげてください。

２行目には、出力シートB2に、空白ですという文字を入れています。

３行目ではいったん、作業シートをアクティブにします。

４行目では、出力シートの空白です、と書いた隣にname変数の値を代入します。

５行目では、ワークブックを閉じます。

まず、Endプロパティについてです。

オブジェクト.End(方向)で、基準となるオブジェクトの上端(xlUp)下端(xlDown)左端(xlToLeft)右端(xlToRight)を指定します。オブジェクトがアクティブセル領域にあるかないかで判断するのがポイントです。

Workbooks("集計ファイル.xlsm").Worksheets("出力").Range("B" & Rows.Count).End(xlUp).Offset(1, 0) = "空白です"
Worksheets("出力").Range("B" & Rows.Count).End(xlUp).Offset(0, -1) = name.Value

ここでは基準となるオブジェクトを集計ファイル出力シートのBセルとしています。Rows.Countでは行コレクションの数を数えています。つまり、B列の最終行のセルを基準にしているということになります。その位置から、上端を指定しています。

つぎに、Offsetプロパティについてです。

オブジェクト.Offset(行,列)として、オブジェクトから、ずらした位置を指定します。

この場合は、１行下のセル、つまりB2を指定しています。そこに空白ですと書き込みます。

２行目では、先ほど、空白ですと書いたセルの隣に、ブック名を書き込みます。

今回はここまでにします。

もっと詳しく知りたい場合は、コメントなどくだされば解説したいと思います。

次回からも続きを解説していきます。

では。

気ままに趣味旅行