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

chi830

請教各位先進~

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


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

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

自動編號
下載次數: 8

2015-3-3 14:38

chi830

回復 22# kenlin


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

下載 (84.29 KB)

2015-3-25 12:53

chi830

回復 21# lpk187

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

kenlin

回復 12# chi830

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

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

複製代碼

lpk187

回復 20# chi830

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

複製代碼

chi830

回復 19# lpk187

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

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

lpk187

回復 18# chi830


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

chi830

再請教一下~
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

chi830

回復 16# lpk187


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

lpk187

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

下載 (262.17 KB)

2015-3-13 16:35