chi830

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

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

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

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

請教各位先進~

在某一設計好的資料頁面，想要讓excel自動從「序號」頁中，帶入目前尚未用過的序號值，有什麼方法嗎?

附上檔案說明~~謝謝大家~~

成品出門證+序號.zip (18.23 KB)

樓主熱帖

chi830

中學生 Rank: 2

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

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

24^#

發表於 2015-3-25 12:53 | 只看該作者

回復 22# kenlin

kenlin大大，我依您的範例，試做一下，出現了一個如下的錯誤訊息~
這意旨什麼呢??

TOP

chi830

中學生 Rank: 2

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

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

23^#

發表於 2015-3-18 14:01 | 只看該作者

回復 21# lpk187

謝謝lpk187大大~已解決我的問題

TOP

kenlin

小學生 Rank: 1

帖子: 6
主題: 0
精華: 0
積分: 31
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: Taiwan
註冊時間: 2014-12-17
最後登錄: 2015-3-25

22^#

發表於 2015-3-18 09:06 | 只看該作者

回復 12# chi830

我習慣做一個網路磁碟，可以試試看

Set fs = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = CreateObject("WScript.Network")
If Not fs.FolderExists("Z:\") Then
WshNetwork.MapNetworkDrive "Z:", "\\192.068.0.1\temp\", False, "Username", "Password"
End If
Set WshNetwork = Nothing
Set fs = Nothing

複製代碼

TOP

lpk187

高中生 Rank: 3 Rank: 3

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

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

21^#

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

回復 20# chi830

For Each fi In Worksheets("序號").Range("A2:A" & Worksheets("序號").Range("A65536").End(xlUp).Row)
If Pr = fi Then
'這裡加上這段試試vvvvvvvvvvvvvvvvvvvvvvv
If fi.Offset(0, 1) = "V" Then
MsgBox "該序號已存在，請先清除列印標記或是重新取號"
Cancel = True
Exit Sub
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Worksheets("序號").Cells(fi.Row, "B") = "V"
Exit For
End If
Next

複製代碼

TOP

chi830

中學生 Rank: 2

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

2024年全勤獎章 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

lpk187

高中生 Rank: 3 Rank: 3

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

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

19^#

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

回復 18# chi830

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

TOP

chi830

中學生 Rank: 2

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

2024年全勤獎章 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

chi830