Excel VBA質問箱 IV

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

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


23651 / 76732 ←次へ | 前へ→

【58444】Re:For文で集計貼付
発言  かみちゃん  - 08/10/26(日) 14:09 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>とりあえずは、
>>For i = 3 To 100
>> Worksheets("Sheet1").Activate
>> Cells(1, 1) = i
>>としてみてください。
>マクロは正常終了しますが、sheet1のE3,I3をコピーして、sheet3に貼り付けを繰り返しているだけのようです。
>実現したいこと(3行処理→4行処理・・・100行処理)はできておりません。

そういう説明がないのと、そういうコードにしているからだと思います。

>実現したいこと(3行処理→4行処理・・・100行処理)

本当は、何がしたいのか、今ひとつよくわからないのですが、

>   Range("E3,I3").Select '☆

の部分は、

 Intersect(Rows(i), Range("E3,I3").EntireColumn).Select

とすればいいかと思います。

ただし、

>   Sheets("sheet3").Select
>   Range("G5").Select

というコードにしている以上、
Sheet3のG5セルに、どんどん上書きで貼り付けられると思うのですが、いいのでしょうか?
もしかして、

   Range("G" & i + 2).Select

としていのでしょうか?

> '  MsgBox Cells(1, 1).Address(, , , True) '☆ 
> ここを有効にすると、Microsoft Excelのメッセージがポップアップしてきて、 [sheet1]sheet3!$A$1と表示され、タスクを終了する必要になります。

タスクを終了という意味がわかりませんが、
現在どのブックのどのシートのどのセルを参照しているのかを確認していただくための
ものです。

状況がきちんと理解できれば、不要となります。

1 hits

【58431】For文で集計貼付 初心者 08/10/26(日) 6:36 質問
【58432】Re:For文で集計貼付 かみちゃん 08/10/26(日) 8:00 発言
【58434】Re:For文で集計貼付 初心者 08/10/26(日) 10:26 質問
【58435】Re:For文で集計貼付 かみちゃん 08/10/26(日) 10:33 発言
【58443】Re:For文で集計貼付 初心者 08/10/26(日) 13:59 質問
【58444】Re:For文で集計貼付 かみちゃん 08/10/26(日) 14:09 発言
【58445】Re:For文で集計貼付 初心者 08/10/26(日) 14:36 質問
【58448】Re:For文で集計貼付 かみちゃん 08/10/26(日) 16:04 発言
【58451】Re:For文で集計貼付 初心者 08/10/26(日) 18:51 質問
【58452】Re:For文で集計貼付 かみちゃん 08/10/26(日) 19:13 発言
【58453】Re:For文で集計貼付 初心者 08/10/26(日) 19:56 質問
【58454】Re:For文で集計貼付 かみちゃん 08/10/26(日) 20:32 発言
【58455】Re:For文で集計貼付 初心者 08/10/26(日) 21:58 お礼

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