lpk187

¦^´_ 20# chi830

1.     For Each fi In Worksheets("§Ç¸¹").Range("A2:A" & Worksheets("§Ç¸¹").Range("A65536").End(xlUp).Row)
   
2.         If Pr = fi Then
   
3.         '³o¸Ì¥[¤W³o¬q¸Õ¸Õvvvvvvvvvvvvvvvvvvvvvvv
   
4.         
   
5.             If fi.Offset(0, 1) = "V" Then
   
6.                 MsgBox "¸Ó§Ç¸¹¤w¦s¦b¡A½Ð¥ý²M°£¦C¦L¼Ð°O©Î¬O­«·s¨ú¸¹"
   
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

½Æ»s¥N½X

kenlin

¦^´_ 12# chi830

§Ú²ßºD°µ¤@­Óºô¸ôºÏºÐ¡A¥i¥H¸Õ¸Õ¬Ý

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

½Æ»s¥N½X

chi830

¦^´_ 21# lpk187

  ÁÂÁÂlpk187¤j¤j~¤w¸Ñ¨M§Úªº°ÝÃD

chi830

¦^´_ 22# kenlin


    kenlin¤j¤j¡A§Ú¨Ì±zªº½d¨Ò¡A¸Õ°µ¤@¤U¡A¥X²{¤F¤@­Ó¦p¤Uªº¿ù»~°T®§~
    ³o·N¦®¤°»ò©O??

¤U¸ü (84.29 KB)

2015-3-25 12:53