返回列表 上一主題 發帖

關於vlookup的列印問題

e91010029

帖子
1 
主題
1 
精華
0 
積分
2 
點名
0  
作業系統
win7 
軟體版本
64 
閱讀權限
10 
性別
男 
註冊時間
2016-3-9 
最後登錄
2016-3-9 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-3-9 17:50 | 只看該作者

關於vlookup的列印問題

在製作成績單的時候，使用vlookup的公式，但每次都需要改一次編號印一次，有辦法可以直接一次印完嗎？

105二升三成績登記.rar (48.65 KB)

收藏 分享

yifan2599
　暱稱: Mick

贊助會員Rank: 2

帖子
37 
主題
10 
精華
0 
積分
55 
點名
0  
作業系統
Win10(x64) 
軟體版本
Office 2016 (x64) 
閱讀權限
30 
性別
男 
註冊時間
2011-1-31 
最後登錄
2021-9-15 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2016-3-11 07:59 | 只看該作者
回復 1# e91010029


    請參考附加檔。

105二升三成績登記.zip (64.68 KB)

人生不一定球球是好球，但是有歷練的強打者，隨時都可以揮棒。

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
3#
發表於 2016-3-11 09:18 | 只看該作者
本帖最後由 lpk187 於 2016-3-11 09:21 編輯
  1. Option Explicit

  3. Sub 按鈕1_Click()
  4. Dim s%, e%, p%
  5. s = [i1] '從n號，放在"i1"欄位
  6. e = [k1]'到n號，放在"k1"欄位
  7. For p = s To e
  8.     [b1] = p
  9.     'ActiveWindow.SelectedSheets.PrintOut Preview:=True'預攬
  10.     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
  11.     IgnorePrintAreas:=False'列印
  12. Next
  13. End Sub
複製代碼
回復 1# e91010029

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題