| |
▼miku02 さん：
>ありがとうございます。
>
>参照される元データを、作業をしているシートに指定するにはどのような方法があるのでしょうか？
>
>
>私が作ったマクロは下記の通りです。
>
>Sub Macro1()
> ActiveCell.Columns("A:E").EntireColumn.Select
> Charts.Add
> ActiveChart.ChartType = xlStockVOHLC
> ActiveChart.SetSourceData Source:=Sheets("ソニ").Range("A1:E3084"), PlotBy:= _
> xlColumns
> ActiveChart.Location Where:=xlLocationAsObject, Name:="ソニ"
>End Sub
>
>
>Sheets("ソニ")の部分などを色々変えて試したのですが、行き詰まってしまいました。。。。。
>
>
>元のデータは下記の通りで株価チャート用のものです。
>
>913100 5710 5720 5700 5700
>273400 5710 5760 5700 5760
>243600 5770 5780 5760 5770
>203800 5780 5780 5760 5760
>86300 5750 5750 5740 5750
>59700 5740 5760 5740 5750
>68700 5760 5760 5740 5740
>29700 5750 5750 5730 5730
>68700 5740 5740 5720 5730
>90700 5720 5730 5720 5720
>63900 5730 5730 5710 5710
>232500 5700 5730 5700 5730
>115800 5720 5730 5710 5710
>47700 5720 5730 5710 5730
>136400 5720 5730 5720 5720
>129500 5720 5720 5690 5690
>93200 5680 5700 5680 5690
>100100 5700 5700 5690 5690
>54500 5690 5690 5680 5690
>72900 5700 5700 5670 5670
>23100 5680 5680 5670 5670
>40400 5670 5680 5670 5680
>129600 5680 5690 5680 5680
>93400 5690 5690 5670 5680
>26600 5680 5690 5680 5690
>74500 5680 5690 5670 5680
>
>
>マクロ記録の過程は、
>
>Ａ列〜Ｅ列をShiftを押して指定 → グラフウィザード → 株価 → 株価チャート（出来高-始値-高値-安値）という風にやりました。
>
>
>よろしくお願いします。
作業をしているシートとか？
アクティブになっているシートのことですか？
であれば、
>Sub Macro1()
> ActiveCell.Columns("A:E").EntireColumn.Select
> Charts.Add
> ActiveChart.ChartType = xlStockVOHLC
> ActiveChart.SetSourceData Source:=activesheet.Range("A1:E3084"), PlotBy:= _
> xlColumns
> ActiveChart.Location Where:=xlLocationAsObject, Name:="ソニ"
>End Sub
でできませんか？
グラフの元データはたぶんSetSourceData Source:=activesheet.Range("A1:E3084")って所だと思いますので。
たぶんソニってシートに、アクティブシートのデータのグラフが作成されると思いますが。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
