¦Û°Ê¶ñ¤J¥¼°µ¦C¦L¼Ð°Oªº§Ç¸¹
- ©«¤l
- 105
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 209
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-11-11
|
¦Û°Ê¶ñ¤J¥¼°µ¦C¦L¼Ð°Oªº§Ç¸¹
½Ð±Ð¦U¦ì¥ý¶i~
¦b¬Y¤@³]p¦nªº¸ê®Æ¶±¡A·QnÅýexcel¦Û°Ê±q ¡u§Ç¸¹¡v¶¤¤¡A±a¤J¥Ø«e©|¥¼¥Î¹Lªº§Ç¸¹È¡A¦³¤°»ò¤èªk¶Ü?
ªþ¤WÀÉ®×»¡©ú~~ÁÂÁ¤j®a~~
¦¨«~¥XªùÃÒ+§Ç¸¹.zip (18.23 KB)
|
|
|
|
|
|
|
- ©«¤l
- 105
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 209
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-11-11
|
¦^´_ 21# lpk187
ÁÂÁÂlpk187¤j¤j~¤w¸Ñ¨M§Úªº°ÝÃD |
|
|
|
|
|
|
- ©«¤l
- 6
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 31
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2014-12-17
- ³Ì«áµn¿ý
- 2015-3-25
|
¦^´_ 12# chi830
§Ú²ßºD°µ¤@Óºô¸ôºÏºÐ¡A¥i¥H¸Õ¸Õ¬Ý- Set fs = CreateObject("Scripting.FileSystemObject")
- Set WshNetwork = CreateObject("WScript.Network")
- If Not fs.FolderExists("Z:\") Then
- WshNetwork.MapNetworkDrive "Z:", "\\192.068.0.1\temp\", False, "Username", "Password"
- End If
- Set WshNetwork = Nothing
- Set fs = Nothing
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
¦^´_ 20# chi830 - For Each fi In Worksheets("§Ç¸¹").Range("A2:A" & Worksheets("§Ç¸¹").Range("A65536").End(xlUp).Row)
- If Pr = fi Then
- '³o¸Ì¥[¤W³o¬q¸Õ¸Õvvvvvvvvvvvvvvvvvvvvvvv
-
- If fi.Offset(0, 1) = "V" Then
- MsgBox "¸Ó§Ç¸¹¤w¦s¦b¡A½Ð¥ý²M°£¦C¦L¼Ð°O©Î¬O«·s¨ú¸¹"
- Cancel = True
- Exit Sub
- End If
-
- '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
-
- Worksheets("§Ç¸¹").Cells(fi.Row, "B") = "V"
- Exit For
- End If
- Next
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 105
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 209
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-11-11
|
¦^´_ 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 |
|
|
|
|
|
|
- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
¦^´_ 18# chi830
¤£ª¾¹D¬O¤£¬O¦]¬°ª©¥»¤£¦Pªº¦]¯À¡C§Úªº2010¦b°õ¦æ¹wÄý¦C¦L®É¡A¨Ã¨S¦³§A»¡ªº±¡ªp¡A³£·|n«ö¦C¦L¤~·|ÅýBeforePrint¨Æ¥ó±Ò°Ê¡I |
|
|
|
|
|
|
- ©«¤l
- 105
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 209
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-11-11
|
¦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 |
|
|
|
|
|
|
- ©«¤l
- 105
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 209
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-11-11
|
¦^´_ 16# lpk187
¶â¶â~ªº½T¦p¦¹~¤F¸Ñ¤F...ÁÂÁ±z~~^^ |
|
|
|
|
|
|
- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
¦^´_ 15# chi830
¥t¦s·sÀɦ³¦p¤U¹Ï¥i¦s¦¨PDFªº¿ï¶µÀ³¸Ó³£¥i¥H¦s§a¡I
|
|
|
|
|
|
|