返回列表 上一主題 發帖

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

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 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

        靜思自在 : 看別人不順眼，是自己修養不夠。
返回列表 上一主題