練習問題と内容について

・練習問題の狙い

このシリーズでは課題を元にマクロVBAを実践することでスキルを身につけることが出来ます。

正直、ソースコード作成については実践あるのみです！

答えのコードについては数例挙げますが、「もっといい答えがある」などの意見があれば

問い合わせから連絡ください！  

こんな問題を作ってほしいなどの意見もお待ちしております！

・練習問題18について

こちらはマクロVBAの知識で少し発展した課題になります。

指定されたセルのうち、数式が含まれているセルの個数を表示する練習問題となります。

それでは頑張っていきましょう！

練習問題の内容と動作説明

問題内容

セル番地A1からA10までのセルのうち、数式が含まれているセルの個数を表示する。

動作説明

VBAを使用して、指定されたセル範囲内に含まれる数式を検出し、その数をカウントして表示します。

この問題では、セル番地A1からA10までのセルのうち、数式が含まれているセルの個数を求める必要があります。

ヒント

以下のヒントを参考にして解答コードを作成してみてください。

・ヒントその1

セルに値を表示するためには、Rangeオブジェクトを使用します。
セル番地を指定して該当するセルオブジェクトを取得し、計算する必要があります。

セル範囲を指定するには、Range(“D1:D5”)というように範囲の開始セルと終了セルを指定します

・ヒントその2

セルの数式を判定するためには、RangeオブジェクトのHasFormulaプロパティを使用します。

数式が含まれている場合、Formulaプロパティはその数式を返します。

使用方法は下記の通りです。

・ヒントその3

ループを使用してセルを一つずつ調べ、数式が含まれているセルをカウントします。

カウンター変数を使い、数式が含まれているセルが見つかるたびにカウントアップします。

以上のヒントを参考に課題に取り組んでみてください！

解答コード

では回答を見ていきましょう！

・回答その①

・回答その②

必要な知識

この問題を解くためには、以下の基本的な知識が必要です。

ループ構造

練習問題で使用した繰り返し処理を行うためにはループ構造が必要です。
For Nextループを使った反復処理や、Forループを使ったカウンターを利用した反復処理について理解しておくと良いでしょう。

これらの知識を応用して、問題を解くためのコードを作成しましょう。  

HasFormulaプロパティ

セルが数式を持っているかどうかを判定するために、HasFormulaプロパティを使用します。

セルのHasFormulaプロパティは、セルが数式を持っている場合にTrueを返します。

まとめ

この練習問題では、VBAを使用してセル番地A1からA10までのセルのうち、数式が含まれているセルの個数を求める方法について学びました。

具体的には、Rangeオブジェクトとループ構造を組み合わせて、セルの範囲内に数式が含まれているかどうかを判定し、
数式が含まれているセルの個数をカウントしました。

VBAを使うことで、Excelの操作をより効率的に行うことができます。

この練習問題を通じて、ループ構造やRangeオブジェクトの使用方法を習得し、さらに応用的な操作や処理にも挑戦していきましょう。

次の練習問題では、さらに複雑なVBAの使用例に取り組んでいきますので、順番に解いていくことでスキルを向上させていきましょう。

以上が練習問題18となります。お疲れ様でした！

練習問題と内容について

・練習問題の狙い

このシリーズでは課題を元にマクロVBAを実践することでスキルを身につけることが出来ます。

正直、ソースコード作成については実践あるのみです！

答えのコードについては数例挙げますが、「もっといい答えがある」などの意見があれば

問い合わせから連絡ください！  

こんな問題を作ってほしいなどの意見もお待ちしております！

・練習問題16について

こちらはマクロVBAの知識で少し発展した課題になります。

指定されたセルを元に、空白セルの個数を表示する練習問題となります。

それでは頑張っていきましょう！

練習問題の内容と動作説明

問題内容

セル番地A1からA10までのセルのうち、空白セルの個数を表示する。

動作説明

VBAを使用して、指定された範囲のセルのうち、空白セルの個数をカウントし、結果を表示します。

この問題では、セル番地A1からA10までのセルのうち、空白セルの個数を求める必要があります。

ヒント

以下のヒントを参考にして解答コードを作成してみてください。

・ヒントその1

セルに値を表示するためには、Rangeオブジェクトを使用します。
セル番地を指定して該当するセルオブジェクトを取得し、計算する必要があります。

セル範囲を指定するには、Range(“D1:D5”)というように範囲の開始セルと終了セルを指定します

・ヒントその2

取得したデータの空白のセルを数えるには、関数を使用する必要があります。

例えば、WorksheetFunction.countBlank()関数を使用して、セル範囲の空白をカウントすることができます。

・ヒントその3

セルの値が空白かどうかを判定するためには、IsEmpty関数を使用します。

例えば、IsEmpty(Range(“A1”))というように使います。
IsEmpty関数は、セルが空白の場合にTrueを返します。

以上のヒントを参考に課題に取り組んでみてください！

解答コード

では回答を見ていきましょう！

・回答その①

それでは実行してみましょう。
結果はこのようになります。

A1からA10の空白セルの数は「４セル」ということがわかりました。

・回答その②

必要な知識

この問題を解くためには、以下の基本的な知識が必要です。

セルの判定

セルが空白であるかどうかを判定するために、IsEmpty関数を使用します。

IsEmpty関数は、指定されたセルが空白であればTrueを返します。

WorksheetFunctionの使用

空白セルのカウントをするためには、WorksheetFunctionが必要です。
下記参考記事で紹介しています！

