Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


10669 / 13644 ツリー ←次へ | 前へ→

【20524】範囲選択について まるしぇ 04/12/11(土) 5:19 質問[未読]
【20525】Re:範囲選択について かみちゃん 04/12/11(土) 9:50 回答[未読]
【20527】Re:範囲選択について まるしぇ 04/12/11(土) 14:22 質問[未読]
【20528】Re:範囲選択について かみちゃん 04/12/11(土) 14:59 回答[未読]
【20533】Re:範囲選択について まるしぇ 04/12/11(土) 16:38 お礼[未読]

【20524】範囲選択について
質問  まるしぇ  - 04/12/11(土) 5:19 -

引用なし
パスワード
   おはようございます。
マクロの実行でグラフを自動作成しようとしています。
そのときデータによって、グラフの範囲選択が変わってきます。
範囲選択が例えば【Range("A1:B6")】や【Range("B2:C8")】などになります。

なのでグラフ化したいデータの範囲選択をしてからコマンドボタンを押すことでグラフを作成したいのですがどのように範囲選択のコードを書いたらよいでしょうか?

わかる方がいらしたら是非よろしくお願いしますm(_ _)m

【20525】Re:範囲選択について
回答  かみちゃん  - 04/12/11(土) 9:50 -

引用なし
パスワード
   こんちには。かみちゃん です。

>なのでグラフ化したいデータの範囲選択をしてからコマンドボタンを押すことでグラフを作成したいのですがどのように範囲選択のコードを書いたらよいでしょうか?

InputBox メソッドで引数Typeに「8」を指定します。
具体的には、次のようなコードになります。
詳しくは、ヘルプでご確認ください。

Option Explicit

Sub Macro1()
 Dim myR As Range
 On Error Resume Next
 Set myR = Application.InputBox("セル範囲をドラッグしてください", Type:=8)
 If Err.Number <> 0 Then Exit Sub
 On Error GoTo 0
 '〜 以下省略〜

【20527】Re:範囲選択について
質問  まるしぇ  - 04/12/11(土) 14:22 -

引用なし
パスワード
   かみちゃんさん、こんにちは。お答えありがとうございます。
それで質問なのですが、

>Option Explicit
>
>Sub Macro1()
> Dim myR As Range
> On Error Resume Next
> Set myR = Application.InputBox("セル範囲をドラッグしてください", Type:=8)
> If Err.Number <> 0 Then Exit Sub
> On Error GoTo 0
> '〜 以下省略〜

ということですが

Sheets("Sheet1").Select
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData _
          Source:=Sheets("Sheet1").Range("B3:B6"),), _
          PlotBy:=xlColumns

というふうにグラフの作成をかいているのですが【Range("B3:B6")】というところを変えたら範囲選択した範囲を設定できるんですか?
かなり初心者なのでわけわからないこと言っていたらごめんなさい。

【20528】Re:範囲選択について
回答  かみちゃん  - 04/12/11(土) 14:59 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>          Source:=Sheets("Sheet1").Range("B3:B6"),), _

          Source:=myR,), _

とすれば、できませんか?
動作確認していませんが・・・

【20533】Re:範囲選択について
お礼  まるしぇ  - 04/12/11(土) 16:38 -

引用なし
パスワード
   かみちゃんさんできました!!
ありがとうです。

10669 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free