|
▼Asaki さん:
>こんにちは。
>
>途中に
>Count1 = Count1 + 1
>の処理も必要でしょう。
>
>>Range("A:A,C:C")
> ↓
>Union(Columns(1), Columns(3 + Count1))
>ではどうでしょうか?
Asakiさん、こんばんわ。
ご返信ありがとうございます!
試してみました所、たぶん・・・もう少しだとは思うのですが、
今度は「オブジェクトはこのプロパティまたはメソッドをサポートしていません。」
と言う、エラーが出てしまいます・・・
何か特別な設定をする必要があるのでしょうか???
このようなプログラムまでは組めたのですが、何かおかしいですかね・・・
たびたび、申し訳ないですが、ご教授お願いします。
Dim Count1 As Integer
Private Sub CommandButton1_Click()
Count1 = Count1 + 1
ActiveSheet.ChartObjects("グラフ 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("クロス集計").Union( _
Columns(1), Columns(3 + Count1)), PlotBy:=xlColumns
End Sub
|
|