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

帖子: 104
主題: 27
精華: 0
積分: 167
點名: 95
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2024-5-20

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

11^# 跳轉到 »

發表於 2015-3-11 15:12 | 只看該作者

試試看
第二個問題如下
Worksheets("統計").Select
Range("A110").Select
Selection.Copy
'上面的式 ...
lpk187 發表於 2015-3-11 13:46

試了一下，沒有篩選內容出現~
後來把xlUp改為xlDown就可以了
Range("A1:L" & Cells(Rows.Count, "L").End(xlDown).Row).Copy

謝謝lpk187先進的提點~
現在就差轉存PDF的問題了.....

TOP

chi830

中學生 Rank: 2

帖子: 104
主題: 27
精華: 0
積分: 167
點名: 95
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2024-5-20

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

12^#

發表於 2015-3-11 15:39 | 只看該作者

再請教存檔的路徑可以是網芳中的任一台電腦
Patha = "\\BUS\SCAN\出門證\" '存檔路徑這樣是可以成功的

但若有帳號/密碼時，要怎麻在語法中先將資訊輸入呢??

TOP

lpk187

高中生 Rank: 3 Rank: 3

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

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

13^#

發表於 2015-3-11 16:23 | 只看該作者

回復 12# chi830

轉存PDF檔，在我幾台電腦試都可以，所以我也不知問題在哪？我再研究看看
至於網路芳鄰，呵呵！我沒用過所以只好請其他大大回答了！

TOP

chi830

中學生 Rank: 2

帖子: 104
主題: 27
精華: 0
積分: 167
點名: 95
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2024-5-20

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

14^#

發表於 2015-3-12 21:31 | 只看該作者

回復 13# lpk187

我終於知道我錯在哪裡了，因為之前轉存*.xlsb時，是在預覽列印的時候就會生成檔案，同時也是被BeforePrint這個event給蒙蔽了，
所以我一直以為預覽後就應該產生新檔，又因為在測試，所以一直沒真的按列印，才會一直不產生PDF
現在OK了~~~真是感謝lpk大大嘍....^__^

接下來，網路磁碟機的帳/密，要請其他先進幫幫忙嘍......感謝~~~

TOP

chi830

中學生 Rank: 2

帖子: 104
主題: 27
精華: 0
積分: 167
點名: 95
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2024-5-20

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

15^#

發表於 2015-3-13 16:03 | 只看該作者

現又發現一個問題，請問轉PDF一定要電腦有安裝Adobe Acrobat 嗎??
因有的User裝的是免費轉PDF的程式(例如:CutePDF OR PrimePdF)，用這個軟體的人操作會無法轉存PDF耶....

TOP

lpk187

高中生 Rank: 3 Rank: 3

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

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

16^#

發表於 2015-3-13 16:37 | 只看該作者

回復 15# chi830
另存新檔有如下圖可存成PDF的選項應該都可以存吧！

TOP

chi830

中學生 Rank: 2

帖子: 104
主題: 27
精華: 0
積分: 167
點名: 95
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2024-5-20

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

17^#

發表於 2015-3-16 09:51 | 只看該作者

回復 16# lpk187

嗯嗯~的確如此~了解了...謝謝您~~^^

TOP

chi830

中學生 Rank: 2

帖子: 104
主題: 27
精華: 0
積分: 167
點名: 95
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2024-5-20

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

18^#

發表於 2015-3-16 15:07 | 只看該作者

再請教一下~
BeforePrint，這個Event是在預覽時就已將Worksheets("序號").Cells(fi.Row, "B") = "V"的值寫入
是否有方法可讓user是真正送出列印指令，該段程式碼才生效呢?
且同時自動"重新取號"
For Each 序號 In Worksheets("序號").Range("A2:A" & Worksheets("序號").Range("A65535").End(xlUp).Row)
ro = 序號.Row
If Sheets("序號").Cells(ro, "B") = "" Then
      '[B2] = Worksheets("序號").Cells(ro, "A")
      Worksheets("統計").Range("B2").Value = Worksheets("序號").Cells(ro, "A")
      End
End If
Next

TOP

lpk187

高中生 Rank: 3 Rank: 3

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

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

19^#

發表於 2015-3-16 15:59 | 只看該作者

回復 18# chi830

不知道是不是因為版本不同的因素。我的2010在執行預覽列印時，並沒有你說的情況，都會要按列印才會讓BeforePrint事件啟動！

TOP

chi830

中學生 Rank: 2

帖子: 104
主題: 27
精華: 0
積分: 167
點名: 95
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2024-5-20

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

20^#

發表於 2015-3-17 11:05 | 只看該作者

回復 19# lpk187

  看來真是版本的問題，我在2010版測，預覽時並不會寫入值

  那請教大大，能不能在預覽列印時，系統判斷Worksheets("統計").Range("B2")是否在Worksheets("序號").Cells(fi.Row, "B") = "V"
  如果為已標記，則跳出訊息"該序號已存在，請先清除列印標記或是重新取號"，然後終止不讓繼續列印

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]