VBA COUNTA | Excel VBAでCOUNTAワークシート関数を使用する方法は?

ExcelVBAのCOUNTAワークシート関数

以前の記事「ExcelCOUNTA」では、COUNT関数を使用して値の範囲から数値をカウントする方法を説明しました。セルの範囲内のすべての値を数えるのはどうですか?はい、それも数えることができます。セル範囲内のすべてのセル値をカウントするには、ExcelVBAで数式「COUNTA」を使用する必要があります。この記事では、VBAでCOUNTA関数を使用して、指定された範囲内のすべてのセル値をカウントする方法を示します。

VBAでのCOUNTA関数の例

真実の1つは、「COUNTA」機能はVBA機能ではないということです。あなたの質問は、それがVBA関数でない場合、どのように使用するかということです。VBA関数ではありませんが、VBAコーディングのワークシート関数クラスで使用できます。

このVBACOUNTA Excelテンプレートはここからダウンロードできます– VBA COUNTAExcelテンプレート

では、Excel VBACOUNTAを適用するコードを書いてみましょう。

手順1:サブプロシージャ名を作成します。

ステップ2:まず、VBACOUNTA関数の結果を保存する場所を決定します。この例では、結果をセルC2に保存します。したがって、私のコードはRange(“ C2”)。Valueになります。

コード:

 Sub Counta_Example1()Range( "C2")。Value = End Sub 

ステップ3:セルC2に、VBACOUNTA関数の値が必要です。したがって、Excel VBA COUNTA関数を適用するには、最初にワークシート関数クラスを適用します。

コード:

 Sub Counta_Example1()Range( "C2")。Value = Work End Sub 

手順4:ワークシート関数クラスを適用した後、ドットを入力して数式COUNTAを選択します。

コード:

 Sub Counta_Example1()Range( "C2")。Value = WorksheetFunction.Count End Sub 

ステップ5:次に、カウントするセルの範囲を指定する必要があります。この例では、A1からA11までのセルの範囲をカウントする必要があります。したがって、VBARANGEオブジェクトを使用してセルを提供します。

コード:

 Sub Counta_Example1()Range( "C2")。Value = WorksheetFunction.CountA(Range( "A1:A11"))End Sub 

では、コードを実行してセルC2の結果を取得しましょう。

したがって、VBACOUNTAからも同じ結果が返されます。

このように、COUNTAを使用して、指定された範囲から空でないセルまたは空白でないセルをカウントできます。

変数によるコーディング

VBA変数は、プロジェクトを構築するための鍵です。これで、同じデータに対して、VBA変数を宣言し、結果に到達できます。

例については、以下のコードを見てください。

コード:

 Sub Counta_Example2()Dim CountaRange As Range Dim CountaResultCell As Range Set CountaRange = Range( "A1:A11")Set CountaResultCell = Range( "C2")CountaResultCell = WorksheetFunction.CountA(CountaRange)End Sub 

上記のコードを説明しましょう。

最初に、変数「CountaRange」を値の範囲を参照する範囲として宣言しました。

 範囲としての薄暗いCountaRange

次に、参照を範囲A1からA11に設定しました。

 CountaRange = Range( "A1:A11")を設定します

2番目の変数は、COUNTA結果セルを参照することです。

 Dim CountaResultCell As Range

この変数では、セルをC2として設定しました。

 CountaResultCell = Range( "C2")を設定します

いつものように、ハードコードされた範囲の代わりに変数を使用してCOUNTA関数を適用しました。ここで、古いコードとこのVBAコードを見てください。

コード1:

コード2:

In code 1 we have Range C2, in Code 2 we have the variable name “CountaResultCell”. Here the variable “CountaResultCell” set reference as C2 cell. So this variable is C2 cell now.

In code 1 COUNTA function range is A1 to A11, in code 2 it is variable called “CountaRange”. This variable holds a reference to the range A1 to A11.

This is what is the difference between old code and code with variables.

So, the COUNTA function helps us to count all the non-empty cells from the supplied range irrespective of the data it has.