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

babesia

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

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

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

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

register313

回復 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

複製代碼