ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦Û°Ê¶ñ¤J¥¼°µ¦C¦L¼Ð°Oªº§Ç¸¹

¦^´_ 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

TOP

¦^´_ 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

TOP

¦^´_ 21# lpk187

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

TOP

¦^´_ 22# kenlin


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

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD