練習問題と内容について

・練習問題の狙い

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

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

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

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

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

・練習問題7について

こちらはマクロVBAの初歩的な知識になります。

指定された範囲のセル値の最小値を計算し、セル番地に結果を表示する練習問題となります。 それでは頑張っていきましょう！

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

問題内容

セル番地A1からA5までの値の中から最小値を見つけ、その結果をセル番地G1に表示する 

動作説明

VBAを使用して、指定された範囲のセル番地A1からA5までの値の中から最小値を見つけ、その結果をセル番地G1に表示します。
最小値とは対象の数値を一番小さな値です。
この問題では、セル番地A1からA5までの値を取得し、その中から最小値を見つけてセル番地G1に表示する必要があります。

ヒント

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

・ヒントその1

セル番地A1からB3の値の最小値を求めるには、セルの値を取得してから最小値を計算し、結果をセル番地G1に表示する必要があります。
１つずつ比較してもいいですが、WorksheetFunctionオブジェクトのminメソッドを使用する方法があります。

WorksheetFunctionで最小値を求めるためには、VBAの組み込み関数であるWorksheetFunction.minを使用します。
例えば、min= WorksheetFunction.min(Range(“A1:B3“))というように、min関数を使ってセル範囲内の最小値を取得できます。

・ヒントその2

セルに値を最小値を見つけるためには、ループや条件分岐を使用することが有効です。
例えば、For Eachループを使用してセル番地A1からA5までの値を順番に比較します。

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

・ヒントその3

セルに値を表示するためには、Rangeオブジェクトを使用します。
セル番地を指定して該当するセルオブジェクトを取得し、Valueプロパティを使用して値を設定します。

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

・ヒントその4   (参考)

計算結果をセルに表示するには、Rangeオブジェクトを使用します。
セル番地を指定して該当するセルオブジェクトを取得し、Valueプロパティを使用して値を設定します。

例えば、指定セル.Value = 入力したい文字で文字の入力が可能です。
ちなみに省略しても機能します！ これらのヒントを参考にして、解答コードを作成してみてください。  

解答コード

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

・回答その①

上記のコードは、セル番地A1からA5の値を比較し、最小値をもとめて、その結果をセル番地G1に表示するVBAのマクロです。
解答コードでは、`minValue `という変数を宣言し、セルの値を繰り返し処理で比較して最小値を計算しています。

最終的に、計算結果を`Range(“G1”).Value`に代入してセルに表示しています。
☟繰り返し処理の見本

・回答その②

解答コードでは、まずminValue という変数を宣言し、WorksheetFunction.min関数を使ってセル範囲の合計値を取得します。

取得した最小値を変数minValue に代入し、最後にRange(“G1”).Valueにその値を表示します。

必要な知識

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

最小値の計算方法

まず、最小値の仕組みを知っておく必要があります。
通常の最小値を計算する記事で詳しく解説していますので是非参考にしてみてください。

セルの値の取得と設定

セルの値を取得するには、Valueプロパティを使用します。
例えば、Range(“A1”).ValueやCells(1, 1).Valueはセルの値を取得します。

セルの値を設定するにも、同様にValueプロパティを使用します。
例えば、Range(“A1”).Value = 10やCells(1, 1).Value = “Hello”といった形でセルに値を設定します。 下記参考記事で紹介しています！

変数の宣言と演算

VBAでは、変数を宣言して使用します。変数はDimステートメントを使用して宣言します。
例えば、Dim minValue As Doubleとすると、minValue という名前の変数をDouble型で宣言します。

演算においては、四則演算や比較演算子を使用します。
例えば、minValue = minValue + 1とすると、minValue の値に1を加えて再代入します。

WorksheetFunctionの使用

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

ループ構造

最小値を求めるために、セル範囲内の各セルを順番にチェックするループ構造が必要です。
For Nextループを使った反復処理や、For Eachを使ったカウンターを利用した反復処理について理解しておくと良いでしょう。

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

まとめ

この練習問題では、VBAを使用してセルの値の最小値を求める方法について学びました。

具体的には、セル番地A1からA5の値の最小値を計算し、その結果をセル番地G1に表示する問題を解きました。


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

次の練習問題では、さらに別の課題に取り組んでいきますので、順番に解いていくことでスキルを磨いていきましょう。
  以上で練習問題7となります。お疲れ様でした！

そこで今回はMINIFS関数が使用できなくても複数条件に当てはまる
最小値をもとめる方法をご紹介します。

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