まとめ

この練習問題では、VBAを使用して指定された範囲内の空白セルの個数をカウントする方法を学びました。

具体的には、セル番地A1からA10までの範囲において空白セルの個数を求める問題を解きました。
解答コードでは、For Eachループを使用して各セルを順に処理し、IsEmpty関数を使用してセルが空白かどうかを判定しました。

また、別の解答としてWorksheetFunction.CountBlankメソッドを使用する方法も紹介しました。
このメソッドを使うことで、より簡潔に空白セルの個数を取得することができます。

VBAを使うことで、Excelの操作を自動化し、複雑な処理を行うことができます。
練習問題を通じてVBAのスキルを向上させ、より高度な操作や処理を行えるようになることを目指しましょう。

以上が練習問題16となります。お疲れ様でした！

練習問題と内容について

・練習問題の狙い

このシリーズでは課題を元にマクロVBAを実践することでスキルを身につけることが出来ます。

正直、ソースコード作成については実践あるのみです！

答えのコードについては数例挙げますが、「もっといい答えがある」などの意見があれば

問い合わせから連絡ください！  

こんな問題を作ってほしいなどの意見もお待ちしております！

・練習問題15について

こちらはマクロVBAの知識で少し発展した課題になります。

指定されたセルの数値を元に、母集団・サンプルの標準偏差を求める練習問題となります。

それでは頑張っていきましょう！

練習問題の内容と動作説明

問題内容

セル番地A1からA10までの標準偏差を求める

動作説明

VBAを使用して、セル番地A1からA10までの数値データの標準偏差を求めます。

この問題では、与えられたセル範囲のデータを取得し、その標準偏差を計算して結果を表示する必要があります。

ヒント

以下のヒントを参考にして解答コードを作成してみてください。

・ヒントその1

セルに値を表示するためには、Rangeオブジェクトを使用します。
セル番地を指定して該当するセルオブジェクトを取得し、計算する必要があります。

セル範囲を指定するには、Range(“D1:D5”)というように範囲の開始セルと終了セルを指定します

・ヒントその2

取得したデータを使って標準偏差を計算するためには、VBAの統計関数を使用する必要があります。

例えば、WorksheetFunction.StDev()関数を使用して、セル範囲のデータの標準偏差を計算することができます。

・ヒントその3

標準偏差には「母集団」として算出する方法と「サンプル」として算出する方法があります。

すべてのデータがある場合はSTDEV.P関数の「母集団」で計算しますが

データを抜き取って計算することになるため、STDEV.S関数の「標本（サンプル）」で計算することになります。

 

　

使い分けは下記の通りです。

以上のヒントを参考に課題に取り組んでみてください！

解答コード

では回答を見ていきましょう！

・回答その①

それでは実行してみましょう。
結果はこのようになります。

A1からA10の数値の標準偏差は「8.61…」ということがわかりました。

・回答その②

母集団とサンプルの違いと計算方法

標準偏差には母集団・サンプルの計算方法があります。
それでは違いと使用方法を見てみましょう。

・標準偏差の母集団とサンプルとは

標準偏差には「母集団」として算出する方法と「サンプル」として算出する方法があります。

・母集団の計算方法

まず母集団の計算方法を紹介します。ソースコードはこちらです。

母集団を計算するときは「StDevP関数」を使用します

・サンプルの計算方法

次にサンプルの計算方法を紹介します。ソースコードはこちらです。

サンプルを計算するときは「StDev関数」を使用します

必要な知識

この問題を解くためには、以下の基本的な知識が必要です。

統計関数の使用

標準偏差を求めるためには、統計関数を使用する必要があります。

VBAでは、WorksheetFunctionオブジェクトを使用してExcelの統計関数を呼び出すことができます。

この問題では、StDev()またはStDevP()関数を使用してセル範囲の標準偏差を計算します。

WorksheetFunctionの使用

積を求めるためには、WorksheetFunctionが必要です。 下記参考記事で紹介しています！

まとめ

練習問題を通じて、VBAのスキルを向上させることができました。

より高度な問題に挑戦することで、より複雑な操作や処理を実現できるようになるでしょう。

これらの練習問題を通じて、VBAの理解を深め、Excelの自動化やデータ処理の効率化に役立てることができます。
継続的な学習と実践を通じて、VBAのスキルを磨いていきましょう。

以上が練習問題15となります。お疲れ様でした！

練習問題と内容について

・練習問題の狙い

このシリーズでは課題を元にマクロVBAを実践することでスキルを身につけることが出来ます。

正直、ソースコード作成については実践あるのみです！

答えのコードについては数例挙げますが、「もっといい答えがある」などの意見があれば

問い合わせから連絡ください！  

こんな問題を作ってほしいなどの意見もお待ちしております！

・練習問題11について

こちらはマクロVBAの知識で少し発展した課題になります。

指定されたセルの文字数・文字列の長さの合計値を計算し、表示する練習問題となります。

それでは頑張っていきましょう！

練習問題の内容と動作説明

問題内容

セル番地A1からA10までの文字数・文字列の長さの合計値を計算し、セル番地C2に結果を表示する。

動作説明

VBAを使用して、セル番地A1からA10までの文字列の長さを計算し、その合計値をセル番地C2に表示します。

具体的には、A1からA10までのセルの値を取得し、文字数・文字列の長さを計算していき、最終的な合計値をC2に表示する必要があります。

ヒント

