Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11109 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【17922】選択したデーターを１０行ずつコーピーし... hisao 04/9/10(金) 14:12 質問[未読]
【17924】Re:選択したデーターを１０行ずつコーピー... IROC 04/9/10(金) 14:24 回答[未読]
【17929】Re:選択したデーターを１０行ずつコーピー... hisao 04/9/10(金) 14:49 発言[未読]
【17928】Re:選択したデーターを１０行ずつコーピー... Jaka 04/9/10(金) 14:49 回答[未読]
【17932】Re:選択したデーターを１０行ずつコーピー... hisao 04/9/10(金) 15:44 発言[未読]
【17934】Re:選択したデーターを１０行ずつコーピー... IROC 04/9/10(金) 16:05 回答[未読]
【17935】Re:選択したデーターを１０行ずつコーピー... Jaka 04/9/10(金) 16:12 回答[未読]
【18060】Re:選択したデーターを１０行ずつコーピー... hisao 04/9/14(火) 9:44 お礼[未読]
【17922】選択したデーターを１０行ずつコーピーし...
質問  hisao E-MAIL  - 04/9/10(金) 14:12 -
引用なし
パスワード
   又また助けて下さい。
選択したデーターを上から１０行ずつコピーしたいのですが
m = WorksheetFunction.RoundUp((s - 1) / 10, 0)
p = 1
Do Until p > m
Range(Cells(10 * p - 8, 2), Cells(10 * p + 1, 3)).Select
Selection.SpecialCells(xlCellTypeVisible).Copy
Sheets("A").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
　　　　False, Transpose:=False
P=P+1
Loop
とやったのですがデーターが例えば２０目から表示されていますから当然拾えませんね。
表示された行の１行目から１０行目まではどう書けば宜しいのでしょうか？
宜しくお願いします。
【17924】Re:選択したデーターを１０行ずつコーピ...
回答  IROC  - 04/9/10(金) 14:24 -
引用なし
パスワード
   どのようなデータがあって、なにをしたいのか教えて頂けますか？
【17928】Re:選択したデーターを１０行ずつコーピ...
回答  Jaka  - 04/9/10(金) 14:49 -
引用なし
パスワード
   こんにちは。
こんな感じで良いと思いますけど..。

Range("A1").Resize(10).EntireRow.Select
【17929】Re:選択したデーターを１０行ずつコーピ...
発言  hisao E-MAIL  - 04/9/10(金) 14:49 -
引用なし
パスワード
   IROCさん
早速の返信有り難う御座います。
選択されたリストから転記して注文書を発行するのですが、
注文書の行数が１０行に限定されていますので、
リストアップされた表の上から１０行ずつ注文書にコピー＆ペーストして
プリントする操作を繰り返したいのです。

▼IROC さん：
>どのようなデータがあって、なにをしたいのか教えて頂けますか？
【17932】Re:選択したデーターを１０行ずつコーピ...
発言  hisao E-MAIL  - 04/9/10(金) 15:44 -
引用なし
パスワード
   有り難う御座います。
例えば１３行目から３８行目までリストに選択されていたとします。
１３行目から２２行目まで、次に２３行目から３２行目まで、次に３３行目から３８行目まで選んでコピーしたいのですが
私の解釈違いかも知れませんが
jakaさんの構文では１行目から１０行目までしか（見た目には項目行のみ）selectできず、コピー＆ペーストは項目行のみで、私のややこしい構文と結果的に同じになりました。一旦選択された物(visible)を別のシートにコピーしてから１０行ずつcopy&pasteするしか手が無いのでしょうか。すみません、今少しお教え下さい。

▼Jaka さん：
>こんにちは。
>こんな感じで良いと思いますけど..。
>
>Range("A1").Resize(10).EntireRow.Select
【17934】Re:選択したデーターを１０行ずつコーピ...
回答  IROC  - 04/9/10(金) 16:05 -
引用なし
パスワード
   ダミーシートにでも抽出範囲をすべてコピーして
for 〜 Next Step 10
で処理しては如何でしょうか？
【17935】Re:選択したデーターを１０行ずつコーピ...
回答  Jaka  - 04/9/10(金) 16:12 -
引用なし
パスワード
   エラー処理してません。

Sub dmkm()
　　Dim ftc As Range
　　ft = Range(Selection.Address).Row
　　et = Selection.Rows(Selection.Rows.Count).Row
　　vv = 10
　　ss = Int((et - ft) \ vv)
　　Set ftc = Selection.Cells(1)
　　For i = 1 To ss
　　　　ftc.Resize(vv).EntireRow.Select
　　　　Set ftc = ftc.Offset(vv)
　　Next
End Sub
【18060】Re:選択したデーターを１０行ずつコーピ...
お礼  hisao E-MAIL  - 04/9/14(火) 9:44 -
引用なし
パスワード
   jakaさん、IROCさん。お礼が遅れてすみません。
バッチリです。有り難う御座いました。

▼Jaka さん：
>エラー処理してません。
>
>Sub dmkm()
>　　Dim ftc As Range
>　　ft = Range(Selection.Address).Row
>　　et = Selection.Rows(Selection.Rows.Count).Row
>　　vv = 10
>　　ss = Int((et - ft) \ vv)
>　　Set ftc = Selection.Cells(1)
>　　For i = 1 To ss
>　　　　ftc.Resize(vv).EntireRow.Select
>　　　　Set ftc = ftc.Offset(vv)
>　　Next
>End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11109 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free