■こんなことができるようになる!

・MINIFS関数を使用しなくても複数条件に当てはまる最小値を算出することができる。

■複数条件に当てはまる最小値をもとめる

今回、使用する関数はMIN関数とIF関数になります。
それぞれの詳細な内容について知りたい場合は下記リンクをご参照ください。

MIN関数はこちら☟

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

IF関数はこちらから☟

【IF関数】エクセルで○○だったら△△を表示する～条件分岐を身に着ける～ ► 独学エクセル塾 (dokugakuexcel.com)

・1つの条件の最小値をもとめる

まず、手始めに1つの条件に当てはまる最小値をもとめてみましょう。
見本で下図のファイルを作成してみました。

B列には日付のデータが入っておりC列には収益額が入力されています。
今回はE3に入力してある「対象日以上」という条件のもと、最小値をもとめてみましょう。

通常であればMIN関数を使用しますが、「対象日以上」という条件が含まれています。
そこでIF関数と合わせることで条件を追加した最小値を求めることができます。

では関数の仕組みを見てみましょう。

{=MIN(IF(条件の範囲=条件,最小値をもとめたい範囲,””))}

関数の仕組みを見てみると数式の両端に「｛｝」がついてますよね。
こちらは配列関数と呼ばれる方法で「｛｝」を直接入力するのではありません。
数式を入力した後に「Ctrl」+「Shift」+「Enter」を同時に押すことで数式を確定すると配列関数となります。

では関数に当てはめてみましょう。

条件の範囲は日付で絞り込みたいので日付の範囲のB3:B12
条件はE3以上の日付を最小値したいので>=E3
最小値を求めたい範囲は収益なので収益の範囲のC3:C12となります。

数式はこのようになります。

=MIN(IF(B3:B12>=E3,C3:C12,””))

では入力してみましょう。

この状態で「Ctrl」+「Shift」+「Enter」を同時に押します。
結果を見てみましょう。

数式を確認して「｛｝」が入力してあれば問題ありません。
これで条件の「5月27日」以上に当てはまる最小値は「874」ということがわかりました。

条件に当てはまらない「5月25日」の数値を「1」にしてみましょう。

参照範囲では「1」が最小値ですが、条件に当てはまらないので
最小値の出力の対象外となってます。

・2つの条件の最小値をもとめる

次に2つの条件に当てはまる最小値をもとめてみましょう。
下図の見本をご覧ください。

今回は開始時刻から終わりに時刻の間の最小値をもとめていきます。
つまり条件は2つあるということになりますね。

関数の仕組みはこのようになります

{=MIN(IF((条件の範囲1=条件1)*(条件の範囲2=条件2),最小値をもとめたい範囲,””))}

では関数に当てはめてみましょう。

条件の範囲1は日付で絞り込みたいので日付の範囲のB3:B12
条件1はE3以上の日付を最小値したいので>=E3
条件の範囲2も日付で絞り込みたいので日付の範囲のB3:B12
条件2はF3以下の日付を最小値したいので<=E6
最小値を求めたい範囲は収益なので収益の範囲のC3:C12となります。

数式はこのようになります。

=MIN(IF((B3:B12>=E3)*(B3:B12<=E6),C3:C12,””))

それでは入力してみましょう。

この状態で「Ctrl」+「Shift」+「Enter」を同時に押します。
結果を見てみましょう。

条件の「14：00から19：00」に当てはまる最小値を算出することができました。

・3つ以上の条件の最小値をもとめる

最後に3つ以上の条件に当てはまる最小値をもとめてみましょう。
下図の見本をご覧ください。

開始日と終わり日の2つの日付の間に加えて、対象に「○」がついてある条件に当てはまる
最小値を求めたいと思います。

つまり3つの条件ということになりますね。
関数の仕組みはこのようになります。

{=MIN(IF((条件の範囲1=条件1)*(条件の範囲2=条件2)*(条件の範囲3=条件3),最小値をもとめたい範囲,””))}

関数を見てもらうとわかると思いますが
「*」をつなげていくと、条件を増やしていける仕組みになっています。

では2つの条件の際に入力した数式に対象の条件を加えてみましょう。
数式はこのようになります。

=MIN(IF((B3:B12>=F3)*(B3:B12<=F6)*(D3:D12=”○”),C3:C12,””))

この状態で「Ctrl」+「Shift」+「Enter」を同時に押します。
結果を見てみましょう。