以下のヒントを参考にして解答コードを作成してみてください。

・ヒントその1

ループを使用してセル番地A1からA10までの値を順番に取得します。

例えば下記のような見本を紹介します。

・ヒントその2

セルに入力されてある文字数・文字列の長さを計算するためには「Len関数」を使用する必要があります。

Len関数の構文は下記の通りです。

・ヒントその3

文字数・文字列の長さをカウントアップします。

カウントアップ方法は「変数＝変数+1」で指定した変数がカウントアップされます。

これらのヒントを参考にして、解答コードを作成してみてください。  

解答コード

では回答を見ていきましょう！

・回答その①

では実行してみましょう。
結果はこのようになります。

文字数の合計は「33」となりました。

文字数の合計は手動で数えても「33」なので問題なく機能していることが分かります。

・回答その②

必要な知識

この問題を解くためには、以下の基本的な知識が必要です。

ループ構造

偶数の個数を数えるためには、セル番地A1からA10までの値を1つずつ判定する必要があります。
ループ構造を使用して、指定した範囲のセルを順番に処理する方法を理解する必要があります。
今回はFor Each文とFor Next文を使用しました。

文字列の長さの計算

文字列の長さを計算するために、Len関数を使用します。Len関数は、文字列の長さを返します。

構文をは下記の通りです。

出力先＝Len(対象となる文字列)

とてもシンプルな関数ですね。

まとめ

この練習問題では、VBAを使用してセル番地A1からA10までの文字列の長さの合計値を計算し、セル番地C2に結果を表示する方法を学びました。

具体的には、Forループを使用してセルの範囲を繰り返し処理し、各セルの値の文字列の長さを計算しました。
計算した長さを合計値に加算していき、最終的な結果をセル番地C2に表示しました。

この問題を解くためには、ループ構造の理解、セルの範囲指定、文字列の長さの計算、変数の宣言と使用といった基本的な知識が必要です。

VBAを使ってExcelの操作を自動化することで、繰り返し行われる処理や複雑な計算を効率的に実行することができます。

練習問題を通じて、VBAのスキルを向上させ、Excelの操作やデータ処理の効率化を実現するための能力を身につけていきましょう。

以上で練習問題11となります。お疲れ様でした！

こちらは、対象のセル・変数などの数値をもとに割り算をした後の余りを求める関数となっています。

さらにMod関数を使用すれば、簡単に偶数または奇数の判別ができるので、ぜひ参考にしてみてください。
それでは見ていきましょう。

⬛︎こんな事ができるようになる！

・VBAのMod関数を使って割り算の余りを求めることができる
・Mod関数を使って偶数・奇数の数を数える方法を学ぶことができる

⬛︎忙しい人向けのコピペ用ソースコード

Sub 余りを求める()

Dim 数値1 As Integer
Dim 数値2 As Integer
Dim 余り As Integer

 数値1 = 対象のセル・変数1
 数値2 = 対象のセル・変数2
 余り = 数値1 Mod 数値2

MsgBox "割り算の余りは: " & 余り

End Sub

対象のセル・変数をカスタムして使用してください。

⬛︎構文の説明

まず、使用する関数についてですMod関数」になります。
関数仕様としては下記の通りです。

⬛︎Modで割ったあとのあまりを求める

・通常の使用方法

Mod関数を通常の割り算の余りの求め方として使用する方法を紹介します。
下図の見本をご覧ください。

今回は数値1から数値2を割って、その余りを求めたいと思います。
では再度構文を見ていきましょう。

Sub 通常の使用方法()

Dim 数値1 As Integer
Dim 数値2 As Integer
Dim 余り As Integer

 数値1 = Cells(2, 3)
 数値2 = Cells(3, 3)
 余り = 数値1 Mod 数値2

 Cells(6, 3) = 余り 

End Sub

■Mod関数を使用した応用方法

ではMod関数を使用した応用方法を紹介します。

・偶数・奇数の数を数える

Mod関数を使って、指定した範囲内の偶数・奇数の数を数える方法を紹介します。
今回は「偶数」を数えてみます。
下図の見本をご覧ください。

C2からC7までにある数値の中で偶数の数を数えたいと思います。
そこで今回は「Mod関数」を応用して数えてみましょう。

偶数か、判別するためにはMod演算で２で割ったあまりを求めます。

つまり、「If 対象の数値 Mod 2 = 0  」で対象の値を2で割ったのち、その値が「0」か条件分岐します。
結果が「0」の場合は偶数なのでカウントアップをする仕組みです。

条件分岐は下記記事を参照してください。

では見本のソースコードを見ていきましょう。

Sub 偶数の数を数える()

Dim 偶数の数 As Integer
Dim i As Integer

偶数の数 = 0
For i = 2 To 7
　If Cells(i, 3) Mod 2 = 0 Then
　　偶数の数 = 偶数の数 + 1
　End If
Next i

Cells(13, 3) = 偶数の数

End Sub

それでは実行してみましょう。
結果はこのようになります。

対象範囲に偶数は「3」つあるので上手く機能していますね！

⬛︎よくあるエラーと対処法

・#DIV/0! エラー

 エラーの原因: MOD関数の除数がゼロの場合、このエラーが発生します。

 対処法: 除数がゼロにならないように確認してください。
            条件分岐などを使って、除数がゼロの場合にエラーを回避するような処理を追加することができます。

