値が最大のデータ要素をVBAで選択する

動作検証バージョン：64bit Windows 10 Pro + 32bit Excel（バージョン2112 ビルド14729.20260 Microsoft Store）

「VBA 系列の最大値選択 SeriesCollection(1).Points」
という検索キーワードでアクセスがありました。

グラフのデータ系列の中で、値が最大のデータ要素をExcel VBAで選択するには、どのようなコードを書けばいいのかを探していらしたのでしょうか。

値が最大のデータ要素を選択するサンプルマクロ

グラフがアクティブな状態で以下のSubプロシージャを実行すると、1つ目のデータ系列の中で、値が最大のデータ要素が選択されます。

Sub 値が最大のデータ要素を選択する()
　With ActiveChart.SeriesCollection(1)
　　Dim arr_val As Variant
　　arr_val = .Values

　　Dim max_val As Double
　　max_val = WorksheetFunction.Max(arr_val)

　　Dim idx As Long
　　For idx = 1 To UBound(arr_val)
　　　If arr_val(idx) = max_val Then Exit For
　　Next
　　.Points(idx).Select
　End With
End Sub

まず、系列を表すSeriesオブジェクトのValuesプロパティを使って、

Excel.Series.Valuesプロパティ

系列値を要素として含む配列を作成します。

With ActiveChart.SeriesCollection(1)
　Dim arr_val As Variant
　arr_val = .Values

次に、その配列の中で最大の値を、ワークシート関数のMAX関数で取得します。

　Dim max_val As Double
　max_val = WorksheetFunction.Max(arr_val)

つづいて、系列値の格納されている配列に対してFor～Nextループを回し、最大値がみつかったらFor～Next文を抜けます。

　Dim idx As Long
　For idx = 1 To UBound(arr_val)
　　If arr_val(idx) = max_val Then Exit For

Excel.Series.Pointsメソッド

先ほどのFor～Next文を終了したときのカウンター変数を指定することで、最大値を持つデータ要素を表すPointオブジェクトを取得して、PointオブジェクトのSelectメソッドで

Excel.Point.Selectメソッド

選択しています。

　.Points(idx).Select

理解するExcel VBA／グラフ操作の基本

伊藤潔人 2022-06-10

最終更新日時：2022-07-15 16:36

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

3年前(2021年4月)の
人気記事

「グラフ・Chart」の記事一覧