すべての条件に当てはまる最小値は「578」ということがわかりました。

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

・条件に当てはまらない数値も含まれる

こちらは配列関数になってない可能性があります。
関数を確定する際は「Ctrl」+「Shift」+「Enter」を同時に押してみてください。

☟通常に関数

☟配列関数

⬛︎まとめ

いかがだったでしょうか。
MINIFS関数はバージョンが「365」「2019」「2016」のみ対応となっているため、それ以前のバージョンでは使用することが出来ません。

是非今回の内容を活用して条件を絞ったの最小値を求めてみてください。

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

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

【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)

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

エクセルを使用するうえでエラーや空白は付き物。
その際にエラーや空白を無視して計算したいですよね。今回はそれを可能する関数です。

この関数を使用するだけでエラーが発生する可能性がある場面は防ぐことができます。

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

■関数の仕組み

計算方法：どのような計算をするか選択する（合計や平均など）

除外のオプション：エラーや空白等、スルーする条件を決める

計算範囲：計算する範囲を決定する

■ エラーを無視して計算する

見本で下図のような得点表を作成しました。

今回はA～Jさんの点数の合計・平均を求めていきます。

各得点に様々なエラーが発生していますね。
この状態で計算してみます。

計算した結果がこちらです。

はい、このようにエラーになってしまいます。

このエラーを無視できるのが今回の関数です。

では、AGGREGATE関数の説明に移ります。
関数の内容はこちら。

=AGGREGATE(計算方法,除外のオプション,計算範囲)

では計算方法から見ていきましょう。

・計算方法

こちらでは合計・平均・最大値・最小値など、どの計算をするか選択できます。

計算できる手法は以下の通りです。当てはまる数値を入力すれば、その計算が可能です。

よく使うのは1.平均、2.カウント、4.MAX、5.MIN、9.合計ぐらいでしょうか。
標準偏差は分析マンには必需品のアイテムですね。

・除外のオプション

ここでは無視したいオプションを選択します。

文字通りなので説明しませんが、

迷ったら「7」の「非表示の行とエラー値を無視します」を選択で大丈夫です。

非表示の行の無視や、入れ子、エラー値のみ無視など様々なオプションがあるので場面によって

使い分けてみてください。

■実践する

・エラーを無視して合計を計算

では合計を打ち込んでみましょう。
計算方法は合計なので「9」。除外方法は「7」で設定します。
そして合計したい範囲を関数で打ち込むと以下のようになります。

=AGGREGATE(9,7,C3:C12)

では実際に打ち込んでみましょう。

エラーにならず、計算してくれていますね。

・エラーを無視して平均を計算

計算方法は平均なので「1」。除外方法は「7」で設定します。
そして合計したい範囲を関数で打ち込むと以下のようになります。

=AGGREGATE(1,7,C3:C12)

こちらもうまくいきましたね！

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

■練習問題

・ 非表示の行とエラー値を無視して最大値（MAX）を計算

では下図の表を参考にしてみましょう。

対象はＣ3からC８とします。しかしエラーと空白が混じっているので無視します。

答え：=AGGREGATE(4,7,C3:C8)

解説：最大値(MAX)は「4」、非表示の行とエラー値を無視は「7」、範囲は「 C3:C8 」

・ 非表示の行とエラー値を無視して最小値（MIN）を計算

先ほどの計算を最小値（MIN）で計算してみましょう。

対象は先ほどと同様Ｃ3からC８とします。今回もエラーと空白が混じっているので無視します。

答え：=AGGREGATE(5,7,C3:C8)

解説：最大値(MAX)は「5」、非表示の行とエラー値を無視は「7」、範囲は「 C3:C8 」

■公式の説明

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

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

AGGREGATE 関数 – Office サポート (microsoft.com)

■まとめ

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

とても便利ですよね。私もこの関数を学んで

SUM関数やAVERAGE関数を使わない場面が増えました。

個人的にとても好きな関数です.

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

このサイトでは独学でエクセルの技術を磨くことができます。基本操作やVBA、関数を随時更新中です。

VBAではストーリー形式で説明していますが途中からでもわかるようにしています。ぜひ参考にしてみてください。

いつかはエクセルの教科書のようなサイトを目指してます。
コメントで知りたいことや悩みなど記入していただければお答えしていきます。
ぜひ、ほかの記事もご覧ください。皆様の参考になれれば幸いです！

MAX関数と対になる関数ですので是非覚えてください。