・#VALUE! エラー

 エラーの原因: MOD関数の引数に数値以外の値が含まれている場合、このエラーが発生します。
                     例えば、文字列やエラー値が引数として渡された場合です。

 対処法:: 引数の値が正しいデータ型かどうかを確認してください。
              数値以外の値が渡されないようにするか、適切なエラーハンドリングを行いましょう。

・#NUM! エラー

 エラーの原因: MOD関数の引数に無効な値が含まれている場合、このエラーが発生します。
                     例えば、非数値を含む引数や、非整数を除数として使用した場合です。

 対処法:: 引数の値が正しい範囲内にあるか、整数であるかを確認してください。
              引数に整数を使用するか、必要に応じて値を修正してください。

これらのエラーはMOD関数の使用時に注意が必要です。適切な値を使用し、エラーハンドリングを行うことで、正確な結果を得ることができます。

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

Mod 演算子 | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか？
この記事では、VBAのMod関数を使って割り算の余りを求める方法と、偶数の数を数える方法について紹介しました。
Mod関数は、さまざまなシナリオで活用することができるので、ぜひ応用してみてください。

ぜひ活用してみてください。

それでは次回の記事でお会いしましょう。

対象記事はこちらから☟

【マクロVBA知識 18】合計・総和をSUM・SUMIF・SUMIFSで求める ► 独学エクセル塾 (dokugakuexcel.com)

【マクロVBA知識 19】平均をAVERAGE/AVERAGEIF/AVERAGEIFSで求める ► 独学エクセル塾 (dokugakuexcel.com)

【マクロVBA知識 20】カウントをCOUNT/COUNTIF/COUNTIFSで求める ► 独学エクセル塾 (dokugakuexcel.com)

【マクロVBA知識 21】データの最大値・最小値をMAX.MINを使用して求める ► 独学エクセル塾 (dokugakuexcel.com)

今回はその他の関数をマクロVBAで使用する方法をまとめています。
この知識を身に着けると関数式で組んでいるファイルをVBAで自動化することも可能です。

それでは見ていきましょう。

■ Application.WorksheetFunctionで様々な機能を実行する

・プログラムの構造について

プログラムの構造は下記に示します。

反映・表示先 = Application.WorksheetFunction.関数名(関数にあった引数)

関数の種類はとても多いので一覧は掲載しませんが
Application.WorksheetFunction.を入力した後に表示される関数はすべて使用可能です。

・プログラムを組む

では実際にプログラムを組んでみましょう。
プログラムの組み方は関数の使用方法が理解できていれば簡単です。

裏を返せば関数の使用方法を知っていなければ使用は難しいと思います。
まず、行いたい処理に合った関数を見つけて、使用方法がわからなければ
その関数の理解から進めていきましょう。

今回は見本で「RANK関数」を使用してみたいと思います。

通常のRANK関数はこちらです。

=RANK(数値,参照,順序)

さらにかみ砕いて説明すると下記の通りです。
=RANK(比較元,比較先の範囲,表示の順番)

では下図の見本シートを元に進めていきます。

このように得点表がまとめてあり、今回は各順位を表示してみたいと思います。
ではプログラムを組んでいきます。

まず、Aさんの順位を求めてみましょう。
通常の関数を使えばこのようになります。
=RANK(C3,C3:C13,0)

VBAのプログラムでも考え方は全く同じです。
ではApplication.WorksheetFun.のあとに「RANK」を入力してください。

すると英語ではありますが引数のガイドが表示されました。

まず比較元はAさんの点数なので「Range(“C3”)」です。
次に比較先の範囲はAさんからKさんなので「Range(“C3:C13”)」となります。
最後に降順で表示したいので「0」としましょう。

それではプログラムをつなげてみましょう。
結果はこのようになります。

Sub VBAでワークシート関数を使用()

Cells(3, 4) = Application.WorksheetFunction.Rank(Range(“C3”), Range(“C3:C13”), 0)

End Sub

実行してみましょう。

Aさんの順位が表示されました。
もちろんD3には数式は入力されておらず結果の「3」のみが入力されています。

もちろんVBAなので引数は変数を使用することも可能です。

ではAさんからKさんまでループ処理をしてみましょう。

プログラムはこのようになります。

Sub VBAでワークシート関数を使用()

Dim A As Long

For A = 3 To 13 Step 1

Cells(A, 4) = Application.WorksheetFunction.Rank(Cells(A, 3), Range(“C3:C13”), 0)

Next A

End Sub

実行した結果はこのようになります。

AさんからKさんの順位が自動で表示されるようになりました。
とても便利な機能ですね。

■よくあるエラーと対処法

・コンパイルエラー　修正候補：式

こちらはApplication.WorksheetFunctionに対応していない関数を使用している可能性があります。
たとえば引数①と引数②の相違を確認できる「EXACT関数」を見てみましょう。

「EXACT関数」は候補に含まれていないため使用することができず、エラーになってしまいます。

エラーが生じる際にはリストに対象の関数があるか確認してみてください。

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

■公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが

マイクロソフト公式の説明については下記のリンクを参照してください。☟

WorksheetFunction オブジェクト (Excel) | Microsoft Docs

■まとめ

いかがだったでしょうか。
親しみのある関数をマクロVBAで使用できるのはとても便利ですよね。

結果も数式でなく、実行結果が表示されるので
ファイルが重くならない点も１つのメリットです。

ぜひ、Application.WorksheetFunctionを活用して
処理を行ってみてください

次回はマクロVBAで置き換えする方法についてまとめています。記事はこちらから☟

