標題:
[發問]
如何將 Excel 資料,套印至另一張工作表中的特定格式中?
[打印本頁]
作者:
benny15151515
時間:
2018-10-25 09:53
標題:
如何將 Excel 資料,套印至另一張工作表中的特定格式中?
本帖最後由 benny15151515 於 2018-10-25 09:55 編輯
想請教大家,我有個工作表有已有固定格式(明細表),但我想把需要的資料,
如圖片所示複製黃色部份,明細表因為以固定格式,
每超過30筆時會再底下又產生明細表以此類推,謝謝大家。
[attach]29586[/attach]
[attach]29587[/attach]
作者:
准提部林
時間:
2018-10-26 11:06
資料太少!!!
看不懂如何套???
作者:
benny15151515
時間:
2018-10-27 00:36
回復
2#
准提部林
[attach]29592[/attach]
如圖片 將這些資料 在 套到如上圖 另一張工作表
可以有類似的範例可以學習嗎?
簡單易懂的,我有看網路上的一些類似的excel
但因為大部分都還有寫其他功能 所以實在也看不太懂
我也不敢麻煩 一直亂發問這種問題? 所以還是要先問懂
因為最近有蠻多的東西 需要這樣做
作者:
准提部林
時間:
2018-10-27 09:30
回復
3#
benny15151515
用微調按鈕改變要列印的頁次(每30行一頁):
[attach]29593[/attach]
作者:
GBKEE
時間:
2018-10-27 11:10
回復
3#
benny15151515
試試看
Option Explicit
Sub Ex()
Dim Rng(1 To 2) As Range, xT As Integer, xEnd As Integer
Set Rng(1) = Sheets("明細表").Range("A1:O38") '第一張明細表範圍
xT = 5: xEnd = xT + 30 '明細表資料 的起始列號,結束列號
Rng(1).Rows(xT & ":" & xEnd) = "" '清除明細表的資料
Sheets("明細表").Rows(Rng(1).Offset(Rng(1).Rows.Count).Row & ":" & Rows.Count).Clear
'清除上次餘留的明細表(留下第一張)
Set Rng(2) = Sheets("資料").Range("a2").EntireRow '第一筆資料
Do '跑資料的迴圈
Rng(1).Cells(xT, 1).EntireRow = Rng(2).Value 'xT列上,貼上資料
xT = xT + 1 'xT列 + 1
Set Rng(2) = Rng(2).Offset(1) 'Offset(1)下一筆資料
If Rng(2).Cells(1) = "" Then Exit Do '沒有資料離開,跑資料的迴圈
If xT = xEnd Then '填滿明細表
With Rng(1).Offset(Rng(1).Rows.Count) 'Rng(1).Rows.Count: 明細表的總列數
Rng(1).Copy .Cells '複製 明細表
Set Rng(1) = Rng(1).Offset(Rng(1).Rows.Count) ' Set : 指定物件引用給變數或屬性
End With
xT = 5 '重設明細表資料 的起始列號
Rng(1).Rows(xT & ":" & xEnd) = "" '清除明細表的資料
End If
Loop
End Sub
複製代碼
作者:
benny15151515
時間:
2018-10-29 10:52
回復
4#
准提部林
可以再問一下 我發現上面 日期 譬如我想9月完要接續 10月從第一頁開始 有甚麼辦法可以解決?
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)