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

[µo°Ý] ¥Î®É¶¡±±¨îªºµ{¦¡¡A®É¶¡­n¸ó¹L¹j¤éªº VBA­n¦p¦ó¼g?

[µo°Ý] ¥Î®É¶¡±±¨îªºµ{¦¡¡A®É¶¡­n¸ó¹L¹j¤éªº VBA­n¦p¦ó¼g?

·Q­n¼g¤@¤äVBA  ¬ö¿ý ¥x«ü´Á"¤é½L"©M"¤È«á½L" ªº¸ê®Æ
¤È«á½L®É¶¡³o¤@¬q­n¸ó¨ì¹j¤Ñ¦­¤W¡A¼g¤£¥X¨Ó¡APO¤W¨Ó½Ð±Ð°ª¤H¡C

Sub ¦@¥Î°Ñ·Ó()
Set MyBook = ThisWorkbook
Set Sht1 = MyBook.Sheets("¥x«ü´Á")

If [A1] = "¤é½L" And Time >= TimeValue("08:44:00") And Time <= TimeValue("13:45:00")Then '¨Ì¾ÚÀx¦s®æA1ªº­È¬°"¤é½L"©Î"©]½L"--> ¿ï¾Ü"¤é½L"
     StartTime = "08:44:10"   '¤é½L¶}½L«e50¬í-->°õ¦æµ{¦¡
     EndTime = "13:45:10"     '¤é½L¦¬½L«á10¬í-->°±¤îµ{¦¡
End If


If [A1] = "©]½L" And Time >= TimeValue("15:00:00") And Time <= TimeValue("05:00:00") Then  '¿ï¾Ü©]½L(15:00:00 ~ ¹j¤é¦­¤W 05:00:00)

     StartTime = "14:59:10"  '©]½L¶}½L«e50¬í-->°õ¦æµ{¦¡
     EndTime = "05:00:10"    '©]½L¦¬½L«á10¬í-->°±¤îµ{¦¡

End If

End Sub
µ{¦¡®É¶¡¸ó¹j¤é.jpg

¥»©«³Ì«á¥Ñ ABK ©ó 2018-4-26 23:09 ½s¿è

¦^´_ 2# jackyq

§Ú¥é»s¤Fpcboy¤j µo°Ýªº¤å½g: "DDE¨C¤ÀÄÁ°O¿ýªº¸ê®Æ±Æ§Ç°ÝÃD"  [ http://forum.twbts.com/thread-20603-1-1.html ] ¸Ì­±ªºµ{¦¡½X¡C

±N¸ó¹j¤éªºCode ¼g¤J, ·Q°µ¦¨¥i¥H¶]¥x«ü"¤é½L"©M"¤È«á½L"¨C¤ÀÄÁªº¬ö¿ý,
°±¤î®É¶¡¨ºÃä¨S¼g¦n¡A «ö¶s±Ò°Ê"¦Û°Ê°O¿ý"«á , ¨S¦³¶]°_¨Ó !   ¤@ª½¥d¦b¦¬½L®É¶¡¡C

-- A1®æ¨ºÃä¥i¥H¿ï¾Ü"¤é½L"©Î"©]½L" --

1¤ÀÄÁ¬ö¿ý- ´ú¸ÕÀÉ-3.rar (80.11 KB)

TOP

¦^´_ 4# ­ã´£³¡ªL


ÁÂÁ­ã³ö¤j !      ¥u¯à»¡Åå¹Ä¡Aª©­±²M²n¦³¤O¡A¬Ý°_¨Ó«ÜµÎªA!   

¥i§_½Ð±Ð­ã³ö¤j ¸ê®Æ¬O¦p¦ó§ì¨úªº¡A ¤½¦¡©Mµ{¦¡¸Ì³£¨S¦³¬Ý¨ì¥ô¦ó¸ê®Æ·½ªº©I¥s¡A¤]¤£»Ý­n¶}¨÷°Óªº³nÅé¼Æ­È´N·|¶i¨Ó¡C

¤S³o¨Ç¼Æ­È¬Ý°_¨Ó©Ç©Çªº¡A¨Ò¦p¥x«ü ¡B¼¯¥x©M¥[Åvªº­È ¡A ÁÙ¬O»¡ A2:Q5¨º¤@°Ï¬O°²¸ê®Æ ¥Î¨Ó´ú¸Õ¬ö¿ýªºµ{¦¡?
2018-04-27_­ã³ö¤j.jpg

TOP

¥»©«³Ì«á¥Ñ ABK ©ó 2018-4-28 20:41 ½s¿è

¦^´_ 6# ­ã´£³¡ªL


  ÁÂÁ­ã³ö¤j !       ¤F¸Ñ¤F!
¦³¿ìªkÁקK ¦b¤w¸g°±¤î¬ö¿ý¤F¡A ¤S¥h«ö¤@¦¸"°±¤îÁä"®É ¤£·|¶]¥X¿ù»~°T®§¶Ü?
¦ý¬O¦A¥h«ö"°õ¦æ¬ö¿ý" ©M "²M°£¬ö¿ý¸ê®Æ"Áä ÁÙ¬O¥i¥HÄ~Äò¥¿±`¹B§@ !
¤w¸g°±¤î¬ö¿ý«á ¦A«ö¤@¦¸°±¤îÁ䪺¿ù»~´£¥Ü.jpg

TOP

¦^´_ 8# ­ã´£³¡ªL


    ÁÂÁ­ã³ö¤j!    OK¤F!

TOP

¦^´_ 4# ­ã´£³¡ªL

­ã³ö¤j±z¦n !
¦A½Ð±Ð¤@­Ó°ÝÃD¡A ¦pªG¦bµ{¦¡¶]¤F¤@¬q®É¶¡«á¡A§Ú­n²M°£¬ö¿ý¡A¦ý¬O­n«O¯d³Ì«á¤@µ§¬ö¿ý¨ÃÅý¥¦«O¯d¦b²Ä9¦æ¡A²M°£¸ê®Æªºµ{¦¡­n¦p¦ó§ï¼g?
«O¯d³Ì«á¤@¦æ¬ö¿ý¦^¨ì²Ä9¦æ.png

TOP

¦^´_ 11# ­ã´£³¡ªL


ÁÂÁ­ã³ö¤j!     ¥Ñ©ó§Ú¹w­p¦b NÄ椧«á ¥[¤J¤@¨Çªí®æ¡A©Ò¥H¾ã¦Cªº§R°£·| §R¨ìNÄæ«á­±ªº¸ê®Æ¡C
§Ú¥u­n AÄæ¨ìNÄæ³o¤@°Ï¶ôªº¬ö¿ý §R°£ ¡A «O¯d³Ì«á¤@µ§¬ö¿ý©ñ¨ì²Ä9¦C [A9:N9]¡A ³o¤@¬q­n¦p¦ó­×¥¿?

TOP

¦^´_ 13# ­ã´£³¡ªL


   ÁÂÁ­㴣¤j!  
   ¦Aµ¹§Ú°Ý¤@¤U!  (¤£¦n·N«ä! ¬ðµM·Q¨ì)
   ¦pªG°Ï¶¡¬O DÄæ¨ìNÄæ³o¤@°Ï¶ôªº¬ö¿ý ­n§R°£ ¡A «O¯d³Ì«á¤@µ§¬ö¿ý©ñ¨ì²Ä9¦C [D9:N9]¡A ¤S­n¦p¦ó¼g?
   
¤£¦n·N«ä!  ·Q»¡¥H«á¼gµ{¦¡·|¸I¨ì¤£¬O±qAÄæ¶}©lªº¸ê®Æ°Ï¡A ¥ý°Ý°_¨Ó©ñ !

TOP

¦^´_ 15# ­ã´£³¡ªL

ÁÂÁ­㴣¤j!  
°²³] §Úªº§Y®É¸ê®Æ¬O§e²{¦b C8: N8
§Ú·Q­n¥H«á¦b¦P¤@±i¹Ïªí¤W¤@°_§e²{"§Y®É¸ê®Æ"»P"¬ö¿ý¸ê®Æ",
¤]´N¬O·í§Ú"²M°£¬ö¿ý¸ê®Æ"«á¡AC9:N9ªº¼Æ­Èµ¥©ó C8:N8ªº¼Æ­È(§Y®Éªº),
¦b"°õ¦æ¬ö¿ý"±Ò°Ê«á:
·í²Ä¤@¤ÀÄÁµ²§ô®É, §Y®É¸ê®Æ«K°O¿ý¦bC9:N9¡A¥BÅܦ¨C10:N10»PC8:N8 ¦P¨B,
·í²Ä¤G¤ÀÄÁµ²§ô®É, §Y®É¸ê®Æ«K°O¿ý¦bC10:N10¡A¥BÅܦ¨C11:N11»PC8:N8 ¦P¨B,
·í²Ä¤T¤ÀÄÁµ²§ô®É, §Y®É¸ê®Æ«K°O¿ý¦bC11:N11¡A¥BÅܦ¨C12:N12»PC8:N8 ¦P¨B, ...............¡C
(¤]´N¬O¦b¬ö¿ý¸ê®Æ°Ïªº³Ì«á¤@¦C»P¤@ª½»P§Y®É¼Æ¾Ú¦P¨B)

¤@ª½¨ì§Ú¦A¦¸"²M°£¬ö¿ý¸ê®Æ"®É¡A ¤SÅܦ¨C9:N9»PC8:N8 ¦P¨B¤F¡C
³o¼Ëªºµ{¦¡½X­n¦p¦ó¼g ?

TOP

¤w¸g¸Ñ¨M¤F!

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD