Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12790 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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　の使い方は、ヘルプに載っていますよ。
参考書の前にヘルプに目を通すことをお薦めいたします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12790 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free