ＶＢＡでグラフを作成する方法

質問

みなさん教えてください。

今デジタルオシロで測定した下記のようなデータを、添付図のように正弦波で表していますが、
図中の赤枠部分だけをデータから抽出してグラフで表したいと考えています。

方法は、赤枠部分のようにグラフＹ軸の電圧値範囲を指定して、指定した範囲のデータ抽出し
ようと色々試してみましたがうまくいきませんでした。

マクロを使用して、自動的にデータを抽出する方法はないでしょうか。
マクロの構文を教えて頂いたらうれしいです。

宜しくお願いします。

＜デジタルオシロで測定したデータ＞
※データ総数：４５０個程度

時間s 電圧V
0 0.03626667
0.0002 0.037975
0.0004 0.035025
0.0006 0.03514167
0.0008 0.03781667
0.001 0.03830833
0.0012 0.03346667
0.0014 0.03460833
0.0016 0.03616667
0.0018 0.0342
0.002 0.03035
0.0022 0.03088333
0.0024 0.032775
0.0026 0.02990833
　・　　　　・
　・　　　　・
　・　　　　・

回答No.1

keithin · ベストアンサー

方法１：
全データを使ってグラフを描画し，
with activechart.axes(xlvalue)
　.minimumscale = 0.02
　.maximumscale = 0.05
end with
のように表示範囲を制御する。

方法２：
データ列にオートフィルタを取り付け，電圧列について絞り込みを行い
　２－１）そのままグラフ化する
　２－２）コピーし，グラフ化する。必要に応じて散布図を使う

with worksheets("Sheet1").range("A:B")
.autofilter field:=2, criteria1:=">=0.02"
.copy destination:=worksheets("Sheet2").range("A1")
end with

方法３：
全データを数式で受けて，閾値未満の行はNA()関数を計算させておいてグラフにする
=IF(B2<0.02,NA(),B2)

＃マクロでするにしても，少なくとも全データを舐め回してイチイチ拾い上げるような，手間の掛かる方法は採らないようにします。