|
>別シート
のシート名が仮に "Sheet2" として、はめ込みたいデータが
入力されているシートをアクティブして、以下のマクロを試してみて下さい。
Sub MyData_Print()
Dim C As Range
On Error GoTo ELine
For Each C In Range("A1", Range("A65536").End(xlUp))
With Worksheets("Sheet2")
.Range("B4").Value = C.Value
.Range("C5").Value = C.Offset(, 1).Value
.Range("A10").Value = C.Offset(, 2).Value
.Range("A11").Value = C.Offset(, 3).Value
.PrintPreview '.PrintOut Copies:=1
End With
Next
ELine:
If Err.Number <> 0 Then MsgBox Err.Description
End Sub
* テスト時はプレビューするだけにしています。
本番では .PrintPreview ' までを削除し、.PrintOut Copies:=1
を、コメント解除して実行して下さい。
|
|