OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

Excel2000:マクロのセル範囲の変更方法について

  • すぐに回答を!
  • 質問No.245995
  • 閲覧数279
  • ありがとう数2
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 100% (1/1)

マクロの自動記録でセルを範囲指定しグラフを作成したので、VisualBasicEditorで開くと、実行するセル範囲が固定されています。範囲を固定しないでマクロを実行したときに次に選択されている範囲に対して実行できるようにする方法を教えてください。VBA初心者になります。どうぞよろしくお願いいたします。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

質問の意味を捉えていればいいんですが・・・チョッと不安です。

Sheet1のA1:B10で、A列を横軸、B列を縦軸、1行目を項目名として棒グラフの作成を記録しました。
グラフ自体は単なる例です。

'マクロの記録
Sub Macro1()
  Charts.Add
  ActiveChart.ChartType = xlColumnClustered
  ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B10"), PlotBy:=xlColumns
  ActiveChart.SeriesCollection(1).Delete
  ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
  With ActiveChart
    .HasTitle = True
    .ChartTitle.Characters.Text = "Y"
    .Axes(xlCategory, xlPrimary).HasTitle = False
    .Axes(xlValue, xlPrimary).HasTitle = False
  End With
End Sub


次のように変更してみました。
グラフを書く範囲を選択してこのマクロを実行します。
例えば、Sheet1のA1:B5にするとこの範囲でグラフを書きます。

'選択範囲のグラフを作成するよう変更
Sub chgMacro1()
  Dim grpAdr As String     '<追加>選択範囲のアドレス
  grpAdr = Selection.Address  '<追加>Selectionが選択したセル範囲になる

  Charts.Add
  ActiveChart.ChartType = xlColumnClustered
  '<次の行を変更>(Rangeに座標を代入)
  ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(grpAdr), PlotBy:=xlColumns
  ActiveChart.SeriesCollection(1).Delete
  ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
  With ActiveChart
    .HasTitle = True
    .ChartTitle.Characters.Text = "Y"
    .Axes(xlCategory, xlPrimary).HasTitle = False
    .Axes(xlValue, xlPrimary).HasTitle = False
  End With
End Sub
お礼コメント
helphelphelp

お礼率 100% (1/1)

nishi6さん、ありがとうございました!
まさに希望していた回答そのものでした。
<追加>部分の記述と、SetSourceData Source:=Sheets("Sheet1").Range
の後の(grpAdr)を書き変えて成功しました。
本当にありがとうございました。
投稿日時 - 2002-04-03 14:53:04
-PR-
-PR-
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