hoyeh

帖子: 6
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: WINDOWS XP
軟體版本: Office 2003
閱讀權限: 10
註冊時間: 2010-8-18
最後登錄: 2011-3-5

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-8-23 23:45 | 只看該作者

[發問] 多筆資料列印問題

本帖最後由 hoyeh 於 2010-8-24 22:40 編輯

data.rar (15.64 KB)

想請教各位：
附件裡，
明細帳表格是依據明細的資料做成，如果一個品名一張表
假設我有５０個品名要列印５０張表（表格下方為品名的明細資料）EXCEL可以列印的出來嗎？

Ｏ明細表格是依據產銷表格製作，產銷表每頁有４０筆資料
假設我有５００筆資料，EXCEL可以將５００筆資料依產銷表格分成４０筆列印嗎？

因為資料為excel，不曉得是否用excel還是程式或其他方式才能跑出結果，
以上問題，麻煩各位解答，謝謝。^^

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 277
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2010-8-24 00:40 | 只看該作者

回復 1# hoyeh

Q1. 明細帳表格是依據明細的資料做成，如果一個品名一張表
假設我有５０個品名要列印５０張表（表格下方為品名的明細資料）EXCEL可以列印的出來嗎？
A1.此種列印應該要用VBA輔助方可完全自動列印，若以公視必須每一次輸入品名，然後依照品名寫公式帶入表格

Q2.Ｏ明細表格是依據產銷表格製作，產銷表每頁有４０筆資料
假設我有５００筆資料，EXCEL可以將５００筆資料依產銷表格分成４０筆列印嗎？
A2.此列印較簡單，複製所有資料到Ｏ明細表格，然後設定標題列列印即可

學海無涯_不恥下問

TOP

asimov

中學生 Rank: 2

帖子: 130
主題: 4
精華: 0
積分: 162
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2010-5-7
最後登錄: 2011-7-16

3^#

發表於 2010-8-24 01:08 | 只看該作者

回復 1# hoyeh

明細帳表格可以用樞紐分析表完成
只是表格需要作些美化

機器人三大定律-保護人類、服從命令、保護自己
我的三大定律-生命、生存、生活

TOP

hoyeh

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: WINDOWS XP
軟體版本: Office 2003
閱讀權限: 10
註冊時間: 2010-8-18
最後登錄: 2011-3-5

4^#

發表於 2010-8-24 22:30 | 只看該作者

本帖最後由 hoyeh 於 2010-8-24 22:31 編輯

Q1. 明細帳表格是依據明細的資料做成，如果一個品名一張表
假設我有５０個品名要列印５０張表（表格下方為品名的明細資料）EXCEL可以列印的出來嗎？
A1.此種列印應該要用VBA輔助方可完全自動列印，若以公視必須每一次輸入品名，然後依照品名寫公式帶入表格

--->要使用到VBA輔助，這個有點超出自己的理解範圍了^^bb

Q2.Ｏ明細表格是依據產銷表格製作，產銷表每頁有４０筆資料
假設我有５００筆資料，EXCEL可以將５００筆資料依產銷表格分成４０筆列印嗎？
A2.此列印較簡單，複製所有資料到Ｏ明細表格，然後設定標題列列印即可

--->感謝解答，我怎麼沒想到還有這個方法^^，但如果下方若要有合計與蓋章欄位，這個方法就應該不行了是嗎？

對excel處於半生不熟的狀態，還是非常感謝您的解答，謝謝。

TOP

hoyeh

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: WINDOWS XP
軟體版本: Office 2003
閱讀權限: 10
註冊時間: 2010-8-18
最後登錄: 2011-3-5

5^#

發表於 2010-8-24 22:37 | 只看該作者

本帖最後由 hoyeh 於 2010-8-24 22:38 編輯

明細帳表格可以用樞紐分析表完成
只是表格需要作些美化
asimov 發表於 2010-8-24 01:08

原來還有樞紐分析可以研究，剛好對樞紐分析這塊比較弱Orz
要上網看一下功能教學^^bb，不過至少還有個方向還有可能完成
非常感謝您的解答，有個方向可以思考，謝謝。

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 277
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2010-8-25 00:46 | 只看該作者

回復 4# hoyeh

Sub 明細()
Dim Ar As Variant, Ay()
Set dic = CreateObject("Scripting.Dictionary")
With Sheet1
For Each a In .Range(.[D2], .[D65536].End(xlUp))
If IsEmpty(dic(a.Value)) Then
Ar = _
Array(Mid(a.Offset(, -1), 3, 2), Mid(a.Offset(, -1), 5, 2), "", "", "", "", "", a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 3).Value)
ReDim Preserve Ay(0): Ay(0) = Ar
dic(a.Value) = Ay
Else
Ay = dic(a.Value)
s = UBound(Ay) + 1
ReDim Preserve Ay(s)
Ay(s) = _
Array(Mid(a.Offset(, -1), 3, 2), Mid(a.Offset(, -1), 5, 2), "", "", "", "", "", a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 3).Value)
dic(a.Value) = Ay
End If
Next
End With
With Sheet2
For Each ky In dic.keys
.[A7:J52] = ""
.[C3] = ky
s = UBound(dic(ky)) + 1
If s > 46 Then
i = 0
Do Until i = s
r = 0: [A7:J52] = ""
Do Until r = 46 Or i = s
.[A7].Offset(r, 0).Resize(, 10) = dic(ky)(i)
r = r + 1
i = i + 1
Loop
.PrintPreview
Loop
Else
.[A7].Resize(s, 10) = Application.Transpose(Application.Transpose(dic(ky)))
.PrintPreview
End If
Next
End With
End Sub
Sub 產銷()
With Sheet3
i = 3
Do Until i = .[B65536].End(xlUp).Row
r = 0: Sheet4.[A3:J41] = ""
Do Until r = 39 Or i = .[B65536].End(xlUp).Row
Sheet4.[A3].Offset(r, 0).Resize(, 10) = _
Array(.Cells(i, "B"), .Cells(i, "C"), "PCS", "", "", "", .Cells(i, "G"), "KG", .Cells(i, "F") / .Cells(i, "G"), .Cells(i, "F"))
r = r + 1: i = i + 1
Loop
Sheet4.PrintPreview
Loop
Sheet4.PrintPreview
End With
End Sub