300例

移動平均表

Rolling Average Table

以下では、のプログラムを見ていきます。 Excel VBA それは作成します 移動平均表 。を配置します コマンドボタン ワークシートに次のコード行を追加します。





Range( 'B3')。Value = WorksheetFunction.RandBetween(0、100)

このコード行は、0から100までの乱数をセルB3に入力します。 Excel VBAで新しい株価を取得し、移動平均テーブルの最初の位置に配置する必要があります。他のすべての値は1つ下に移動し、最後の値を削除する必要があります。

ExcelVBAの移動平均テーブル





ExcelVBAの移動平均テーブル

ワークシート変更イベントを作成します。ワークシート変更イベントに追加されたコードは、ワークシートのセルを変更すると、ExcelVBAによって実行されます。



許容できる範囲名ではない次のうちどれですか?

1.を開きます Visual Basic Editor 。

2.プロジェクトエクスプローラーでSheet1(Sheet1)をダブルクリックします。

3.左側のドロップダウンリストから[ワークシート]を選択します。右側のドロップダウンリストから[変更]を選択します。

ExcelVBAのワークシート変更イベント

次のコード行をワークシート変更イベントに追加します。

4.整数型のnewvalueという変数と2つの範囲(firstfourvaluesとlastfourvalues)を宣言します。

なしnewvalueNS 整数、firstfourvaluesNS範囲、lastfourvaluesNS範囲

5.ワークシート変更イベントは、Sheet1のすべての変更をリッスンします。セルB3で何かが変更された場合にのみ、ExcelVBAに何かを実行させます。これを実現するには、次のコード行を追加します。

もしもTarget.Address = '$ B $ 3'それで

6. newvalueをセルB3の値で初期化し、firstfourvaluesをRange( 'D3:D6')で初期化し、lastfourvaluesをRange( 'D4:D7')で初期化します。

newvalue = Range( 'B3')。Value
設定firstfourvalues = Range( 'D3:D6')
設定lastfourvalues =範囲( 'D4:D7')

7.ここで簡単なトリックがあります。移動平均表を更新したいと思います。これを実現するには、最後の4つの値をテーブルの最初の4つの値に置き換え、新しい株価を最初の位置に配置します。

Excel2013でボタンにマクロを割り当てる方法
lastfourvalues.Value = firstfourvalues.Value
Range( 'D3')。Value = newvalue

8.ifステートメントを閉じることを忘れないでください。

終わり もしも

9.最後に、数式= AVERAGE(D3:D7)をセルD8に入力します。

10.コマンドボタンをクリックしてプログラムをテストします。

6/6完成!イベントの詳細>
次の章に進む: 配列



^