|
回答いただいた後に自分で改造してみましたが、うまくいきません。
下記コード内のB10:B400はX軸の値になります。また、L10:N400はY軸の値の範囲となり、各列の値に対して3種類の曲線を書くグラフです。
Range("B10").Activate
Range("B10:B400,L10:N400").Select
Range("I10").Activate
Charts.Add
ActiveChart.ChartType = xlXYScatterLinesNoMarkers
ActiveChart.SetSourceData Source:=Sheets("データ").Range "B10:B400,L10:N400"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="電流波形"
そこで、X軸の値(B10:B400)は変更しないまま、Y軸の値となる範囲ををA10:C400などのように変更します。
A10:C400などの範囲を決めるにあたり、以前ご質問させていただいたようにシート内にある文字を検索し、一致する文字のあるセルを基準として3行下、1列左の位置がA10になるようにしたいのです。
つまり、ユーザーフォーム内のテキストボックスに入力した文字と一致した文字をシート内から検索し、一致した文字があるセルから3行下、1列左の位置からグラフを書く際にY軸の値となるA10:C400の範囲を選択します。
この場合どのようにすればよいのでしょうか?
教えてください。
|
|