|
Asaki さん
おはようございます!
夜通し悩んだすえ(えぇ!)できました!
この、下のプログラムを組んであげたら、うまくいきました!
ありがとうございます!
>Set c = Union(Sheets("クロス集計").Columns(1), Sheets("クロス集計").Columns(3 + Count1))
>
>で、今現在、どのようなプログラムになっていますか?
>一度、全体をupしていただけませんか?
とりあえず、最終プログラムです。↓
あとはif文か何かを組んであげて、参照列が3以下の場合は戻らない様にする、
設定を組んでみます!
またわからない事があったらご教授ください!
ありがとうございました!
Dim Count1 As Integer
Dim C As Range
'進むボタン設定
Private Sub CommandButton1_Click()
Count1 = Count1 + 1
ActiveSheet.ChartObjects("グラフ 1").Activate
ActiveChart.ChartArea.Select
Set C = Union(Sheets("クロス集計").Columns(1), Sheets("クロス集計").Columns(3 + Count1))
ActiveChart.SetSourceData Source:=C, PlotBy:=xlColumns
End Sub
'戻るボタン設定
Private Sub CommandButton2_Click()
Count1 = Count1 - 1
ActiveSheet.ChartObjects("グラフ 1").Activate
ActiveChart.ChartArea.Select
Set C = Union(Sheets("クロス集計").Columns(1), Sheets("クロス集計").Columns(3 + Count1))
ActiveChart.SetSourceData Source:=C, PlotBy:=xlColumns
End Sub
|
|