[[20050629161738]]　『1ページに印刷する[簡単な]方法ってありますか？』（スヌ）　ページの最後に飛ぶ

『1ページに印刷する[簡単な]方法ってありますか？』（スヌ）

シート1に1000行ぐらいデータが在ります。ただ、項目は3列しか使っていません。
どうしても印刷をしなければなならいのですか・・・
1ページに何列も印刷する事は可能なのでしょうか？
おしえてください

イメージは

001　A 100

002 A 020

003　B 055

↓

0500 C 010

↓

1000　S　870

こんな風に入力されているデータを

001　A 100　　　0500 C 010　　　1000　S 870

002 A 020　　　↓　　　　　　　　　　 ↓

003　B 055

1ページに可能な限り印刷したいのですが・・・

（うまく表現できなくてすみません）
宜しくお願いします。

 データがSheet1のA列～C列にあるとして、別のシートのA1セルに、
 =OFFSET(Sheet1!$A$1,MOD(ROW()-1,50)+(ROUNDUP(COLUMN()/3,0)-1)*50,MOD(COLUMN()-1,3)) と入力。
 後は、下は50行目まで、右はBH列までフィルコピーしてみて下さい。
（純丸）(o^-')b

できました！ありがとうございます。
Ｂセル、Ｃセルもコピーしただけでできました！

今日は、式の解読はできませんでした＞＜。（←涙）ので、
このまま、コピーして作成いたしました。
明日から、がんばって！！解読してみます。
本当にありがとうございました。ｍ（＿＿）ｍ　　（スヌ）

 考えてる間に解決しちゃいましたね（￣ー￣；A アセアセ･･･

 以前からたまにある質問なので、マクロで作ってみました。
　
Sub Test()
Const 列数 As Long = 3                              '何列のデータか
Const 横並べ数 As Long = 4                          '横に何列並べるか
Const 間隔 As Long = 1                              '何列の空きを作るか
　
Application.ScreenUpdating = False
Set Sh1 = Worksheets("Sheet1")                      '元のシート
    Sheets("Sheet1").Copy After:=Sheets(1)
Set Sh2 = ActiveSheet                               'コピー先のシート
　
With Sh2
    My行 = .HPageBreaks(1).Location.Row - 1  '1ページに収まる行数
    PageCnt = .HPageBreaks.Count
    AAA = Int(PageCnt / 横並べ数)
    For i = 1 To Int(PageCnt / 横並べ数) + 1
        For ii = 1 To 横並べ数 - 1
            Range(.Cells(My行 * (ii + i - 1) + 1, 1), .Cells(My行 * (ii + i), 列数)).Cut _
            Destination:=.Cells(1 + My行 * (i - 1), (列数 + 間隔) * (ii) + 1)
        Next ii
        .Rows(1 + My行 * (i) & ":" & My行 * (ii + i - 1)).Delete Shift:=xlUp
    Next i
    Application.Goto .Range("A1")
End With
Application.ScreenUpdating = True
End Sub

 （川野鮎太郎）少し違ってました。修正18:44

コメント返信：

[ 一覧(最新更新順) ]

[[20050629161738]] 『1ページに印刷する[簡単な]方法ってありますか？』（スヌ） ページの最後に飛ぶ

[[20050629161738]]　『1ページに印刷する[簡単な]方法ってありますか？』（スヌ）　ページの最後に飛ぶ