Excel VBA質問箱 IV

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

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


12230 / 13646 ツリー ←次へ | 前へ→

【11609】相対範囲を変数で指定したい みさっぴ 04/3/12(金) 11:37 質問
【11611】Re:相対範囲を変数で指定したい こうちゃん 04/3/12(金) 12:13 回答
【11619】Re:相対範囲を変数で指定したい みさっぴ 04/3/12(金) 13:38 お礼

【11609】相対範囲を変数で指定したい
質問  みさっぴ  - 04/3/12(金) 11:37 -

引用なし
パスワード
   お世話になっております。
次のような表があるとします。

  A  B 
1  54  754
2  786 87
3  976 654
4  232 987
5  87  765
6  987 32
7  8765 98
8  52  76
9  98  32


これを使ってグラフを作りたいのですが、
いつも最終セルから4個とか6個とかの範囲で
グラフを作ります。
使うセルの数はまちまちなので、変数sとかを使って
範囲指定をしたいのです。

Range("C65536").Select
  Selection.End(xlUp).Select
  Selection.Offset("&s&", 0).Select

とりあえず作ってみたのでこのようなものですが、
エラーが出てしまいます。
どのようにすればいいのか教えてください。

【11611】Re:相対範囲を変数で指定したい
回答  こうちゃん E-MAIL  - 04/3/12(金) 12:13 -

引用なし
パスワード
   みさっぴさん、こんにちは

>Range("C65536").Select
>  Selection.End(xlUp).Select
>  Selection.Offset("&s&", 0).Select
>
>とりあえず作ってみたのでこのようなものですが、
>エラーが出てしまいます。
>どのようにすればいいのか教えてください。

「&」や「"」の使い方がちがいますね。
変数は直接数字の変わりに使えます・
こんな感じ・・

Sub test()
  
  Dim s As Long
  s = 1
  Range("C65536").End(xlUp).Offset(s, 1).Select

End Sub

#ついでにSelectやActivateは最低限にしたほうが処理が早いです。

【11619】Re:相対範囲を変数で指定したい
お礼  みさっぴ  - 04/3/12(金) 13:38 -

引用なし
パスワード
   ▼こうちゃん さん:
早速ありがとうございます。
変数はそのままでいいのですね。
やってみたらすぐできました。
ありがとうございました!

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