我々はエクセルVBAでプログラムを見て下記その色ダイナミックレンジの最大値。

状況：

私たちは番号を追加し、我々は、コマンドボタンをクリックするたびに、我々は、Excel VBAは、これらの番号の最大値を色付けしたいです。

Dynamic Range in Excel VBA

ワークシート上のコマンドボタンを配置し、次のコード行を追加します。

1.まず、我々は一つの変数と2つの範囲オブジェクトを宣言します。タイプダブルの一つの変数は、我々は最大呼び出します。私たちは、レンジRNGとセルオブジェクトを呼び出します。

Dim maximum As Double, rng As Range, cell As Range

2.私たちは、「塗りつぶしなし」にすべてのセルの背景色を変更する行を追加します。

Cells.Interior.ColorIndex = 0

3.私たちは、数字でRNG初期化します。このために/ VBA-例-currentregion [CurrentRegion] `プロパティ：私たちは`リンクを使用します。私たちは事前に範囲の正確な境界が分からないときCurrentRegionに便利です。

Set rng = Range("A1").CurrentRegion

4.私たちは、番号の最大値と最大値を初期化します。私たちは、最大値を見つけるために、ワークシート関数マックスを使用します。

maximum = WorksheetFunction.Max(rng)

5.最後に、我々は最大値に色を。私たちは、次の各ループのために使用します。

For Each cell In rng

If cell.Value = maximum Then cell.Interior.ColorIndex = 22

Next cell

注：代わりのColorIndex番号22（赤）のは、あなたがどんなのColorIndex番号を使用することができます。

番号を追加します6。

あなたはシート上のコマンドボタンをクリックすると、結果：

Dynamic Range Result