【マクロVBA知識 23】文字・数値の置換と完全一致など様々な置換オプション ► 独学エクセル塾 (dokugakuexcel.com)

それでは次回の記事でお会いしましょう。

使用方法は関数の仕組みと同じです。
関数は下記リンクを参照してください。

【MAX関数】エクセルで範囲を指定して、数値の最大値を求める方法について ► 独学エクセル塾 (dokugakuexcel.com)

【MIN関数】エクセルで関数を使用して、最小値を求める方法について ► 独学エクセル塾 (dokugakuexcel.com)

分析などにはよく使用される関数ですよね。
是非参考にしてみてください。

それでは見ていきましょう。

■MAX関数で指定範囲の最大値を求める

・プログラムの仕組み

Cells(3, 5) = Application.WorksheetFunction.Max(最大値を求める範囲 )

・使用方法

では下図の例をもとに進めていきましょう

AさんからKさんまでの得点をＣ列に入力しており
今回はその最大値の最高得点を「E3」に入力してみましょう。

ではプログラムを組んでみましょう。
平均を求めたい範囲は「C3からC13」ですので下記のようになります。

Sub 最大値()

Cells(3, 5) = Application.WorksheetFunction.Max(Range(“C3:C13”))

End Sub

それでは実行した結果を見てみましょう。

最大値を求めることができました。
この中で一番大きな数値は「98」なので「98」が出力されました。
ちなみにCellsで表示するとこのようになります。

Cells(3, 5) = Application.WorksheetFunction.Max(Range(Cells(3, 3), Cells(13, 3)))

さらにRange変数を使用しても平均を求めることは可能です。

Sub 最大値()

Dim A As Range

Set A = Range(“C3:C13”)

Cells(3, 5) = Application.WorksheetFunction.Max(A)

End Sub

様々な場面に合わせて使用してみてください。

■MIN関数で指定範囲の最小値を求める

・プログラムの仕組み

Cells(3, 5) = Application.WorksheetFunction.MIN(最小値を求める範囲 )

・使用方法

では下図の例をもとに進めていきましょう

さきほど使用していたシートを元に進めていきましょう。
AさんからKさんまでの得点をＣ列に入力しており
今回はその最小値の最低得点を「E3」に入力してみましょう。

ではプログラムを組んでみましょう。
平均を求めたい範囲は「C3からC13」ですので下記のようになります。

Sub 最小値()

Cells(3, 5) = Application.WorksheetFunction.Min(Range(“C3:C13”))

End Sub

それでは実行した結果を見てみましょう。

最小値を求めることができました。
この中で一番大きな数値は「10」なので「10」が出力されました。
ちなみにCellsで表示するとこのようになります。

Cells(3, 5) = Application.WorksheetFunction.Min(Range(Cells(3, 3), Cells(13, 3)))

さらにRange変数を使用しても平均を求めることは可能です。

Sub 最小値()

Dim A As Range

Set A = Range(“C3:C13”)

Cells(3, 5) = Application.WorksheetFunction.Min(A)

End Sub

様々な場面に合わせて使用してみてください。

■よくあるエラーと対処法

・WorksheetFunctionクラスのMaxプロパティを取得できません・WorksheetFunctionクラスのMinプロパティを取得できません

こちらは対象の範囲にエラーが生じているかもしれません。
下図の見本を見てみましょう。

得点にエラーが存在しています。
先ほどの最小値を求めるプログラムを実行するとエラーになってます。

こちらの解決方法は参照範囲のエラーをなくすしかありません。
IFERROR関数などを使用してエラーにならない出力を検討してみましょう。

・最大値・最小値の結果が正しくない

こちらはセルの参照が間違っていないかを確認してください。
それでも結果が異なる場合は、表示形式が「文字列」になっている可能性があります。

下図を見てみましょう。

参照範囲が「文字列」で入力されている場合は数値としてみなされず
文字として判断されるため、平均されなくなります。

解決方法は表示形式を「標準」「数値」に戻して入力しなおすと解決します。

■公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが

マイクロソフト公式の説明については下記のリンクを参照してください。☟

Application.WorksheetFunction プロパティ (Excel) | Microsoft Docs

■まとめ

いかがだったでしょうか。

これでマクロVBAでもMAX・MIN関数を使用することができました。

Application.WorksheetFunctionは他にも様々な関数を使用できるので

ぜひ参考にしてみてください。記事はこちらから☟

【マクロVBA知識 22】ワークシート関数の機能を使用する~WorksheetFunction~ ► 独学エクセル塾 (dokugakuexcel.com)

それでは次回の記事でお会いしましょう。

使用方法は関数と同じです。
関数は下記リンクを参照してください。

カウントはよく使用する機能ですよね。
ぜひ身に着けて活用してみてください。

それでは見ていきましょう。

■COUNT関数で指定範囲の平均を求める

・プログラムの仕組み

Application.WorksheetFunction.Count(カウントしたい範囲)

・使用方法

では下図の例をもとに進めていきましょう

出勤状態をＣ列に入力しているシートですね。
出勤すると出勤時間を打ち込んでいます。
今回はその出勤日数を「F3」に入力してみましょう。

ではプログラムを組んでみましょう。
カウントを求めたい範囲は「C3からC12」ですので下記のようになります。

Sub カウント()

Cells(3, 6) = Application.WorksheetFunction.Count(Range(“C3:C12“))

End Sub

それでは実行した結果を見てみましょう。

