Excel VBA質問箱 IV

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

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


35144 / 76732 ←次へ | 前へ→

【46790】Re:インプットボックス
質問  210  - 07/2/15(木) 13:56 -

引用なし
パスワード
   すいません。。。コードは以下の通りです

Sub Program1()

Dim ThisSheet_Name As String
Dim a As Long
 ThisSheet_Name = ActiveSheet.Name 'アクティブシート名を取得
  With Charts.Add '空のグラフをに作成する
   .Location Where:=xlLocationAsObject, Name:=ThisSheet_Name
  End With
For a = 1 To 10
  ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count).Activate '常に最新のグラフを選択する
  ActiveChart.ChartType = xlLine
  ActiveChart.SeriesCollection.NewSeries
With ActiveChart.SeriesCollection(a)
 'X軸を選択
 Dim xCell As Range
 Set xCell = Application.InputBox(Prompt:="X軸DATAの先頭を選択してください。", Default:="A1", Type:=8)
 xCell.Select
 b = xCell.Address
 c = Range(b).End(xlDown).Address(False, False)
'Y軸を選択
 Dim yCell As Range
 Set yCell = Application.InputBox(Prompt:="y軸DATAの先頭を選択してください。", Default:="A1", Type:=8)
 yCell.Select
 d = yCell.Address
 e = Range(d).End(xlDown).Address(False, False)
'要素名を選択
 Dim nameCell As Range
 Set nameCell = Application.InputBox(Prompt:="y軸項目名を選択してください。", Default:="A1", Type:=8)
 nameCell.Select
 f = nameCell.Address
'グラフを書く
  .ChartType = xlLine
  .XValues = Range(b, c)
  .Values = Range(d, e)
  .Name = Range(f)
 End With
'追加
 n% = MsgBox("波形を追加しますか?", vbYesNo + vbQuestion, "")
 If n% = vbNo Then End
Next a

End Sub

これのData選択時、シートをまたがって選択できるようにしたいと思っております。
宜しくお願いします。
1 hits

【46769】インプットボックス 210 07/2/14(水) 18:59 質問
【46770】Re:インプットボックス とおりすがり 07/2/14(水) 19:03 発言
【46790】Re:インプットボックス 210 07/2/15(木) 13:56 質問
【46795】Re:インプットボックス りん 07/2/15(木) 15:27 回答
【46798】Re:インプットボックス 210 07/2/15(木) 16:09 お礼
【46800】Re:インプットボックス りん 07/2/15(木) 16:18 発言
【46805】Re:インプットボックス 210 07/2/15(木) 18:07 質問
【46806】Re:インプットボックス りん 07/2/15(木) 18:52 発言
【46820】Re:インプットボックス りん 07/2/16(金) 11:45 回答
【46854】Re:インプットボックス 210 07/2/19(月) 8:46 お礼
【46856】Re:インプットボックス りん 07/2/19(月) 9:32 発言
【46862】Re:インプットボックス 210 07/2/19(月) 11:02 お礼
【46796】Re:インプットボックス Kein 07/2/15(木) 15:27 発言
【46799】Re:インプットボックス 210 07/2/15(木) 16:11 お礼

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