Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

35150 / 76738

←次へ　｜　前へ→


	【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)
　'Ｘ軸を選択
　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)
'Ｙ軸を選択
　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選択時、シートをまたがって選択できるようにしたいと思っております。
宜しくお願いします。

0 hits

▼

【46769】インプットボックス 210 07/2/14(水) 18:59