対称となるMAX関数はこちらから☟

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

使い方はとてもシンプルでMAX関数と使用方法は同じ仕組みです。

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

■関数の仕組み

■ 最小値を求める

・通常の最小値の算出

では下図のAさん・Bさん・Cさんのテストの点数を参考にしてみましょう。

下図の見本を見てみましょう。

国語・算数・理科・社会・英語の各点数を入力しています。

では黄色の「最低得点」を求めます。

使用する関数は「MIN関数」です。

「＝」の後にMINと打ちます。するとMIN関数が出てくるのでダブルクリックします。

このような画面になりましたかね？
そこで、Aさんの点の開始位置「85」をクリックしたまま、終点の「28」までスライドさせて範囲を決定させます。これによりAさんの点数がすべて網羅できた状態になります。

つまり関数で表すとこのようになります。

=MIN(C4:C8)

では実際に打ち込んでみましょう。

この状態でEnterキーを押すと…

はい！英語の28点ですね！

ちなみにBさん・Ｃさんの最低得点を求めたいときは、関数を1から打ち込まなくても時短で打ち込める方法があります。

MIN関数が入ったセルを選択し、右下にマウスを合わせます。
そのままクリックして展開したい範囲までスライドさせると・・・

Bさん・Cさんも同じように最小値を求めることができます。
ちなみに最小値を求める範囲も追従してずれてくれるようになっています。

Bさん・Cさんそれぞれ関数の式を打ち込まなくても入力できるのでとても便利ですね。

・離れた範囲を選択して複数範囲の最小値を求める

下図のように最小値を求めたい範囲が離れていても最小値を求めることができます。

離れている範囲の最小値を求めたい場合には範囲の後に「,」を打ち込むか、

「Ctrl」を押しながら再度、範囲を選択すると複数範囲の最小値を求めることができます。

上図の見本を見てみましょう。

=MIN(C3:C7,F3:F7)

「Ｃ3：Ｃ7」と「Ｆ3：Ｆ7」の二つの範囲を参照していることがわかります。

・複数のシートをまたいで最小値を求める

さらに複数のシートをまたいでも最小値を求めることができます。

下記の式を見てみましょう

=MIN(Sheet1!P15:P24,Sheet2!Q14:Q25)

２つのシートの範囲を参照して最小値を求めています。

参照範囲は

①「シート：Sheet1」のＰ15からＰ24

②「シート：Sheet2」のＱ14からＱ25

となっています。

仕組みはシート名+「！」+範囲で

別シートを参照することができるようになります。

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

ではMIN関数を使用して発生するエラーとそれに対する対処法を説明します。

・数値が文字列になっている

下記の式をご覧ください

5つの数値の最小値を算出する計算式になっています。

結果は一番小さな「28」になるはずです。しかし結果は下図のようになりました。

「28」ではなく、２番目に小さい「46」になっています。

では「28」に注目してください。

左上に緑の印がついています。

本来数値は「標準」や「数値」となっています。

しかし左上に緑の印がついてある「28」はというと…

「文字列」になっています。

つまり「28」は数値として認識されておらず「文字」として認識しているため

無視されている計算になっています。

対処法：表示を標準・数値にもどし、再度入力すれば解消されます。

・最小値を算出する範囲にエラーが含まれている

では次のエラーを見てみましょう。

最小値を求める式は先ほどと同様です。

しかし数値の中にエラーが存在しています。

結果はこのようになります。

エラーに引っ張られて最小値の結果もエラーになってしまいました。

MIN関数は空白や文字列はスルー出来ますが、エラーはスルー出来ません。

対策を下記にまとめました。

対策①：参照のエラーを解消する

対策②：AGGREGATE関数を使用し、エラーをスルーして最小値を求める。

対策①は至ってシンプルです。

対策②はエラーが起こる可能性があるが、最小値を求めたい場合は

AGGREGATE関数を使用するとエラーもスルーすることができます。

AGGREGATE関数関数についてはこちら☟

【AGGREGATE関数】エクセルで空白やエラーを無視して合計・平均・最大値・最小値を求める。 ► 独学エクセル塾 (dokugakuexcel.com)

■公式の説明

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

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

MIN 関数 – Office サポート (microsoft.com)

■まとめ

いかがだったでしょうか。
最大値と同様、最小値も分析等でよく使用されますね。

使い方はシンプルでとても使いやすいので実際に使用してみてください。

では次回の記事でお会いしましょう！