1

ファイルから値を読み取り、グラフを生成し、計算を実行するプログラムがあります。

2 列 / 17000 行以上のデータ セットをインポートし、特定の範囲からグラフを生成する必要があります。最初の列には、前後に -5 ～ 5 mm のサイクルを維持する変位データが含まれています。各サイクルで -2.5 ～ -4.5 mm と 2.5 ～ 4.5 mm の結果を分析する必要があります。

問題は、データのセットが異なると、範囲の極値を含む行の数が異なる可能性があることです。

関数を使用してMATCH、範囲の開始と終了の行番号を取得しています。例えば：

=MATCH(2.5,Data!B200:B230,1)+199
=MATCH(4.5,Data!B260:B290,1)+260

私の場合、ここでは216、272それぞれが得られます。

私の質問は、VBA コードでこれらの値を使用して、グラフを正しいデータ セットで自動的に更新するにはどうすればよいですか? 現在、範囲は次のように固定されています。

Sheets("Main").ChartObjects("Chart 12").Activate 'Cycle 1 - Evaluation(tension)
ActiveChart.SeriesCollection(1).XValues = "=Data!$B$216:$B$272"
ActiveChart.SeriesCollection(1).Values = "=Data!$C$216:$C$272"

ありがとうございます。それでは、お元気で

4

1 に答える 1

1

Dimiとのような 2 つの変数を文字列変数で使用して、 のとプロパティのj値を作成します。例えば：XValuesValuesSeries

Dim i As Long, j As Long
Dim ref1 As String, ref2 As String

i = 216 'update with your MATCH formula
j = 272 'update with your MATCH formula

' create the references as string variables
ref1 = "=Data!$B$" & i & ":$B$" & j
ref2 = "=Data!$C$" & i & ":$C$" & j

Sheets("Main").ChartObjects("Chart 12").Activate 'Cycle 1 - Evaluation(tension)
ActiveChart.SeriesCollection(1).XValues = ref1
ActiveChart.SeriesCollection(1).Values = ref2
于 2017-01-10T13:31:34.537 に答える