返回列表 上一主題 發帖

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

回復 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
複製代碼

TOP

回復 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
複製代碼

TOP

回復 21# lpk187

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

TOP

回復 22# kenlin


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

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大,小人氣大。
返回列表 上一主題