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

[µo°Ý] excel Ãþ¦ü®É¶¡½X¿ö¼gªk¦p¦ó¼g

[µo°Ý] excel Ãþ¦ü®É¶¡½X¿ö¼gªk¦p¦ó¼g

¦U¦ì¤j¤j­Ì¡A·Q½Ð§A­ÌÀ°¦£·Q¸Ó¦p¦ó¼g
»Ý¨D¬O¡A¦³¤@­ÓÅÜ°Ê­È¡A­Y«ùÄò¤@¤ÀÄÁ³£¤j©ó1¡Aµ¹§Ú¤@­Óĵ¥Ü¡C

°O¿ý®É¶¡.rar (9.02 KB)

¦ý¤@ª½·Q¤£¨ì¦³¤°»ò¤èªk¥i¥H¼g¡A¥Ø«e¬O·Q»¡­Y¥ÎÃþ¦ü½X¿ö¥\¯à¨Ó°O¿ý¡A¬O§_¥i¦æ¡H
¦pªþÀɤWªº¤º®e¡G B2 ©M C2 ¨C¬í³£¦³ÅÜ°Ê­È¥X²{¡A¦Ó B3­È¬O B2-C2 ªºµ´¹ï­È
­Y B3­È ¤j©ó1ªº¸Ü¡A´N°O¿ý¨ì EÄæ¸Ì¡A­Y¤p©ó1ªº¸Ü¡A´N§âEÄæ¸Ìªº°O¿ý®ø°£±¼
­Y EÄæ¦sº¡60­Ó°O¿ýªº¸Ü(µ¥©ó¤@¤ÀÄÁ)¡A´N¦b A1 ĵ¥Ü§Ú(Åܦ¨¬õ¦â)¡AÅý§Úª¾¹D¡C

½Ð°Ý³o­Ó·Qªk¥i¦æ¶Ü¡H¸Ó¦p¦ó¼g©O¡HÁÙ¬O¦U¦ì¤j¤j¦³§Oªº·Qªk¥i¦æ©O¡H
³o­Ó°ÝÃD§xÂZ§Ú¦n¤[¡A§Ú¤@ª½·Q¤£¨ì¥i¦æªº¤èªk¡C
§Æ±æ¦U¦ì¯àÀ°À°§Ú¡A«D±`·PÁ¡C

¦^´_ 1# ahsiek


    ·s¼W¼Ò²Õ¡A±N¦¹¥N½X¶K¤W¸Õ¸Õ
  1. Sub test()
  2. t = Now + TimeSerial(0, 0, 1)
  3. If [b3] > 1 Then
  4.     [e3] = [e3] + 1
  5. ElseIf [b3] <= 1 Then
  6.     [e3] = ""
  7. End If
  8. If [e3] >= 60 Then
  9.     [a1].Interior.ColorIndex = 3
  10. Else: [a1].Interior.ColorIndex = 0
  11. End If
  12. Application.OnTime t, "test"
  13. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# owen06

ÁÂÁÂowen06¤j¤jªº¦^ÂÐ
¦ý¦³­Ó¦a¤è§A¥i¯à»~·|§Úªº·N«ä¤F¡C

¦b if [b3]>1 Then
        [e3]=[e3]+1
³o¼Ë¼Æ­È¥Ã»·³£¥u·|¦s¦b[e4] ¸Ì¡A§Ú»Ý­nªº¬O¡A±q e3 ¤@ª½°O¿ý¨ì e61¡A¶W¹L e61®É¡A´Nĵ§i§Ú¡C

ElseIf [b3]<=1 Then
        [e3] = ""
³o¸Ì­Y¬OªÅ¥Õ¨Ó¦û EÄ檺ªÅ¶¡ªº¸Ü¡A´N·|¤£·Ç½T¡A©Ò¥H§Ú¶É¦V§ï¬°

ElseIf [b3]<=1 Then
        Worksheets("Sheet1").Range("e3 : e61). Clear   

©Ò¥H§Ú·Q°Ý¤@¤U¡A­Y b3 >1®É¡A´N°O¿ý¨ìe3¨ìe61¸Ì¡A³o­Ó¼gªk«ç»ò¼g©O¡H
¦A³Â·Ð¤j¤j¤F¡AÁÂÁ¡C

TOP

¦^´_ 3# ahsiek


    ³o¼Ë¤l¥i¥H¶Ü¡H
  1. Sub test()
  2. t = Now + TimeSerial(0, 0, 1)
  3. ELR = [e65536].End(3).Row
  4. If [b3] > 1 Then
  5.     If [e3] = "" Then
  6.         [e3] = 1
  7.     Else: Range("E" & ELR + 1) = 1
  8.     End If
  9. ElseIf [b3] <= 1 Then
  10.     Range("e3:e" & ELR) = ""
  11. End If
  12. If Application.Count([e:e]) >= 60 Then
  13.     [a1].Interior.ColorIndex = 3
  14. Else: [a1].Interior.ColorIndex = 0
  15. End If
  16. Application.OnTime t, "test"
  17. End Sub
½Æ»s¥N½X

TOP

­Y¦³°ÝÃD,¦Û¦æ­×§ï®M¥Î:
¨C¬í°O¿ý.rar (13.92 KB)

TOP

¦^´_ 4# owen06


    ÁÂÁÂowen06¤j¤jªºÀ°¦£¡A§Ú­è­è´ú¸Õ¤F¡A¬O¥i¦æªº¡C«D±`«D±`¦aÁÂÁ§A¡C

TOP

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


    ÁÂÁ­㴣³¡ªL¤j¤jªº´£¨Ñ¡C¤£¹L§ÚªºÅv¬ü¤£¨¬¡A¨S¦³¿ìªk¤U¸ü¡C

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2015-2-2 11:14 ½s¿è

¦^´_ 7# ahsiek

¨C¬í°O¿ýDDEÅÜ°Ê­È¡G
http://www.funp.net/107422
¶K¦Üºô§}¦C

µ{¦¡¹w³]¢°¢¯µ§°O¿ý®É¡AÅã¥Üĵ¥ÜÃC¦â¤Îµo¥XBEEPÁn¡A½Ð¦Û¦æ­×§ï©Ò»Ý¡I
·íµ{¦¡°õ¦æ¤¤¡A¥iÀ˵ø¨ä¥¦¤u§@ªí¦Ó¤£¨ü¼vÅT¡A¦ýÀx¦s®æ¶i¤J½s¿èª¬ºA®É·|¼È°±¡A¶·ª`·N¡I
Ãö³¬Àɮ׫e¡A¶·«ö¡e°±¤î¡f¡A¨Ã¦Ü¤Öµ¥¤@¬í¥H¤W¡A¦AÃö³¬ÀɮסI
¡]­Y¦P®É¶}±Ò¦h­ÓÀɮסA¥uÃö³¬¥»ÀÉ¡A¤@¬í«á¥i¯à·|¦Û°Ê¶}±Ò¡A¦]µ¥«Ý¤U¤@¬í°õ¦æªº°Ê§@ÁÙ¦s¦b¡A°£«DÃö³¬¾ã­ÓEXCEL¡^

TOP

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


    «D±`ÁÂÁ ­ã´£³¡ªL¤j¤j ªº¤À¨É©M¸ÑÄÀ¡C§Ú¨Ó¸Õ¸Õ¬Ý¡I

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD