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

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

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

½Ð±Ð¦U¦ì¥ý¶i~

¦b¬Y¤@³]­p¦nªº¸ê®Æ­¶­±¡A·Q­nÅýexcel¦Û°Ê±q ¡u§Ç¸¹¡v­¶¤¤¡A±a¤J¥Ø«e©|¥¼¥Î¹Lªº§Ç¸¹­È¡A¦³¤°»ò¤èªk¶Ü?


ªþ¤WÀÉ®×»¡©ú~~ÁÂÁ¤j®a~~

¦¨«~¥XªùÃÒ+§Ç¸¹.zip (18.23 KB)

¦^´_ 22# kenlin


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

TOP

¦^´_ 21# lpk187

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

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

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

¦^´_ 19# lpk187

  ¬Ý¨Ó¯u¬Oª©¥»ªº°ÝÃD¡A§Ú¦b2010ª©´ú¡A¹wÄý®É¨Ã¤£·|¼g¤J­È

  ¨º½Ð±Ð¤j¤j¡A¯à¤£¯à¦b¹wÄý¦C¦L®É¡A¨t²Î§PÂ_Worksheets("²Î­p").Range("B2")¬O§_¦bWorksheets("§Ç¸¹").Cells(fi.Row, "B") = "V"
  ¦pªG¬°¤w¼Ð°O¡A«h¸õ¥X°T®§"¸Ó§Ç¸¹¤w¦s¦b¡A½Ð¥ý²M°£¦C¦L¼Ð°O©Î¬O­«·s¨ú¸¹"¡AµM«á²×¤î¤£ÅýÄ~Äò¦C¦L

TOP

¦^´_ 18# chi830


    ¤£ª¾¹D¬O¤£¬O¦]¬°ª©¥»¤£¦Pªº¦]¯À¡C§Úªº2010¦b°õ¦æ¹wÄý¦C¦L®É¡A¨Ã¨S¦³§A»¡ªº±¡ªp¡A³£·|­n«ö¦C¦L¤~·|ÅýBeforePrint¨Æ¥ó±Ò°Ê¡I

TOP

¦A½Ð±Ð¤@¤U~
BeforePrint¡A³o­ÓEvent¬O¦b¹wÄý®É´N¤w±NWorksheets("§Ç¸¹").Cells(fi.Row, "B") = "V"ªº­È¼g¤J
¬O§_¦³¤èªk¥iÅýuser¬O¯u¥¿°e¥X¦C¦L«ü¥O¡A¸Ó¬qµ{¦¡½X¤~¥Í®Ä©O?
¥B¦P®É¦Û°Ê"­«·s¨ú¸¹"
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("²Î­p").Range("B2").Value = Worksheets("§Ç¸¹").Cells(ro, "A")
        End
    End If
    Next

TOP

¦^´_ 16# lpk187


    ¶â¶â~ªº½T¦p¦¹~¤F¸Ñ¤F...ÁÂÁ±z~~^^

TOP

¦^´_ 15# chi830
¥t¦s·sÀɦ³¦p¤U¹Ï¥i¦s¦¨PDFªº¿ï¶µÀ³¸Ó³£¥i¥H¦s§a¡I

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD