Excel VBA質問箱 IV

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

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


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

【8585】ループ 学生です 03/10/24(金) 14:57 質問
【8586】Re:ループ INA 03/10/24(金) 15:33 回答
【8642】Re:ループ 学生です。 03/10/28(火) 11:11 質問
【8644】Re:ループ INA 03/10/28(火) 11:21 回答
【8647】Re:ループ 学生です。 03/10/28(火) 14:24 質問
【8650】Re:ループ INA 03/10/28(火) 14:36 回答
【8656】Re:ループ 学生です。 03/10/28(火) 14:48 お礼
【8660】Re:ループ INA 03/10/28(火) 14:56 回答

【8585】ループ
質問  学生です  - 03/10/24(金) 14:57 -

引用なし
パスワード
   Range("D2:G4").Copy Range("H2:K4")
                   ↑ ↑
 入力された回数分だけ、コピーを繰り返す処理が難しく上の矢印の部分を書き換えるだけで、良いと思うのですが、書き方を変えて実行しても構文エラーになってしまいます。この場合どういう風に書いたら良いのでしょうか?

【8586】Re:ループ
回答  INA  - 03/10/24(金) 15:33 -

引用なし
パスワード
   >入力された回数分だけ、コピーを繰り返す処理
何を入力?
どこに入力?

>コピーを繰り返す処理
繰り返す範囲などの条件や規則性は?


もっと具体的な例はありませんか?
漠然としているので、回答し難いです。
ループの種類もたくさんありますので・・(*_*)

【8642】Re:ループ
質問  学生です。  - 03/10/28(火) 11:11 -

引用なし
パスワード
   FormでTextBoxに数値を入力して、入力された回数分だけ指定されたセルの範囲を
コピーする処理です。 繰り返す規則性はRange("A1:C1").Copy Range("B1:C2"),
Range("A1:C1").Copy Range("C1:C3")というかたちで続けてコピーしたいです。

【8644】Re:ループ
回答  INA  - 03/10/28(火) 11:21 -

引用なし
パスワード
   ▼学生です。 さん:
>FormでTextBoxに数値を入力して、入力された回数分だけ指定されたセルの範囲を
>コピーする処理です。 繰り返す規則性はRange("A1:C1").Copy Range("B1:C2"),
>Range("A1:C1").Copy Range("C1:C3")というかたちで続けてコピーしたいです。

コピー元と貼り付け先の範囲が異なっているし、規則性がよく分かりません。

【8647】Re:ループ
質問  学生です。  - 03/10/28(火) 14:24 -

引用なし
パスワード
   Range("A1:C1").Copy Range("A2:C2")
Range("A1:C1").Copy Range("A3:C3")
Range("A1:C1").Copy Range("A4:C4")
といったように、コピー先を連続したセルに繰り返してコピーしたいのです。
コピー先のセルの指定をループを使用して、指定された回数分だけ実行するのを教えて頂きたいです。

【8650】Re:ループ
回答  INA  - 03/10/28(火) 14:36 -

引用なし
パスワード
   >といったように、コピー先を連続したセルに繰り返してコピーしたいのです。
>コピー先のセルの指定をループを使用して、
>指定された回数分だけ実行するのを教えて頂きたいです。

質問のたびに範囲が違いますが、前回の範囲指定は間違いですか?
前回の文章の続きといった内容で、返答するようお願い致します。

dim i as long
dim a as long

a=textbox1.value
 
for i = 1 to a
 Range("A1:C1").Copy Range("A" & i+1 & ":C" & i+1)
 もしくは
 Range("A1:C1").Copy Range(cells(i+1,1),cells(i+1,3))
  ↑この方が速い
next i

なお、a について数値判別などのエラートラップが必要です。

【8656】Re:ループ
お礼  学生です。  - 03/10/28(火) 14:48 -

引用なし
パスワード
   前回の範囲は、間違いです。すみませんでした。
参考書を買って調べても分からなかったので、教えて頂いて、とても嬉しいです。

【8660】Re:ループ
回答  INA  - 03/10/28(火) 14:56 -

引用なし
パスワード
   >参考書を買って調べても分からなかったので、教えて頂いて、とても嬉しいです。

このような RANGE の使い方は、ヘルプに載っていますよ。
参考書の前にヘルプに目を通すことをお薦めいたします。

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