返回列表 上一主題 發帖

[發問] 如何將 Excel 資料,套印至另一張工作表中的特定格式中?

[發問] 如何將 Excel 資料,套印至另一張工作表中的特定格式中?

本帖最後由 benny15151515 於 2018-10-25 09:55 編輯

想請教大家,我有個工作表有已有固定格式(明細表),但我想把需要的資料,
如圖片所示複製黃色部份,明細表因為以固定格式,
每超過30筆時會再底下又產生明細表以此類推,謝謝大家。

圖一

0000123.jpg
2018-10-25 09:51



經費交收明細表(測試).zip (8.73 KB)

資料太少!!!
看不懂如何套???
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

回復 2# 准提部林


1540569794023.jpg
2018-10-27 00:37

     如圖片 將這些資料 在 套到如上圖 另一張工作表
     可以有類似的範例可以學習嗎?
     簡單易懂的,我有看網路上的一些類似的excel
     但因為大部分都還有寫其他功能 所以實在也看不太懂
     我也不敢麻煩 一直亂發問這種問題? 所以還是要先問懂
     因為最近有蠻多的東西 需要這樣做

TOP

回復 3# benny15151515

用微調按鈕改變要列印的頁次(每30行一頁):
經費交收明細表(測試)_v1.rar (11.24 KB)
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

回復 3# benny15151515

試試看
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng(1 To 2) As Range, xT As Integer, xEnd As Integer
  4.     Set Rng(1) = Sheets("明細表").Range("A1:O38")               '第一張明細表範圍
  5.     xT = 5: xEnd = xT + 30                                      '明細表資料 的起始列號,結束列號
  6.     Rng(1).Rows(xT & ":" & xEnd) = ""                           '清除明細表的資料
  7.     Sheets("明細表").Rows(Rng(1).Offset(Rng(1).Rows.Count).Row & ":" & Rows.Count).Clear
  8.                                                                 '清除上次餘留的明細表(留下第一張)
  9.     Set Rng(2) = Sheets("資料").Range("a2").EntireRow           '第一筆資料
  10.     Do                                                          '跑資料的迴圈
  11.         Rng(1).Cells(xT, 1).EntireRow = Rng(2).Value            'xT列上,貼上資料
  12.         xT = xT + 1                                             'xT列 + 1
  13.         Set Rng(2) = Rng(2).Offset(1)                           'Offset(1)下一筆資料
  14.         If Rng(2).Cells(1) = "" Then Exit Do                    '沒有資料離開,跑資料的迴圈
  15.         If xT = xEnd Then                                        '填滿明細表
  16.             With Rng(1).Offset(Rng(1).Rows.Count)               'Rng(1).Rows.Count: 明細表的總列數
  17.                 Rng(1).Copy .Cells                              '複製 明細表
  18.                 Set Rng(1) = Rng(1).Offset(Rng(1).Rows.Count)   ' Set : 指定物件引用給變數或屬性
  19.             End With
  20.             xT = 5                                              '重設明細表資料 的起始列號
  21.             Rng(1).Rows(xT & ":" & xEnd) = ""                   '清除明細表的資料
  22.         End If
  23.     Loop
  24. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 4# 准提部林


    可以再問一下  我發現上面 日期 譬如我想9月完要接續 10月從第一頁開始 有甚麼辦法可以解決?

TOP

        靜思自在 : 真正的愛心,是照顧好自己的這顆心。
返回列表 上一主題