VBAコードを使用してExcelでグラフを更新する方法

VBAコードを使用してExcelでグラフを更新する方法

Excelには、チャート、グラフ、表などのデータの表示を支援する多数のツールがあります。ただし、ほとんどのユーザーは表示の一部を自動化またはカスタマイズする必要があります。

新しいデータを追加する
変更または追加後のテーブルの並べ替え
ヘッダー行を追加する
問題は、Excelが、物事を説明しない限り、データを変更または追加するときに何を達成しようとしているかを実際に知らないことです。単純なVBAコードを使用してそれを実行します。

VBAを使用してグラフを自動化する

Excelは、最初の行が数値でない場合にヘッダーデータを認識し、それに応じてグラフを表示します。ただし、ヘッダー行を挿入するか、テーブルの最後に新しいデータを追加する必要がある場合は、データ範囲を編集する必要があります。

ヘッダー行を追加したり、基になるテーブルにデータを追加したりするたびにグラフを自動的に更新できるVBAコードを記述します。これから見ていくシナリオは、各生徒のテスト結果を保持する教師です。

ジョン・スミス、25

エリザ・マシューズ、24

ピエール・ラ・ブランシュ、56

プサタパ、44

上記のデータを使用してグラフを作成するのは簡単です。 Excelは、マウスを数回クリックするだけでグラフを自動的に描画します。ただし、ヘッダー行を追加し、後でデータを追加できるようにするコードが必要です。ボーナスとして、チャートを最低から最高に並べ替えます。

ワークシート変更機能を使用します。つまり、VBAコードウィンドウの適切なワークシートセクションにコードを配置します。ユーザーが学生の名前またはスコアの列を変更するたびに、グラフを更新します。

Private Sub Worksheet_change(ByVal Target As Range)

Target.Column <3 Thenの場合

ユーザーが列1または2のいずれかに新しいデータを変更または追加した場合、Excelにテーブルを並べ替え、新しい値に基づいてグラフを更新するよう依頼します。

tbl = Range( “a1″)。CurrentRegionを設定します

tbl.Select

Selection.Sort Key1:= Range( “b2″)、Order1:= xlAscending、Header:= xlYes

チャートを初めて作成するか、既存のチャートを選択します。

ケースを選択ActiveSheet.Shapes.Count

ケース0

ActiveSheet.Shapes.AddChart.Select

その他の場合

ActiveSheet.Shapes(1).Select

終了選択

新しいデータまたは追加されたヘッダー行を含むチャートのデータをリセットします。

ActiveChart.SetSourceData Source:= Range(tbl.Address)

Range(ActiveCell.Address).Select

終了する

サブ終了

概要

このVBAコードの短いスニペットにより、ユーザーはグラフを作成または更新することなくデータ入力に集中できます。新しいデータをインポートして表示を自動的に更新できるように、コードを適合させることができます。

Andy L Gibsonは、以前のWebサイトプログラマであり、中小企業向けのソフトウェアアプリケーションへの関心を再発見しました。

Leave a Reply

Your email address will not be published. Required fields are marked *