Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9899 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【24837】セルの範囲指定 hirop 05/5/11(水) 15:31 質問[未読]
【24840】Re:セルの範囲指定 Jaka 05/5/11(水) 15:52 回答[未読]
【24844】Re:セルの範囲指定 hirop 05/5/11(水) 16:27 質問[未読]
【24846】Re:セルの範囲指定 hirop 05/5/11(水) 16:44 質問[未読]
【24848】Re:セルの範囲指定 Jaka 05/5/11(水) 17:01 発言[未読]
【24852】Re:セルの範囲指定 hirop 05/5/11(水) 17:30 発言[未読]
【24855】Re:セルの範囲指定 hirop 05/5/11(水) 17:52 質問[未読]
【24889】Re:セルの範囲指定 Jaka 05/5/12(木) 16:21 回答[未読]
【24837】セルの範囲指定
質問  hirop  - 05/5/11(水) 15:31 -
引用なし
パスワード
   教えてください。
ActiveCellを基準として、390行、3列の範囲を指定しようとして下記コードを作成したのですが、範囲指定できませんでした。
どうしてですか?

　Dim aa As Range
　Set aa = ActiveCell.Resize(390, 3)
【24840】Re:セルの範囲指定
回答  Jaka  - 05/5/11(水) 15:52 -
引用なし
パスワード
   ▼hirop さん：
>教えてください。
>ActiveCellを基準として、390行、3列の範囲を指定しようとして下記コードを作成したのですが、範囲指定できませんでした。
>どうしてですか?

？？？。
これやって見てください。

　Dim aa As Range
　Range("C10").Select
　Set aa = ActiveCell.Resize(390, 3)
　aa.Select

また、これもやってみてください。
違いがわかりますか？
多分これの事だろうと思うけど...。

　Dim aa As Range
　Range("C10").Select
　Set aa = ActiveCell.Resize(390, 256)
　aa.Select
【24844】Re:セルの範囲指定
質問  hirop  - 05/5/11(水) 16:27 -
引用なし
パスワード
   回答ありがとうございました。
セルの範囲指定ができました。
【24846】Re:セルの範囲指定
質問  hirop  - 05/5/11(水) 16:44 -
引用なし
パスワード
   回答ありがとうございました。
ﾃﾞｰﾀ範囲の指定はできました。

指定した範囲に更にB10:B400という範囲の追加指定しグラフを書きたいのですが、私の作成したコードではエラーが発生してしまいます。
どうしてでしょうか?

ActiveCell.Offset(3, -1).Select
　
　Set Y軸 = ActiveCell.Resize(391, 3)
　　
　　Y軸.Select
　　
　　With Charts.Add
　　　.ChartType = xlXYScatterLinesNoMarkers
　　　.SetSourceData Source:=Sheets("sheet1").Range("B10:B400,Y軸"), PlotBy:=xlColumns
　　　.Location Where:=xlLocationAsNewSheet, Name:="sheet2"
　　End With
【24848】Re:セルの範囲指定
発言  Jaka  - 05/5/11(水) 17:01 -
引用なし
パスワード
   全く確認とって無いけど...。

>　　　.SetSourceData Source:=Sheets("sheet1").Range("B10:B400,Y軸"), PlotBy:=xlColumns

Range("B10:B400",Y軸) こういう事？

("B10:B400,Y軸")これじゃ
"B10:B400,Y軸"って文字ですね。
【24852】Re:セルの範囲指定
発言  hirop  - 05/5/11(水) 17:30 -
引用なし
パスワード
   回答ありがとうございました。
エラーはなくなったのですが･･･。
【24855】Re:セルの範囲指定
質問  hirop  - 05/5/11(水) 17:52 -
引用なし
パスワード
   下記コードにするとエラーはなくなるのですが、次のような不具合が発生してしいました。
例えば、B10:B400をX軸に指定し、O10:Q400の範囲をY軸に指定し、グラフを書きたいのですが、このコードではC10:Q400の間の全て範囲がY軸になってしまうのですが、
どうしてですか?

ActiveCell.Offset(3, -1).Select
　
　Set Y軸 = ActiveCell.Resize(391, 3)
　　
　　Y軸.Select
　　　　
　　With Charts.Add
　　　.ChartType = xlXYScatterLinesNoMarkers
　　　.SetSourceData Source:=Sheets("ﾃﾞｰﾀ").Range("B10:B400", Y軸), PlotBy:=xlColumns
　　　.Location Where:=xlLocationAsNewSheet, Name:="電流波形"
【24889】Re:セルの範囲指定
回答  Jaka  - 05/5/12(木) 16:21 -
引用なし
パスワード
   書き込んだつもりだったんですが...。

　　　　　↓この形にしたいんですね
Range("B10:B400,Y軸"),
　　↓
Range("B10:B400," & Y軸.Address),

"B10:B400,"　←こういうのは文字ですから、普通に文字をつなげて良いです。

こういうので確認できます。
Msgbox "B10:B400," & Y軸.Address
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9899 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free