123
返回列表 上一主題 發帖

自動填入未做列印標記的序號

chi830

帖子
105 
主題
27 
精華
0 
積分
168 
點名
30  
作業系統
Win10 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2011-6-30 
最後登錄
2025-2-19 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
5# 跳轉到 »
發表於 2015-3-10 16:02 | 只看該作者
依lpk187所提供的程式碼，稍作event的修改，現已大致完成所期望的功能

但不曉得是否能讓另存的新檔存為.jpg or pdf檔呢?  自已試著改結果是不行的~呵
此目的，是不希望User能自行開啟檔案修正~

以上~謝謝

TOP

lpk187

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

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
4#
發表於 2015-3-4 21:54 | 只看該作者
回復 3# chi830


    在ThisWorkbook貼上這個代碼試試
  1. Private Sub Workbook_BeforePrint(Cancel As Boolean)
  2. Pr = Worksheets("統計").Range("B2")
  3.     For Each fi In Worksheets("序號").Range("A2:A" & Worksheets("序號").Range("A65536").End(xlUp).Row)
  4.         If Pr = fi Then
  5.             Worksheets("序號").Cells(fi.Row, "B") = "V"
  6.             Exit For
  7.         End If
  8.     Next
  9. Patha = ThisWorkbook.Path & "\"
  10.     Worksheets("統計").Select
  11.     Range("A1:L10").Select
  12.     Selection.Copy
  13.     Workbooks.Add (xlWBATWorksheet)
  14.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  15.         :=False, Transpose:=False
  16.     Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
  17.         SkipBlanks:=False, Transpose:=False
  18.     Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
  19.         SkipBlanks:=False, Transpose:=False
  20.     ActiveWorkbook.Worksheets("工作表1").Name = Pr & "統計"
  21.     Range("A1").Select
  22.     ActiveWorkbook.SaveAs Filename:=Patha & Pr & ".xlsb", _
  23.         FileFormat:=xlExcel12, CreateBackup:=False
  24. Workbooks(Pr & ".xlsb").Close True
  25. End Sub
複製代碼

TOP

chi830

帖子
105 
主題
27 
精華
0 
積分
168 
點名
30  
作業系統
Win10 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2011-6-30 
最後登錄
2025-2-19 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
3#
發表於 2015-3-4 13:07 | 只看該作者
太棒了~感lpk187先進的回復， 有收獲 ~讚
   改用Button的方式實作，ok~

   但現在想做更進化的功能(不採用button)
   1、user真的列印後，自動回寫序號頁B欄的V，這裡的程式碼應如何修改?
   2、同時列印完，'統計頁'要另存成檔名為'統計頁'B2的excel，例如No.20150007.xls
         統計頁這裡是樞鈕所跑出來的結果值，另存檔後，所求是要原篩選的內容值

  以上~再請先進們賜教~

TOP

lpk187

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

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 2015-3-3 20:12 | 只看該作者
本帖最後由 lpk187 於 2015-3-3 20:13 編輯
  1. Sub 列印()
  2. '
  3. ' 巨集1 巨集
  4. '
  5. '你列印的程式代碼後加上下面這2句

  7. End1 = Worksheets("序號").Columns("A").Find([B2], , , xlWhole, , 2).Row
  8. Worksheets("序號").Cells(End1, "B") = "V"
  9. End Sub


  12. '在 "統計" 的工作表的程式碼中貼上下面這個程序
  13. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  14. If Target.Address = [B2].Address Then
  15.         For Each 序號 In Worksheets("序號").Range("A2:A" & Worksheets("序號").Range("A65535").End(xlUp).Row)
  16.     ro = 序號.Row
  17.     If Sheets("序號").Cells(ro, "B") = "" Then
  18.         [B2] = Worksheets("序號").Cells(ro, "A")
  19.         End
  20.     End If
  21.     Next
  22. End If
  23. End Sub
複製代碼
回復 1# chi830

TOP

        靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。
123
返回列表 上一主題