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個とかの範囲で
グラフを作ります。
使うセルの数はまちまちなので、変数ｓとかを使って
範囲指定をしたいのです。

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