[[20141016154954]] 『差込印刷について』(もーり) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『差込印刷について』(もーり)

シート1にフォームをつくりA5セルにシート2のA5、B5セルにシート2のC5を入れてプリントして2まいめにはシート2のB6・C6とする差込み印刷をしたいのですが、MyPRINT.XLSのページが参照できないのでどなたか教えていただけませんでしょうか?

< 使用 Excel:Excel2010、使用 OS:Windows7 >


MyPrint.xlsは、INAさんが10年くらい前に作成したもののようですが、最近はお名前を見ないので、入手は難しいでしょうね。
新たにVBAで、必要な機能を持ったものを作成したほうが良いかと思います。
(ちなみに、ご要望を読んでも、何をどうしたいのかよく判らなかったです)
(???) 2014/10/16(木) 17:00

(???)様

質問が意味不明で申し訳ありません。

シート1            シート2

   A    B     C        A   B   C
1
2
3
4
5(ああ) (いい)         ああ  いい
6                うう  ええ
7                おお  かか
8                きき  くく

のようなシートがありシート1のA5・B5にシート2のA列とB列を順番に入れ込んで
プリントしたいのですがご教授願えませんでしょうか。
(もーり) 2014/10/16(木) 17:25


例えば、Sheet1のシートモジュールに以下を貼って実行。
(いきなり実行せず、まずはPrintOutの箇所をPrintPreviewにしておくほうが良いかも)

 Sub test()
    Dim wkSheet As Worksheet
    Dim i As Long

    Set wkSheet = Sheets("Sheet2")

    With wkSheet
        For i = 5 To .Cells(.Rows.Count, "A").End(xlUp).Row
            Range("A5") = .Cells(i, "A").Value
            Range("B5") = .Cells(i, "B").Value
            PrintOut
            DoEvents
        Next i
    End With
End Sub
(???) 2014/10/16(木) 17:36

(???)様

ありがとうございました。できました。
これからも宜しくお願いいたします。
(もーり) 2014/10/16(木) 17:54


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.