[[20050314194017]]　『マクロ？ラベル関係』（みゅー）　ページの最後に飛ぶ

『マクロ？ラベル関係』（みゅー）
　すみません。適切な内容の要約が見つからないので、このような題名をつけさせてもらってます。以下のような事を行いたいのですが、お力をお貸し下さい。

　シート１のA列に上から順に２００人程の名前が入っています。
シート２にラベルがあり、その中の例えばA1にシート１に入っている名前を入れて
印刷したいのです。シート２の画面で印刷処理を行うと２００枚印刷されて、それぞれのA1に別の名前が入っているような形で印刷したいのです。

　説明が上手く出来ずに申し訳ありませんが、上記の内容についてアドバイス頂ければ
幸いです。よろしくお願いします。

　エクセルのバージョンは２００３、ＯＳはＸＰです。

 こんな感じでしょうか。
Sub Test()
Set Sh1 = Worksheets("Sheet1")
Set Sh2 = Worksheets("Sheet2")
　
    For Each C In Range(Sh1.Range("A1"), Sh1.Range("A65536").End(xlUp))
        Sh2.Range("A1").Value = C.Value
        Sh2.PrintOut From:=1, To:=1, Copies:=1
    Next C
End Sub

 （川野鮎太郎）

 こちらに数式で処理するものもありますので、参考までに。。↓　　　　　　　　　　　　　(LOOKUP)
[[20050118103137]] 『シールをつくりたい』(合同) 
[[20041023101525]] 『案内者の名前だけ変える方法』(まなみ)

コメント返信：

[ 一覧(最新更新順) ]

[[20050314194017]] 『マクロ？ラベル関係』（みゅー） ページの最後に飛ぶ

[[20050314194017]]　『マクロ？ラベル関係』（みゅー）　ページの最後に飛ぶ