返回列表 上一主題 發帖

[發問] 列印範圍與格式設定

babesia

帖子
13 
主題
7 
精華
0 
積分
50 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-1-15 
最後登錄
2013-2-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-3-15 23:34 | 只看該作者

[發問] 列印範圍與格式設定

一工作簿中有二個工作表,第一個工作表名稱為總表，另一個為測試表

總表為資料存放的工作表，
欄名自A1儲存格起依序為序號　姓名　職稱　單位別　加班時數

測試表B2為單位名稱
自A4起欄名依序為序號 姓名 職稱 加班時數

想要的功能如下:
當操作者於測試表的A欄填寫序號時
EXCEL會自動抓取總表中該序號之姓名 職稱 加班時數等的資料
並依所輸入的筆數自動設定列印範圍
(範圍為姓名 職稱 加班時數三欄中有資料的部份，不顯示序號)
並將列印範圍中的儲存格均設定框線
請問應如何處理？
收藏 分享

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-3-16 01:42 | 只看該作者
回復 1# babesia

工作表模組(測試表工作表)
  1. Private Sub worksheet_change(ByVal Target As Range)
  2. If Target.Column = 1 Then
  3.    With Sheets("總表")
  4.      Set Rng = .Columns(1).Find(Target, , , xlWhole)
  5.      If Not Rng Is Nothing Then
  6.        Rng.Offset(0, 1).Resize(1, 2).Copy Cells(Target.Row, 2)
  7.        Rng.Offset(0, 4).Copy Cells(Target.Row, 4)
  8.      Else: MsgBox "查無此序號"
  9.            Target = ""
  10.      End If
  11.    End With
  12. End If
  13. With [A1].CurrentRegion.Borders
  14.    .LineStyle = xlContinuous
  15.    .Weight = xlThin
  16. End With
  17. PR = [A1].CurrentRegion.Address
  18. ActiveSheet.PageSetup.PrintArea = PR
  19. End Sub
複製代碼

TOP

        靜思自在 : 君子立恆志，小人恆立志。
返回列表 上一主題