過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     497
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼件数ごとに連続コピー  ばっちぃ 02/12/27(金) 15:47
　　　┗Re:件数ごとに連続コピー  ハマゾウ 02/12/30(月) 0:45
　　　　　　┗Re:件数ごとに連続コピー  ばっちぃ 03/1/4(土) 13:28

　───────────────────────────────────────
　■題名 ： 件数ごとに連続コピー
　■名前 ： ばっちぃ
　■日付 ： 02/12/27(金) 15:47
　-------------------------------------------------------------------------
   
1から50までの連続データを個別に指定した数ずつコピーをしたいのですが、

連続コピーで一つずつではなく、ＶＢＡなどで一括処理できたらなと思って投稿してみました。



例：

1→307個コピー

2→39個コピー

3→55個コピー

・

・

・



出来れば列に連続したデータとしてコピーしたいのです。

どなたかお分かりになる方、教えてください、よろしくお願いします。


　───────────────────────────────────────
　■題名 ： Re:件数ごとに連続コピー
　■名前 ： ハマゾウ <hama@mb.town.yatsuo.toyama.jp>
　■日付 ： 02/12/30(月) 0:45
　■Ｗｅｂ ： http://www.cty8.com/nsha3921/Home/index.htm
　-------------------------------------------------------------------------
   
▼ばっちぃ さん：

アクティブセルから下方向に1〜50の数字を指定回数貼り付けるコードです。

ご希望された内容でしょうか？



Sub test()

　　Dim i As Long

　　Dim j As Long

　　Dim k(49, 0) As Integer

　　

　　For j = 0 To 49

　　　　k(j, 0) = j + 1

　　Next j

　　

　　i = InputBox("1〜50の数字を何回コピーしますか？", , 1)

　　For j = 1 To i

　　　　With ActiveCell

　　　　　　Range(Cells(.Row + j * 50 - 50, .Column), Cells(.Row + j * 50 - 1, .Column)) = k()

　　　　End With

　　Next j

End Sub


　───────────────────────────────────────
　■題名 ： Re:件数ごとに連続コピー
　■名前 ： ばっちぃ
　■日付 ： 03/1/4(土) 13:28
　-------------------------------------------------------------------------
   
ハマゾウさん、ありがとうございました。

やってみたらうまく出来ました。

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     497