Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12677 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【9251】セルの指定 hiro 03/11/25(火) 22:53 質問
【9252】Re:セルの指定 ichinose 03/11/25(火) 23:34 回答
【9254】Re:セルの指定 hiro 03/11/26(水) 0:02 お礼
【9255】Re:セルの指定 hiro 03/11/26(水) 0:28 質問
【9257】Re:セルの指定 ichinose 03/11/26(水) 0:40 回答
【9258】Re:セルの指定 hiro 03/11/26(水) 0:56 お礼
【9251】セルの指定
質問  hiro  - 03/11/25(火) 22:53 -
引用なし
パスワード
   　　Dim i As Long

　　i = i + 5
　　Range("A1:B10").Select

ここからRange("A6:B15").Select
　　　　Range("A11:B21").Select

と変えていきたいのですが、
　　Range("A1 + i:B10 + i").Select

だとエラーになってしまいます。
どのように書いたらいいでしょうか？
【9252】Re:セルの指定
回答  ichinose  - 03/11/25(火) 23:34 -
引用なし
パスワード
   ▼hiro さん：
こんばんは。
>　　Dim i As Long
>
>　　i = i + 5
>　　Range("A1:B10").Select
>
>ここからRange("A6:B15").Select
>　　　　Range("A11:B21").Select
>
>と変えていきたいのですが、
>　　Range("A1 + i:B10 + i").Select
>
>だとエラーになってしまいます。
>どのように書いたらいいでしょうか？

iは、変数ですから""で囲ってしまうと文字の「i」になってしまいます。
'============================================
Sub test()
　 Dim i As Long
　 i = 1
　 Do While i <= 11
　　　Range("a" & i & ":b" & (i + 9)).Select
　　　MsgBox "確認して!!"
　　　i = i + 5
　　　Loop
End Sub

確認してみて下さい。
【9254】Re:セルの指定
お礼  hiro  - 03/11/26(水) 0:02 -
引用なし
パスワード
   ▼ichinose さん：

なるほど、おかげで無事に解決しました。
素早い回答をありがとうございました。
【9255】Re:セルの指定
質問  hiro  - 03/11/26(水) 0:28 -
引用なし
パスワード
   　　Rows("11:16").Select

に変数をつける場合、どうすればいいでしょう。

　　Rows((11 + i)":"(16 + i)).Select

と書いたらエラーってなってしまいました(-_-;)
【9257】Re:セルの指定
回答  ichinose  - 03/11/26(水) 0:40 -
引用なし
パスワード
   ▼hiro さん：
>　　Rows("11:16").Select
>
>に変数をつける場合、どうすればいいでしょう。
>
　　Rows((11 + i) & ":" & (16 + i)).Select
としてみて下さい。
【9258】Re:セルの指定
お礼  hiro  - 03/11/26(水) 0:56 -
引用なし
パスワード
   ▼ichinose さん：

あっ、& が必要なんだった。
ありがとうございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12677 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free