Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
856 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【77915】選択セルをコピペ、印刷、コピーしたセルの１個下に移動のしかた ［名前なし］ 16/2/4(木) 22:07 質問[未読]
【77916】Re:選択セルをコピペ、印刷、コピーしたセ... マナ 16/2/5(金) 23:44 発言[未読]
【77915】選択セルをコピペ、印刷、コピーしたセル...
質問  ［名前なし］  - 16/2/4(木) 22:07 -
引用なし
パスワード
   こんばんは。
過去ログは拝見しましたが至らないところがあればご指摘ください。

やりたいことを説明しますと、「Aからcの行まで縦に入力された一覧表を一列ずつD1〜F1に貼り付け、印刷した後次のセルを選択」です。

selection.resize(,selection.rows.count+2).select
selection.copy
range(D1).select
activesheet.paste
（ここにクイック印刷のマクロ）
selection.offset(1,-3).select

まではなんとか出来たのですが、1列目➡２列目までのあと3,4…と続いてくれません。

お詳しい方いらっしゃいましたらどうぞご教授下さい。
よろしくおねがいします。
【77916】Re:選択セルをコピペ、印刷、コピーした...
発言  マナ  - 16/2/5(金) 23:44 -
引用なし
パスワード
   Sub test()
　　Dim i As Long
　　
　　For i = 0 To 5
　　　　Range("d1:f1").Value = Range("a1:c1").Offset(i).Value
　　　　Range("d1:f1").PrintPreview
　　Next
　　
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
856 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free