質問: sheets("sheet4").range(cells(1, 4), cells(lastrow, 4)).value end if graph.chart.chartwizard source:=sheets("sheet4").range(graphrange).value, _ gallery:=xlline, format:=1, plotby:=xlcolumns, _ categorylabels:=1, serieslabels:=1, haslegend:=true end sub
回答: ふむ。。chartwizardでグラフを描かせてみるなら、だいたいこんなカンジでしょうか。 private sub commandbutton1_click() dim mygraph as chartobject dim myrange as string dim lastrow as long lastrow = worksheets("sheet4").range("a65536").end(xlup).row set mygraph = worksheets("sheet2").chartobjects.add(150, 27, 350, 200) if worksheets("sheet1").checkbox1 then myrange = myrange & ",$b$1:$b$" & lastrow if worksheets("sheet1").checkbox2 then myrange = myrange & ",$c$1:$c$" & lastrow if worksheets("sheet1").checkbox3 then myrange = myrange & ",$d$1:$d$" & lastrow if myrange = "" then msgbox "select checkbox" exit sub end if myrange = "$a$1:$a$" & lastrow & myrange mygraph.chart.chartwizard source:=worksheets("sheet4").range(myrange), _ gallery:=xlline, format:=1, plotby:=xlcolumns, _ categorylabels:=1, serieslabels:=1, haslegend:=true end sub #補足 >どのように訂正したらいいのか教えて頂けないでしょうか。 ●間違い チェックボックスの1,2,3がチェックされていると、最後のチェックボックスの該当列「だけ」がグラフの対象になります。それではチェックボックスを使う意味がありません ●間違い あなたのgraphrangeにvalueをセットしてもダメです ●間違い chartwizardのsource引数に与える内容が間違っています ●間違い sheets("sheet4").range(cells, cells)の書き振りはすべて間違っています 初心者さんが必ず一度は引っかかる間違いですが sheets("sheet4").range(sheets("sheet4").cells, sheets("sheet4").cells) のように丁寧にシートから修飾しないと間違えます