Excel で動的なアニメーション棒グラフ レースを作成する – ステップバイステップ ガイド

アニメーション棒グラフ レースとは何ですか?

棒グラフ レースは、時系列データをアニメーション化された棒グラフで表示することにより、時間の経過に伴う情報の大幅な変化を示す効果的なグラフィック形式です。新しく、興味をそそる、一貫した方法で統計を表示します。

Excel でアニメーション棒グラフ レースを作成する方法:ステップバイステップの手順

この記事では、Excel で動的な棒グラフ レースを作成するために必要な 4 つの段階について説明します。まずデータセットを構築し、次にデータを棒グラフにプロットし、最後に VBA コードを使用してマクロを作成し、それをボタンに割り当ててグラフのアニメーションを開始します。

ステップ 1 – データ モデルを設定する

使用するデータセットには、2020 年と 2021 年の月次売上が表示され、月というタイトルの 3 つの列があります。 、売上高(2020) 、売上高(2021) .

• C4:D16 を選択します。 範囲。
• Ctrl+C を押します。 .

• E4:F16 を選択します。 範囲。
• Ctrl+V を押します。 .

モデルは以下のようになりました。

ステップ 2 – グラフ データを生成する

データを棒グラフにプロットするには、さらに 2 つの列が必要です。両方の売上高をコピーします。 列を追加し、より具体的にするためにデータセットの横に貼り付けます。次に、前のステップで作成した列を利用してグラフをプロットします。 集合棒グラフを使用します。 .

• 挿入に移動します。 タブ。
• [縦棒グラフまたは棒グラフの挿入] をクリックします。 グラフのアイコン グループ。

• 集合バーをクリックします。 2-D バーのアイコン セクション

以下のような空のチャートが表示されます。

• グラフ上の任意の場所をクリックし、グラフのデザインに移動します。 タブ、続いてデータの選択 .

データ ソースの選択 ウィンドウが開きます。

• シート名を入力します。 その後に感嘆符が続きます。 マークを付けてから範囲を指定します。

複数の範囲の間にはカンマを使用することが重要です。

• [追加] をクリックします。 凡例エントリのアイコン セクション

編集シリーズ ウィンドウが開きます。

• シリーズ名を入力します およびシリーズ範囲 列 E の場合 上記で説明した適切な構文を使用する
• [OK] をクリックします。 .

• 列 F に対してこのプロセスを繰り返します。 をクリックし、[OK] をクリックします。 .

• データ ソースの選択に移動します。 ウィンドウ。
• [編集] を選択します。 横軸ラベルから。
• [OK] をクリックします。 .

軸ラベル ウィンドウが開きます。

• 列 B の範囲を入力します ボックスにチェックを入れて [OK] をクリックします。 .

チャートはデータ モデルからデータを取得します。

• プラスをクリックします。 アイコンをクリックして軸をチェックします。 、グラフのタイトル 、グリッド線 そしてレジェンド このデモでは。

続きを読む: Excel でアニメーション グラフを作成する方法

ステップ 3 – アニメーション棒グラフ レース用のマクロを構築する

ここで、データをアニメーションで表示するための VBA コードを作成します。 DynamicChart というラベルの付いたプロシージャを宣言します。 、C からグラフのデータを取得します。 そしてD 遅延を維持しながら列を移動し、E に貼り付けます。 そしてファ 列。

• デベロッパーに移動します。 タブ。
• [Visual Basic] をクリックします。 .

• [挿入] を選択します。 、 続いてモジュール .

• モジュールに次のコードを入力します。 ボックス。

Sub DynamicChart()
    Const StartRange As Long = 5
    Dim LastRange As Long
    Dim RangeNo As Long
    LastRange = Range("C" & StartRange).End(xlDown).Row
    Range("E" & StartRange, "F" & LastRange).ClearContents
    DoEvents
    Application.Wait (Now + TimeValue("00:00:1"))
    For RangeNo = StartRange To LastRange
        DoEvents
        Range("E" & RangeNo, "F" & RangeNo).Value = Range("C" & RangeNo, "D" & RangeNo).Value
        Application.Wait (Now + TimeValue("00:00:1"))
        DoEvents
    Next RangeNo
End Sub

• [保存] をクリックします。 アイコン。

ステップ 4 – マクロを割り当てるボタンを生成する

最後に、このアプリケーションをより使いやすくするために、START を構築します。 ボタンをクリックして、以前に作成したマクロをそれに割り当てます。

• 開発者に移動します。 タブに続いて挿入 .

• データ モデルとチャートの間のスペースに長方形のボタンを描画します。

マクロの割り当て ウィンドウが表示されます。

• マクロを選択します。この場合は DynamicChart です。 [OK] をクリックします。 .

• ボタンを選択し、名前を変更します。この場合、開始します。 .
• テキストをハイライト表示して、ホームに移動します。 タブ。
• 太字を選択します フォントから グループ化して、サイズを 20 に設定します。 .

ボタンは以下のようになります。

• [開始] をクリックします。 ボタンをクリックすると、意図した出力が以下のように表示されます。

続きを読む: Excel でテキストをアニメーション化する方法

練習ワークブックをダウンロード

関連記事

• Excel で 3D アニメーションを作成する方法

ソリューション付きの高度な Excel 演習を無料で入手しましょう!