Board logo

標題: [發問] vlookup一次全部列印 [打印本頁]
作者: energy318122    時間: 2011-5-26 16:08     標題: vlookup一次全部列印

目前有一個人員資料庫，另一個表格為個人分配表！
我已經用VLOOKUP逐一叫出一個人的分配比例！
但是列印時我想要一次就可以列印全部所有人，而不是一筆一筆叫出來印，也不想重複表格列印！
不知道有沒有其他的辦法呢？（因為原始檔資料很多，一筆一筆叫實在不是辦法）
作者: luhpro    時間: 2011-5-26 23:44

回復 1# energy318122
最簡單的方法就是新增一個 "列印區" 工作表單,
然後把想列印的資料全部都弄上去,
接著只要下列印指令就好囉.

若怕暫儲存空間列印完就把它刪掉,
甚至是另外建一個 Excel 檔案去抓那個檔案的資料出來印應該也不錯.
作者: GBKEE    時間: 2011-5-27 07:17

回復 1# energy318122
"但是列印時我想要一次就可以列印全部所有人，而不是一筆一筆叫出來印，也不想重複表格列印！"
而不是手動一筆一筆叫出來印  對嗎?   要附檔上來說清楚
作者: energy318122    時間: 2011-5-27 11:23

就像附件那樣

工作表2已經設定好vlookup連到工作表1
如果工作表1有200多筆資料~
最後呈現的是工作表2的格式，就是一張只印一個人
我想問的是~如果我要一次自動從第一筆列印到最後一筆~要怎麼做??
作者: GBKEE    時間: 2011-5-27 11:41

回復 4# energy318122
  1. Sub Ex()
  2.     Dim R As Range
  3.     With Sheets("工作表2")
  4.         For Each R In Sheets("工作表1").Range("A2:E10").Rows
  5.             .Range("A2:E2") = R.Value
  6.             .PrintOut
  7.         Next
  8.     End With
  9. End Sub
複製代碼
作者: trainee    時間: 2011-12-19 12:05

本帖最後由 trainee 於 2011-12-19 12:24 編輯

GBKEE大大
新丁學會了，先行謝過！
請問，
若一頁需列印十個記錄，分二欄五列，
可如何作法？
煩請賜教！
作者: GBKEE    時間: 2011-12-19 17:15

回復 6# trainee
若一頁需列印十個記錄，分二欄五列 附上範例看看!
作者: trainee    時間: 2011-12-19 17:50

回復 7# GBKEE

先行再次謝過！
現附上檔案，若有愚昧之處，萬望包容！！
作者: GBKEE    時間: 2011-12-20 15:51

回復 8# trainee
  1. Sub Ex()
  2.     Dim Rng As Range, E As Range, i, ii
  3.     Set Rng = Sheets("Print Sheet").Range("b1, d1, b6, d6, B11, D11")
  4.     With Sheets("Date Sheet")
  5.         For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row Step 6
  6.             ii = 0: Rng.EntireColumn = ""
  7.             For Each E In Rng
  8.                 E = .Cells(i + ii, "A")
  9.                 E.Offset(2) = .Cells(i + ii, "B")
  10.                 E.Offset(4) = .Cells(i + ii, "C")
  11.                 ii = ii + 1
  12.             Next
  13.              With Rng.Parent
  14.                 .PageSetup.FitToPagesWide = 1
  15.                 .PageSetup.FitToPagesTall = 1
  16.                 .PrintOut
  17.             End With
  18.         Next
  19.     End With
  20. End Sub
複製代碼
作者: trainee    時間: 2011-12-20 18:49

回復 9# GBKEE


感謝大大的回覆及賜教！:) :)

其實我需的資料過百筆，
我會嘗試參詳及學習大大的方法，
希望可以自行解決問題！
作者: trainee    時間: 2011-12-21 12:06

回復 9# GBKEE


大大所指教的方法已初步學會，謝謝！
但若以另一模式的格式列印，又應如何作法！？
有勞大大再次賜教！
作者: GBKEE    時間: 2011-12-21 15:03

回復 11# trainee
  1. Sub Ex()
  2.     Dim Rng As Range, E As Range, i, ii
  3.     Set Rng = Sheets("Print Sheet").Range("B1, F1, B6, F6")
  4.     With Sheets("Data Sheet")
  5.         For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row Step 4
  6.             ii = 0: Rng.EntireColumn = "": Rng.Offset(, 2).EntireColumn = ""
  7.             For Each E In Rng
  8.                 E = .Cells(i + ii, "A")
  9.                 E.Offset(2) = .Cells(i + ii, "B")
  10.                 E.Offset(2, 2) = .Cells(i + ii, "C")
  11.                 E.Offset(4) = .Cells(i + ii, "D")
  12.                 E.Offset(4, 2) = .Cells(i + ii, "E")
  13.                 ii = ii + 1
  14.             Next
  15.              With Rng.Parent
  16.                 .PageSetup.PrintArea = "a1:h10"
  17.                 .PageSetup.FitToPagesWide = 1
  18.                 .PageSetup.FitToPagesTall = 1
  19.                 .PrintOut
  20.             End With
  21.         Next
  22.     End With
  23. End Sub
複製代碼
作者: trainee    時間: 2011-12-21 18:21

回復 12# GBKEE


新丁再次謝過！
先行抄下，好好學習！



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)