Excel VBA質問箱 IV

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

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


12675 / 13644 ツリー ←次へ | 前へ→

【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 さん:

あっ、& が必要なんだった。
ありがとうございます。

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