カウントすることができました。数値が「6個」あるので「6」が出力されます。
ちなみにCellsで表示するとこのようになります。

Cells(3, 6) = Application.WorksheetFunction.Count(Range(Cells(3, 3), Cells(12, 3)))

さらにRange変数を使用してもカウントすることは可能です。

Sub カウント()

Dim A As Range

Set A = Range(“C3:C12“)

Cells(3, 6) = Application.WorksheetFunction.Count(A)

End Sub

■CountIF関数で条件に当てはまるカウントを求める

・プログラムの仕組み

Application.WorksheetFunction.CountIf(条件の範囲,絞り込む条件)

・使用方法

では下図の例をもとに進めていきましょう

先ほどのシートの勤務時間に「10」が加わりました。
今回は「10時間勤務の日数」をカウントしてみましょう。

条件の範囲は「Ｃ3からＣ12」になります。
絞り込む条件は「10」ですね。

プログラムを組むとこのようになります。

Sub 条件に当てはまるカウント()

Cells(3, 6) = Application.WorksheetFunction.CountIf(Range(“C3:C12“), “10“)

End Sub

それでは実行してみましょう。

機能していますね。
こちらもCellsで表してみましょう。

Cells(3, 6) = Application.WorksheetFunction.CountIf(Range(Cells(3, 3), Cells(12, 3)), “10“)

Range変数を使用するとこのようになります。

Sub 条件に当てはまるカウント()

Dim A As Range

Set A = Range(“C3:C12“)

Cells(3, 6) = Application.WorksheetFunction.CountIf(A, “10“)

End Sub

■CountIFS関数で条件に当てはまるカウントを求める

・プログラムの仕組み

Application.WorksheetFunction.CountIfs(絞り込む範囲1,絞り込む条件1,絞り込む範囲2,絞り込む条件2….)

・使用方法

では下図の例をもとに進めていきましょう

今回はさらに「勤務内容」も追加しました。
では実際にプログラムを組んでみましょう。

今回は条件を「勤務時間：8」「勤務内容：通常」としてみましょう。

絞り込む条件の範囲は１つ目は勤務時間なので「C3からC12」です。
絞り込む条件の１つ目は「8」ですね。
絞り込む条件の範囲は2つ目は勤務内容なので「D3からD12」です。
絞り込む条件の2つ目は「通常」ですね。

それでは作成したプログラムを見てみましょう。

Sub 複数条件に当てはまるカウント()

Cells(9, 7) = Application.WorksheetFunction.CountIfs(Range(“C3:C12“), “8“, Range(“D3:D12“), “通常“)

End Sub

実行するとこのようになります。

「勤務時間が8」「勤務内容が通常」に当てはまるデータの数、「3」が出力されてますね。

ではCellsでもプログラムを見てみましょう。

Cells(9, 7) = Application.WorksheetFunction.CountIfs(Range(Cells(3, 3), Cells(12, 3)), “8“, Range(Cells(3, 4), Cells(12, 4)), “通常“)

長くなりますが、変数を使う場合はこちらを活用してみましょう。

Range変数を使用するとこのようになります。

Sub 複数条件に当てはまるカウント()

Dim A As Range, B As Range

Set A = Range(“C3:C12“)
Set B = Range(“D3:D12“)

Cells(9, 7) = Application.WorksheetFunction.CountIfs(A, “8“, B, “通常“)

End Sub

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

WorksheetFunction オブジェクト (Excel) | Microsoft Learn

■まとめ

いかがだったでしょうか。

マクロVBAでもカウント機能を使用することができました。

ぜひ活用してみてください。

次回はVBAでMAX/MIN関数を使用する方法についてまとめています。記事はこちらから☟

【マクロVBA知識 21】データの最大値・最小値をMAX.MINを使用して求める ► 独学エクセル塾 (dokugakuexcel.com)

それでは次回の記事でお会いしましょう。

使用方法は関数と同じです。
関数は下記リンクを参照してください。

【AVERAGE関数】エクセルで平均値を求める方法について説明します！ ► 独学エクセル塾 (dokugakuexcel.com)

【AVERAGEIF関数】エクセルで条件に当てはまる平均値を求める ► 独学エクセル塾 (dokugakuexcel.com)

【AVERAGEIFS関数】エクセルで複数の条件に当てはまる平均を求める ► 独学エクセル塾 (dokugakuexcel.com)

平均はよく使用する機能ですよね。
ぜひ身に着けて活用してみてください。

それでは見ていきましょう。

■AVERAGE関数で指定範囲の平均を求める

・プログラムの仕組み

Application.WorksheetFunction.Average(平均を求めたい範囲)

・使用方法

では下図の例をもとに進めていきましょう。

AさんからKさんまでの得点をＣ列に入力しています。
今回はその平均得点を「E3」に入力してみましょう。

ではプログラムを組んでみましょう。
平均を求めたい範囲は「C3からC13」ですので下記のようになります。

それでは実行した結果を見てみましょう。

平均を求めることができました。
ちなみにCellsで表示するとこのようになります。

Cells(3, 5) = Application.WorksheetFunction.Average(Range(Cells(3, 3), Cells(13, 3)))

さらにRange変数を使用しても平均を求めることは可能です。

Sub 平均()

Dim A As Range

Set A = Range(“C3:C13”)

Cells(3, 5) = Application.WorksheetFunction.Average(A)

End Sub

■AverageIF関数で条件に当てはまる平均を求める

