|
Jakaさん、ウッシさん、Keinさん、丁寧なご説明ありがとうございました!
すごくよく分かりました!
それから、申し訳ないのですが、最後にあと1つだけ教えていただいてもいいでしょうか?
今までの結果をグラフにしてみようとしてるのですが、うまくいかないです。
下のやり方で、「****」にデータの右下を入れられればいいと思うのですが...
Charts.Add
With ActiveChart
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
.SetSourceData Source:=Sheets("nya"). _
Range("A1:****"), PlotBy:=xlColumns
.PlotArea.Select
.Location Where:=xlLocationAsNewSheet
.PlotArea.Select
.ChartType = xlXYScatterSmoothNoMarkers
End With
xlToLeftとxlUpをどうにか組み合わせれば出来るのかもしれませんが、どうにも行き詰ってます。
UsedRangeというのもあるみたいですが難しくて・・・
すみませんがもう1度ご教授お願いします。
|
|