・プログラムの仕組み

Application.WorksheetFunction.AverageIf(条件の範囲,絞り込む条件,平均の範囲)

・使用方法

では下図の例をもとに進めていきましょう

先ほどのシートに学年が加わりました。
今回は２年の平均を求めてみましょう。

条件の範囲は「Ｃ3からＣ13」になります。
絞り込む条件は「２年」ですね。
平均の範囲は得点なので「Ｄ3からＤ13」ですね。

プログラムを組むとこのようになります。

Sub 条件に当てはまる平均()

Cells(3, 6) = Application.WorksheetFunction.AverageIf(Range(“C3:C13”), “２年”, Range(“D3:D13”))

End Sub

それでは実行してみましょう。

機能していますね。
こちらもCellsで表してみましょう。

Cells(3, 6) = Application.WorksheetFunction.AverageIf(Range(Cells(3, 3), Cells(13, 3)), “２年”, Range(Cells(3, 4), Cells(13, 4)))

Range変数を使用するとこのようになります。

Sub 条件に当てはまる平均()

Dim A As Range, B As Range

Set A = Range(“C3:C13”)
Set B = Range(“D3:D13”)

Cells(3, 6) = Application.WorksheetFunction.AverageIf(A, “２年”, B)

End Sub

■AverageIFS関数で条件に当てはまる平均を求める

・プログラムの仕組み

Application.WorksheetFunction.AverageIfs(平均したい範囲,絞り込む範囲1,絞り込む条件1,絞り込む範囲2,絞り込む条件2….)

・使用方法

では下図の例をもとに進めていきましょう

今回はさらに「組」も追加しました。
では実際にプログラムを組んでみましょう。

平均したい範囲は「E3からE13」です。
絞り込む条件の範囲は１つ目は学年なので「C3からC12」です。
絞り込む条件の１つ目は「２年」ですね。
絞り込む条件の範囲は2つ目は学年なので「D3からD12」です。
絞り込む条件の2つ目は「は組」ですね。

それでは作成したプログラムを見てみましょう。

Sub 複数の条件に当てはまる平均()

Cells(10, 7) = Application.WorksheetFunction.AverageIfs(Range(“E3:E13”), Range(“C3:C13”), “２年”, Range(“D3:D13”), “は組”)

End Sub

実行するとこのようになります。

「２年は組」に当てはまる「45」と「60」が平均されていますね。

ではCellsでもプログラムを見てみましょう。

Cells(10, 7) = Application.WorksheetFunction.AverageIfs(Range(Cells(3, 5), Cells(13, 5)), Range(Cells(3, 3), Cells(13, 3)), “２年”, Range(Cells(3, 4), Cells(13, 4)), “は組”)

長くなりますが、変数を使う場合はこちらを活用してみましょう。

Range変数を使用するとこのようになります。

Sub 複数の条件に当てはまる平均()

Dim A As Range, B As Range, C As Range

Set A = Range(“C3:C13”)
Set B = Range(“D3:D13”)
Set C = Range(“E3:E13”)

Cells(10, 7) = Application.WorksheetFunction.AverageIfs(C, A, “２年”, B, “は組”)

End Sub

■よくあるエラーと対処法

・WorksheetFunctionクラスのAverageifsプロパティを取得できません

こちらは平均の範囲にエラーが生じているかもしれません。
下図の見本を見てみましょう。

得点にエラーが存在しています。
先ほどの「２年は組」の条件で平均を求めるとエラーになってます。

こちらの解決方法は平均範囲のエラーをなくすしかありません。
IFERROR関数などを使用してエラーにならない出力を検討してみましょう。

・平均の結果が正しくない

こちらはセルの参照が間違っていないかを確認してください。
それでも結果が異なる場合は、表示形式が「文字列」になっている可能性があります。

下図を見てみましょう。

平均範囲が「文字列」で入力されている場合は数値としてみなされず
文字として判断されるため、平均されなくなります。

解決方法は表示形式を「標準」「数値」に戻して入力しなおすと解決します。

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

WorksheetFunction オブジェクト (Excel) | Microsoft Learn

■まとめ

いかがだったでしょうか。

関数で使用する平均の機能ですがVBAでも使用することができるので

是非今回の内容を活用してみてください。

次回はカウント関数をVBAで使用する方法についてまとめています。記事はこちらから☟

【マクロVBA知識 20】カウントをCOUNT/COUNTIF/COUNTIFSで求める ► 独学エクセル塾 (dokugakuexcel.com)

それでは次回の記事でお会いしましょう。

エクセルの関数には合計・総和を求めるSUM・SUMIF・SUMIFS関数が存在します。
この関数は、なんとマクロVBAでも使用することができます。

使用方法は関数と同じです。
関数は下記リンクを参照してください。

【SUM関数】エクセルで合計（総和）を関数を使用して求める方法 ► 独学エクセル塾 (dokugakuexcel.com)

【SUMIF関数】エクセルで条件に当てはまる合計・総和を求める ► 独学エクセル塾 (dokugakuexcel.com)

【SUMIFS関数】エクセルで複数の条件に当てはまる合計を求める ► 独学エクセル塾 (dokugakuexcel.com)

合計はよく使用する機能ですよね。
ぜひ身に着けて活用してみてください。

それでは見ていきましょう。

■SUM関数で指定範囲の合計を求める

・プログラムの仕組み

Application.WorksheetFunction.Sum(合計を求めたい範囲)

・使用方法

では下図の例をもとに進めていきましょう

AさんからKさんまでの得点をＣ列に入力しており
今回はその合計得点を「E3」に入力してみましょう。

ではプログラムを組んでみましょう。
合計を求めたい範囲は「C3からC13」ですので下記のようになります。

Sub 合計()

Cells(3, 5) = Application.WorksheetFunction.Sum(Range(“C3:C13”))

End Sub

それでは実行した結果を見てみましょう。

合計を求めることができました。
ちなみにCellsで表示するとこのようになります。

Cells(3, 5) = Application.WorksheetFunction.Sum(Range(Cells(3, 3), Cells(13, 3)))

さらにRange変数を使用しても合計を求めることは可能です。

Sub 合計()

Dim A As Range

Set A = Range(“C3:C13”)

Cells(3, 5) = Application.WorksheetFunction.Sum(A)

End Sub

■SUMIF関数で条件に当てはまる合計を求める

・プログラムの仕組み

Application.WorksheetFunction.SumIf(条件の範囲,絞り込む条件,合計の範囲)

・使用方法

では下図の例をもとに進めていきましょう

先ほどのシートに学年が加わりました。
今回は２年の合計を求めてみましょう。

条件の範囲は「Ｃ3からＣ13」になります。
絞り込む条件は「２年」ですね。
合計の範囲は得点なので「Ｄ3からＤ13」ですね。

プログラムを組むとこのようになります。

Sub 条件に当てはまる合計()

Cells(3, 6) = Application.WorksheetFunction.SumIf(Range(“C3:C13”), “２年”, Range(“D3:D13”))

End Sub

それでは実行してみましょう。

機能していますね。
こちらもCellsで表してみましょう。

Cells(3, 6) = Application.WorksheetFunction.SumIf(Range(Cells(3, 3), Cells(13, 3)), “２年”, Range(Cells(3, 4), Cells(13, 4)))

Range変数を使用するとこのようになります。

Sub 条件に当てはまる合計()

Dim A As Range, B As Range

Set A = Range(“C3:C13”)
Set B = Range(“D3:D13”)

Cells(3, 6) = Application.WorksheetFunction.SumIf(A, “２年”, B)

End Sub

■SUMIFS関数で条件に当てはまる合計を求める

・プログラムの仕組み

Application.WorksheetFunction.SumIfs(合計したい範囲,絞り込む範囲1,絞り込む条件1,絞り込む範囲2,絞り込む条件2….)

・使用方法

では下図の例をもとに進めていきましょう

今回はさらに「組」も追加しました。
では実際にプログラムを組んでみましょう。

合計したい範囲は「E3からE13」です。
絞り込む条件の範囲は１つ目は学年なので「C3からC12」です。
絞り込む条件の１つ目は「２年」ですね。
絞り込む条件の範囲は2つ目は学年なので「D3からD12」です。
絞り込む条件の2つ目は「は組」ですね。

それでは作成したプログラムを見てみましょう。

Sub 複数の条件に当てはまる合計()

Cells(10, 7) = Application.WorksheetFunction.SumIfs(Range(“E3:E13”), Range(“C3:C13”), “２年”, Range(“D3:D13”), “は組”)

End Sub

実行するとこのようになります。

「２年は組」に当てはまる「45」と「60」が合計されていますね。

ではCellsでもプログラムを見てみましょう。

Cells(10, 7) = Application.WorksheetFunction.SumIfs(Range(Cells(3, 5), Cells(13, 5)), Range(Cells(3, 3), Cells(13, 3)), “２年”, Range(Cells(3, 4), Cells(13, 4)), “は組”)

長くなりますが、変数を使う場合はこちらを活用してみましょう。

Range変数を使用するとこのようになります。

Sub 複数の条件に当てはまる合計()

Dim A As Range, B As Range, C As Range

Set A = Range(“C3:C13”)
Set B = Range(“D3:D13”)
Set C = Range(“E3:E13”)

Cells(10, 7) = Application.WorksheetFunction.SumIfs(C, A, “２年”, B, “は組”)

End Sub

■よくあるエラーと対処法

・WorksheetFunctionクラスのSumifsプロパティを取得できません

こちらは合計の範囲にエラーが生じているかもしれません。
下図の見本を見てみましょう。

得点にエラーが存在しています。
先ほどの「２年は組」の条件で合計を求めるとエラーになってます。

こちらの解決方法は合計範囲のエラーをなくすしかありません。
IFERROR関数などを使用してエラーにならない出力を検討してみましょう。

・合計の結果が正しくない

こちらはセルの参照が間違っていないかを確認してください。
それでも結果が異なる場合は、表示形式が「文字列」になっている可能性があります。

下図を見てみましょう。

合計範囲が「文字列」で入力されている場合は数値としてみなされず
文字として判断されるため、合計されなくなります。

解決方法は表示形式を「標準」「数値」に戻して入力しなおすと解決します。

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

WorksheetFunction オブジェクト (Excel) | Microsoft Learn

■まとめ

いかがだったでしょうか。

関数では、よく使用されるSUM関数もVBAで使用できるのは便利ですね。

ぜひ使用してみてください。

次回は平均を求める方法についてまとめています。記事はこちらから☟

【マクロVBA知識 19】平均をAVERAGE/AVERAGEIF/AVERAGEIFSで求める ► 独学エクセル塾 (dokugakuexcel.com)

それでは次回の記事でお会いしましょう。